А. А. Медатов, М. К. Абдувохидов, О. А. Маматқулов

begin
repeat write('Belgini kiriting- '); readln(b);
case ord(b) of
64..90,97..122: writeln(lat);
48..57: writeln(raq);
128..175, 224..239: writeln(kiril);
33, 34, 38, 44, 46, 58, 59, 63: writeln(tin);
176..223: writeln(graf) else writeln (boshqa);
end;
write('Takrorlaysizmi(y/n) - ? '); readln(x);
until (x<>'y');
end.
Мустахкамлаш учун саволлар
1. Repeat … until операторлари ёрдамида қандай масалаларга алгоритмлар тузилади?
2. a  b шарт мазмуни нимани ифодалайди?
Таянч тушунчалар: repeat, until, шарт, операторлар.


Адабиётлар: [1],[2],[3],[5],[6],[7],[8],[9],[10].
Цикл операторлари
Режа:
1. While цикл оператори.
2. Параметрли цикл оператори.


1. While цикл оператори.
While оператори битта операторни берилган муносабатга нисбатан шу муносабат чин бўлгунга қадар такроран бажарилишини таъминлайди.
Бичими: while a  b do оператор
Бунда while – оператор номи бўлиб, …гача, токи маъносини беради. do – ёрдамчи сўз (бажар); a,b – катталиклар;  - муносабат белгиси; оператор – битта оператор ёки мураккаб оператор.
Ушбу операторнинг бажарилиши давомида a  b муносабатнинг true ёки false қийматига тенглигига текширилади. Агар a  b - true бўлса, оператор бажарилади ва бошқариш яна a  b шартга узатилади. Шарт тўғри бўлса операторнинг такроран бажарилиш таъминланади, акс ҳолда false бўлса, циклнинг бажарилиши жараёни тўхтатилади.
Масала 1. Евклид алгоритмидан фойдаланиб, икки – a ва b бутун сонларнинг ЭКУБини топиш алгоритми тузилсин. Ушбу масаланинг блок схемаси «Алгоримт ҳақида тушунча» мавзусида берилган.


program Evklid;
var a,b,c:integer;
begin
write ('a,b='); readln(a,b);