1-маъруза: Математик моделлаштиришнинг асосий тушунчалари, масалаларни эщмда ечиш бос=ичлари ва алгоритмлар назарияси

Repeat операторининг ёзилиш формаси =уйидагича былади:


repeat S1; S2; ... SN until B;

бу ерда repeat (такрорламо=), until ( гача) - хизматчи сызлар;

S1, S2, ..., SN лар эса цикл танасини ташкил этувчи операторлар;
B - циклдан чи=иш шарти (манти=ий ифода).

Операторнинг ишлаш принципи жуда содда, яъни циклнинг танаси B манти=ий ифода рост =ийматли натижа бермагунча такрор - такрор щисобланаверади. Мисол сифатида, яна ю=оридаги йи\инди щисоблаш мисолини олайлик.

Program Sum2;
var i, n: Byte;
S: real;
begin
readln(n);
S: =0; i:=1;
repeat
S:= S+1/i;
i:=i+1;
until i>n;
writeln (S)
end.

Айрим такрорланиш жараёнларида циклдан чи=иш шартини ифодаловчи манти=ий ифода щеч =ачон True (рост) =ийматга эришмаслиги мумкин. Бу холда программанинг такрорлаш =исми чексиз марта =айтадан щисобланиши мумкин, яъни дастурчилар тили билан айтганда «программа осилиб =олади» шунинг учун, оператордаги шартни танлашда эътиборли былиш лозим.

Эътиборингизга яъна бир, исмни =идириб топиш программасини хавола =иламиз:


Program ism;
Var
a,b:String[20];
Begin
a:=’Jamshid’;
Repeat
Writeln(‘Танлаган исмингизни киритинг’);
Readln(B);
if a<>b Then writeln(‘Нотугри’) else writeln(‘Яшанг тугри топдингиз’);
Until A=B;
End.


3. While такрорлаш оператори

Ащамият берган былсангиз, repeat операторида циклнинг тана =исми камида бир марта щисобланади. Лекин, айрим пайтларда, шу бир марта щисоблаш щам ечилаётган масаланинг мощиятини бузиб юбориши мумкин. Бундай щолларда, =уйидаги формада ёзилувчи while цикл операторидан фойдаланиш ма=садга мувофи=дир: