Pascal. Линейные алгоритмы. Задача 11

Написать программу, которая переводит расстояние между объектами, отмеченными на карте в фактическое расстояние. В качестве вводимых данных используется масштаб карты (км в 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.

Похожие записи:

Leave a Reply

Your email address will not be published. Required fields are marked *