Ш. И. Раззоќов, М. Д. Юнусова turbo pascal алгоритмик тилида дастурлаш касб-ћунар коллеж талабалари учун ўќув ќўлланма

WHILE <шарт> DO <оператор>
Бу ерда WHILE, DO–резерв сўзлар ([шарт бажарил]гунча, бажар)
<шарт> - мантиќий турдаги шарт;
<оператор>- Турбо Паскалнинг ихтиёрий оператори
Агар <шарт> ифода TRUE ќийматга эга бўлса, у пайтда <оператор> бажарилади, шундан кейин <шарт> ифода ћисобланади ва уни текшириш такрорланади. Агар <шарт> FALSE ќийматга эга бўлса, WHILE оператори ўз фаолиятини тўхтатади.
Мисол: FOR операторини тушунтиришда олинган масаланинг дастурини WHILE оператори ёрдамида оламиз:

8.3-дастур

Program Summ_of_Integer;
const n=15
var
i,s: integer;
begin
s:=0; {йиѓиндининг бошланѓич ќиймати}
i:=1; {ћисобчининг бошланѓич ќиймати}
while i<=n do
begin
s:=s+i; {йиѓиндини ћисоблаш ва навбатдаги
i:=i+1; ќўшилувчи сон ќийматини аниќлаш}
end;
writeln (`йиѓинди=`,S); {натижани чиќариш}
end.


8.3.3. REPEAT … UNTIL цикл оператори
Унинг умумий кўриниши
REPEAT <цикл_танаси> UNTIL <шарт>
Бу ерда REPEAT, UNTIL – резерв сўзлар (шарт бажарилгунча такрорла);
<цикл_танаси> - Турбо Паскал операторларининг ихтиёрий кетма-кетлиги;
<шарт> - мантиќий турдаги ифода;
<цикл танаси> оператори ћеч бўлмаганда бир марта такрорланади, шундан кейин <шарт> ифода ћисобланади; агар унинг ќиймати FALSE бўлса, <цикл_танаси> операторлари такрорланади, акс ћолда REPEAT … UNTIL оператори ўз ишини якунлайди.
Клавиатурадан N (15) бутун сон киритилиб, 1 дан N (15) гача бўлган бутун сонлар йиѓиндисини ћисоблаш масаласи дастурини цикл операторининг 3-кўриниши ёрдамида ёзамиз.
8.4-дастур
Program Summ_of_Integer;
var
i,n,s: integer;
begin
write (`n=`);
Readln (n);
s:=0; {цикл шартида турган ўзгарувчиларнинг}
i:=1; {бошланѓич ќийматлари берилган бўлиши керак}