3. Цикл
19 - нұсқа
Кез-келген цикл түрін қолданып өрнектің мәнін бағалаңыз.
Есептің берілгені:
Есептің блок-схема бойынша шешімі:
Object Pascal тілінің жазылуы
var x:integer; a,Y: real;
begin
a:=0;
For x:=21 downto 11 do
begin
Y:= 5+SQR(Sin(x)/Cos(x))+a;
writeln('x=',x, ' a=', a, ' Y=',Y);
a:=a-0.3;
end;
end.
Соңғы шешім:
x=21 a=0 Y=7.33325175193199
x=20 a=-0.3 Y=9.70488909036454
x=19 a=-0.6 Y=4.42297936760055
x=18 a=-0.9 Y=5.39348248027133
x=17 a=-1.2 Y=16.0074465376939
x=16 a=-1.5 Y=3.59037974494432
x=15 a=-1.8 Y=3.93272470239893
x=14 a=-2.1 Y=55.3843250219646
x=13 a=-2.4 Y=2.81438856954579
x=12 a=-2.7 Y=2.70431784887751
x=11 a=-3 Y=51055.7850133673
Бағдарламаны тестілеу
Достарыңызбен бөлісу: | 
