Question

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

Answer 1

1)
const f0=1; fk=10; h=0.5;
var f:real; i:integer;
begin
f:=f0-h;
writeln('Фунты   Кг');
for i:=1 to round((fk-f0)/h)+1 do
 begin
 f:=f+h;
 writeln(f:4:1,f*0.4:7:3);
 end;
end.

2)
const f0=1; fk=10; h=0.5;
var f:real;
begin
f:=f0-h;
writeln('Фунты   Кг');
while f<fk do
 begin
 f:=f+h;
 writeln(f:4:1,f*0.4:7:3);
 end;
end.

3)
const f0=1; fk=10; h=0.5;
var f:real;
begin
f:=f0-h;
writeln('Фунты   Кг');
repeat
 f:=f+h;
 writeln(f:4:1,f*0.4:7:3);
until f>=fk;
end.

Результат:
Фунты   Кг
 1.0  0.400
 1.5  0.600
 2.0  0.800
 2.5  1.000
...
 9.0  3.600
 9.5  3.800
10.0  4.000