Бағдарламалау технологиялары және тілдер


Әзір немесе шартты алдын-ала тексеру циклі



жүктеу 1,75 Mb.
бет17/84
Дата06.01.2022
өлшемі1,75 Mb.
#36866
1   ...   13   14   15   16   17   18   19   20   ...   84
интеграция

Әзір немесе шартты алдын-ала тексеру циклі

Оның құрылымы:



WHILE шарт DO

цикл денесі ;

while (әзір), do (орындау)- қызметші сөздер.

Шарт- логикалық типті өрнек. Егер шарттың мәні ақиқат (true) болса, цикл денесі орындалады және содан соң шарт қайта тексеріледі.

Ал шарттың мәні жалған (false) мәнге тең болса, цикл денесі орындалмай, басқару while циклінен кейін тұрған бірінші операторға беріледі.



Мысал21. n!-мәнін есептеу программасын әзір циклі арқылы жазайық..

Program m1;

var i, n: integer; P: longint;

begin


read (n);

P:=1;


i:=1;

While i<=n do

begin

P:=P*i;



i:=i+1;

end;


Write ('n!=', P);

end.


Мысал 22. x-тің мәні -5-тен 5-ке дейін 0,2 қадаммен өзгерген мәндері үшін у=х2-1 функциясының мәндерін экранға шығарындар.

Program m2;

var х, у: real;

begin


х:=-5;

While х<=5 do

begin

y:=sqr(x)-1;



Writeln (x,'---',y);

х:=х+0.2;

end;

end.


Мысал23. Барлық екі таңбалы жұп сандардың көбейтіндісін табатын программа құрайық.

Program m1;

var i, P: integer;

begin


P:=1; i:=2;

While i<=98 do

begin

P:=P*i; i:=i+2; end;



Write (‘P=’, P);

end.


Мысал24. Екі натурал санның ең үлкен ортақ бөлгішін және ең кіші ортақ еселігін табатын программа құрыңдар.

Program m2;

var a,b, EKOE,c: integer;

begin


read (a,b); c:=a*b;

While a<>b do

if a>b then a:= a-b else b:= b-a;

EKOE:=c/a;

Write ('2 санның ең үлкен ортақ бөлгіші=', а, '2 санның ең кіші ортақ еселігі =', EKOE);

end.



жүктеу 1,75 Mb.

Достарыңызбен бөлісу:
1   ...   13   14   15   16   17   18   19   20   ...   84




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

    Басты бет
рсетілетін қызмет
халықаралық қаржы
Астана халықаралық
қызмет регламенті
бекіту туралы
туралы ережені
орталығы туралы
субсидиялау мемлекеттік
кеңес туралы
ніндегі кеңес
орталығын басқару
қаржы орталығын
қаржы орталығы
құрамын бекіту
неркәсіптік кешен
міндетті құпия
болуына ерікті
тексерілу мемлекеттік
медициналық тексерілу
құпия медициналық
ерікті анонимді
Бастауыш тәлім
қатысуға жолдамалар
қызметшілері арасындағы
академиялық демалыс
алушыларға академиялық
білім алушыларға
ұйымдарында білім
туралы хабарландыру
конкурс туралы
мемлекеттік қызметшілері
мемлекеттік әкімшілік
органдардың мемлекеттік
мемлекеттік органдардың
барлық мемлекеттік
арналған барлық
орналасуға арналған
лауазымына орналасуға
әкімшілік лауазымына
инфекцияның болуына
жәрдемдесудің белсенді
шараларына қатысуға
саласындағы дайындаушы
ленген қосылған
шегінде бюджетке
салығы шегінде
есептелген қосылған
ұйымдарға есептелген
дайындаушы ұйымдарға
кешен саласындағы
сомасын субсидиялау