Напечатать таблицу соответствия меж весом в фунтах и весом в кг
Напечатать таблицу соответствия меж весом в фунтах и весом в кг для значений от 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
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
Anton Zavaleev
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.
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.
Степан Лагучев
А можно ещё блок схемы к ним?
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
выпиши в свою тетрадь те правила этикета которые тебе не были
Разные вопросы.
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
10) Килограмм конфет дороже килограмма печенья на 52 р. За 8
Математика.
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Облако тегов