Получить таблицу пересчета миль в километры и обратно - 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.

Объяснение кода листинга программы

  1. Объявлены две переменные типа integer - k и i.
  2. Пользователю предлагается ввести предельное расстояние в км.
  3. Переменная i инициализируется значением 1.
  4. Выводится таблица перевода из миль в км.
  5. В цикле while происходит перевод и вывод на экран значений, пока значение i*1.6093 не превысит предельное расстояние k.
  6. Выводится таблица перевода из км в мили.
  7. В цикле for происходит перевод и вывод на экран значений, пока значение i не превысит предельное расстояние k.

Оцени полезность:

5   голосов , оценка 4.4 из 5
Похожие ответы