Пример 2.
Составить блок-схему алгоритма и программу перевода объемных единиц молока (л) в весовые (кг) по формуле: 
- количество молока, л. 
- количество молока, кг
Количество молока меняется в пределах от 3,6 до 4,5 л. с шагом 0,1 л.
Решение.
Вариант 1 «С предусловием While»
| Program MOLOKO;
var
KO, KV: real;
begin
writeln (‘введите объем молока KO=’);
readln (KO);
while KO<=4.5 do begin KV:=1.03*KO;
writeln (‘вес молока’,KV:9:2);
KO:=KO+0.1;end; readln;
end.
|
Вариант 2. «С послеусловием Repeat Until»
| Program MOLOKO;
var
KO, KV: real;
begin
writeln (‘введите объем молока KO=’);
readln (KO);
repeat
KV:=1.03*KO;
writeln (‘вес молока’,KV:9:2);
KO:=KO+0.1;
until KO<=4.5;
end.
|
Вариант 1 «С предусловием While»
| Program MOLOKO;
var
KO, KV: real;
begin
writeln (‘введите объем молока KO=’);
readln (KO);
while KO<=4.5 do begin KV:=1.03*KO;
writeln (‘вес молока’, KV:9:2);
KO:=KO+0.1;end; readln;
end.
|
Дата добавления: 2014-12-03; просмотров: 769;
