Составить блок-схему алгоритма и программу с помощью оператора «FOR»:
начало
R, a, l, b
X=0, 10
y
конец
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.
KO
KO<=4,5
нет
да
KV
конец
Вариант 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.
KO
начало
Вариант 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.
studopedia.su - Студопедия (2013 - 2024) год. Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав!Последнее добавление
[0;10]
- количество молока, л. 
- количество молока, кг
