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.

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

Оставить комментарий

Ваш e-mail не будет опубликован. Обязательные поля отмечены *