Пример 2.
Пример 1.
Составить блок-схему алгоритма и программу с помощью оператора «FOR»:
| Program Tiko;
var
y, a, R, l, b: real;
x: integer;
begin
writeln (‘a=’); readln (a);
writeln (‘R=’); readln (R);
writeln (‘l=’); readln (l);
writeln (‘b=’); readln (b);
For x:=0 to 10 do begin
Y:=a*exp(-b*x)*sin(R*x+ l);
writeln (‘y=’, y:9:2);
end;
readln;
end.
|
Составить блок-схему алгоритма и программу перевода объемных единиц молока (л) в весовые (кг) по формуле:
- количество молока, л. - количество молока, кг
Количество молока меняется в пределах от 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.
|