«

»

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 не будет опубликован. Обязательные поля помечены *

Вы можете использовать эти теги HTML: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong>

Проверка на человечность *