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

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

жүктеу 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