Напечатать таблицу соответствия между весом в фунтах и весом в кг для значений от 1 до 10...

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 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

Answer 2

1)

var
i : integer;
Begin
Writeln('Фунты       КГ');
For i:= 1 to 10 do
  writeln(i:3, '   ---   ', i * 0.4:0:1);
end.

2) 

var
i : integer;
Begin
Writeln('Фунты       КГ');
while i <= 10 do begin<br>  writeln(i:3, '   ---   ', i * 0.4:0:1);
  i:= i + 1;
  end;
end.

3)

var
i : integer;
Begin
Writeln('Фунты       КГ');
Repeat
  writeln(i:3, '   ---   ', i * 0.4:0:1);
  i:= i + 1;
until i > 10
end.

Comments

А можно ещё блок схемы к ним?