Автор работы: Пользователь скрыл имя, 12 Января 2014 в 19:10, лабораторная работа
Написать программу расстояния между населенными пунктами, изображенными на карте. Ниже представлен рекомендуемый вид экрана во время работы программы (данные, введенные пользователем, выделены полужирным шрифтом).
Вычисление расстояние между населенными пунктами.
Введите исходные данные:
Масштаб карты(количество километров в одном сантиметре) – > 120
Расстояние между точками, изображающими населенные пункты (см) – > 3.5
МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ
РОССИЙСКОЙ ФЕДЕРАЦИИ
ФГБОУ ВПО «ИЖЕВСКИЙ ГОСУДАРСТВЕННЫЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ им. М.Т. КАЛАШНИКОВА»
Лабораторная работа №1
Тема: «Программирование линейных алгоритмов»
Выполнил студент
А. Н. Попов
Проверил(а):
ст. преп. кафедры
правового регулирования Р.Ф. Вахитова
2013 год
Написать программу расстояния между населенными пунктами, изображенными на карте. Ниже представлен рекомендуемый вид экрана во время работы программы (данные, введенные пользователем, выделены полужирным шрифтом).
Вычисление расстояние между населенными пунктами.
Введите исходные данные:
Масштаб карты(количество километров в одном сантиметре) – > 120
Расстояние между точками, изображающими населенные пункты (см) – > 3.5
Программа
var a:integer;
b,c:real;
begin
writeln('введите масштаб карты');
readln(a);
writeln('введите расстояние между точками');
readln(b);
C:=a*b;
writeln('расстояние между населенными пунктами =',c);
end.
Блок-Схема