Написать программу, которая переводит расстояние между объектами, отмеченными на карте в фактическое расстояние. В качестве вводимых данных используется масштаб карты (км в 1 см) и расстояние между объектами на карте (см).
Решение:
|
1
2 3 4 5 6 7 8 9 10 11 |
program line_11;
uses crt; var km, cm, distance: real; begin clrscr; write(‘Количество км в одном см карты > ‘); readln(km); write(‘Расстояние между объектами на карте (см) > ‘); readln(cm); distance:=km*cm; write(‘Расстояние между объектами: ‘, distance:4:2, ‘ км’); readkey; end. |