Написать программу вычисления расстояния между населенными пунктами, изображенными на карте. Ниже представлен рекомендуемый вид экрана во время работы программы (данные, введенные пользователем, выделены полужирным шрифтом).

Вычисление расстояния между населенными пунктами.

Введите исходные данные:

Масштаб карты (количество километров в одном сантиметре) - - - > 120

Расстояние между двумя точками, изображающими населенные пункты (см) - - - > 3.5

Расстояние между населенными пунктами 420 км.

Question

Информатика

Эммануил

1 февраля, 23:36

Написать программу вычисления расстояния между населенными пунктами, изображенными на карте. Ниже представлен рекомендуемый вид экрана во время работы программы (данные, введенные пользователем, выделены полужирным шрифтом).

Вычисление расстояния между населенными пунктами.

Введите исходные данные:

Масштаб карты (количество километров в одном сантиметре) - - - > 120

Расстояние между двумя точками, изображающими населенные пункты (см) - - - > 3.5

Расстояние между населенными пунктами 420 км.

+2

Ответы (1)

Знаете ответ?

Иринарх · Answer 1

var m, r:real;

Begin

Writeln ('Вычисление расстояния между населенными пунктами.') ;

writeln ('ведите исходные данные:') ;

writeln ('Масштаб карты (количество километров в одном сантиметре) - - - > ') ;

read (m) ;

writeln ('Расстояние между двумя точками, изображающими населенные пункты (см) - - - > ') ;

read (r) ;

writeln ('Расстояние между населенными пунктами ', m*r,' км.') ;

End.