Программа жасаудың алдыңғы қатардағы озық үлгілерін өмірге енгізу



бет7/8
Дата26.01.2022
өлшемі394,57 Kb.
#114879
түріПрограмма
1   2   3   4   5   6   7   8
Байланысты:
f6076c67db5d95

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


Бағдарламаны тестілеу



Достарыңызбен бөлісу:
1   2   3   4   5   6   7   8




©engime.org 2024
әкімшілігінің қараңыз

    Басты бет