Цикл-әзір операторы Шартын алдын-ала тексеретін қайталану саны белгісіз операторы WHІLЕ (әзір) шарт ақиқат болғанда ғана орындалады. Егер шарт жалған болса, бұл цикл бір рет те орындалмауы мүмкін. Бұл оператордың жазылу түрі:
WHІLE < шарт > DO
{бірнеше оператор қайталанады}
ВЕGІN
< 1- оператор ;>
< 2-оператор ; >
< n- оператор;>
END.
Мысал: Евклид алгоритмі бойынша екі натурал санның ең үлкен ортақ бөлгішін табу (ЕҮОБ).
1) Егер екі сан тең болса, онда ЕҮОБ ретінде екеуінің біреуі алынып орындалу
тоқтатылады.
2) Сан тең болмаса, онда олардың үлкенін табу керек.
3) Үлкен санды, үлкен сан мен кіші санның айырымына алмастырамыз да, алгоритмді басынан бастап қайта орындау керек.
Program ЕҮОБ;
Var m, n: іnteger;
Begіn READLN(m, n);
WHІLE m<>n do
ІF m>n then m:=m-n
else n:=n-m;
WRІTELN(m);
END.
