Напечатайте таблицу соответствия между весом в фунтах и весом в кг для значений от 1 до 10 фунтов с шагом 0,5 фунта. Формула перевода: 1 фунт = 400 г. Решите задачу тремя способами, используя циклы с параметром, постусловием и предусловием (for, repeat...until, while).

Нужно перевести фунты в килограммы. По условию 1 фунт = 400 г, значит 1 фунт = \(0{,}4\) кг. Формула:

\[m_{кг}=m_{фунт}\cdot 0{,}4\]

1 способ: цикл с параметром for

program PoundsFor;
var i: integer;
f, kg: real;
begin
writeln('Фунты Килограммы');
for i := 2 to 20 do
begin
f := i / 2;
kg := f * 0.4;
writeln(f:4:1, ' ', kg:6:2);
end;
end.

2 способ: цикл с постусловием repeat...until

program PoundsRepeat;
var f, kg: real;
begin
writeln('Фунты Килограммы');
f := 1;
repeat
kg := f * 0.4;
writeln(f:4:1, ' ', kg:6:2);
f := f + 0.5;
until f > 10;
end.

3 способ: цикл с предусловием while

program PoundsWhile;
var f, kg: real;
begin
writeln('Фунты Килограммы');
f := 1;
while f <= 10 do
begin
kg := f * 0.4;
writeln(f:4:1, ' ', kg:6:2);
f := f + 0.5;
end;
end.

0 0 Пожаловаться