Вопрос по информатике:
Напечатать таблицу соответствия между весом в фунтах и весом в кг для значений от 1 до 10 фунтов с шагом 0,5 фунта. Формула перевода: 1 фунт = 400 г. Нужно одну и ту же задачу сделать с 3 циклами. Параметром, послусловием, предусловием. Repeat , until,while, for.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 07.06.2015 04:29
- Информатика
- remove_red_eye 8827
- thumb_up 11
Ответы и объяснения 2
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
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.
- 08.06.2015 20:45
- thumb_up 37
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
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
- 09.06.2015 02:24
- thumb_up 16
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.