Напечатать таблицу соответствия меж весом в фунтах и весом в кг

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

Задать свой вопрос
2 ответа
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 flt;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 fgt;=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
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 lt;= 10 do begin
  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 gt; 10
end.
Степан Лагучев
А можно ещё блок схемы к ним?
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт