Получить таблицу пересчета миль в километры и обратно - Pascal ABC
Формулировка задачи:
Получить таблицу пересчета миль в километры и обратно (1 миля — 1,6093 км) для расстояний, не превышающих k км
Решение задачи: «Получить таблицу пересчета миль в километры и обратно»
textual
Листинг программы
var k,i: integer; begin write('Введите предельное расстояние (K) в км.:'); readln(k); i:=1; writeln('Перевод из миль в км'); while ((i*1.6093)<=k) do begin writeln('Мили: ',i,' Км: ',i*1.6093); i:= i+1; end; writeln('Перевод из км в мили'); for i:=1 to k do begin writeln('Мили: ',i/1.6093,' Км: ',i); end; end.
Объяснение кода листинга программы
- Объявлены две переменные типа integer - k и i.
- Пользователю предлагается ввести предельное расстояние в км.
- Переменная i инициализируется значением 1.
- Выводится таблица перевода из миль в км.
- В цикле while происходит перевод и вывод на экран значений, пока значение i*1.6093 не превысит предельное расстояние k.
- Выводится таблица перевода из км в мили.
- В цикле for происходит перевод и вывод на экран значений, пока значение i не превысит предельное расстояние k.