Nom kiritish bosManishini

misol. Ikkita sonning eng katta umumiy bo‘luvchisi (EKUB)ni topuvchi dastur tuzing.

Yechish. EKUB topishning eng qulay usuli - Evklid algoritmi. Bu algoritm sizga awalgi bobdan tanish. Dasturi quyidagicha:

Program EKUB;

Var a, b : Integer;

Begin

Write('Birinchi sonni kiriting: '); ReadLn(a);

Write('Ikkinchi sonni kiriting: '); ReadLn(b);

While a<>b Do If a>b Then a:=a-b Else b:=b-a; {a=b boiganda takrorlash tugaydi}

WriteLn('EKUB= a);

End.

Repeat operatori ham shart bo‘yicha takrorlashni amalga oshiradi. Uning umumiy ko‘rinishi quyidagicha:

Repeat

Until

bu yerda Repeat (ing. takrorlash) va Until (ing. gacha) Paskalning xizmatchi so‘zlari bo‘lib, Repeat — takrorlash boshi, Until — takrorlash oxirini bildiradi; - oddiy yoki murakkab mantiqiy ifoda. Tak- rorlanish tanasi shart rost qiymat qabul qilgungacha bajarilaveradi.

misol. S = 1,1 + 1,5+1,9+2,3+...+45,5 yig‘indining hisoblash dasturini tuzing.

Yechish. Misolni tahlil qilib qo‘shiluvchilar 0,4 ga farq qilishi aniq- lanadi. Parametrli takrorlash operatorida parametr qiymati haqiqiy bo‘la olmaydi. Bu holda shart bo'yicha takrorlash operatorlaridan foydalanish qulay. Quyidagi ikkala yechimni taqqoslab ko‘ring.