Mavzu: 1 ­­– dars. Masalalarni kompyuterda yechish bosqichlari Darsning maqsadi

O`tgan mavzuni takrorlash va uyga vazifani so`rash. O`tilgan mavzular bo`yicha savollar berib, o`quvchilarni baholayman.

1. Takrorlanuvchi algoritmlarga misollar keltiring

2. Parametrli takrorlash operatorining umumiy ko`rinishi qanday?

3. 
   Yangi mavzuni bayoni
   

Aziz o`quvchilar bugungi darsimizda siz bilan shart bo`yicha takrorlash operatori mavzusini o`rganamiz.

While operatori quyidagi umumiy ko‘rinishga ega:

While Do <takrorlanish tanasi>;

bu yerda While (ing. toki) va Do Paskalning xizmatchi so‘zlari; <shart> – oddiy yoki murakkab mantiqiy ifoda; <takrorlanish tanasi> – takrorlash tanasini tashkil etuvchi operator yoki operatorlar ketma-ketligi. Agar takrorlanish tanasida operatorlar ketma-ketligi yozilsa, ular begin bilan boshlanib, end; bilan yakunlanadi.

Mazkur takrorlash operatori quyidagicha ishlaydi:

Avval shart tekshiriladi. Agar uning qiymati rost bo‘lsa, takrorlash tanasini tashkil etuvchi operatorlar ishlaydi, va yana shart teksiriladi. Bu jarayon shart yolg‘on qiymat qabul qilgunga qadar davom etadi.

1–misol. Ikkita sonning eng katta umumiy bo‘luvchisini (EKUB) topuvchi dastur tuzing.

Yechish. EKUB topishning eng qulay usuli – Evklid algoritmi. Bu algoritm sizga avvalgi 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 bo‘lganda takrorlash tugaydi}

WriteLn(‘EKUB= ‘, a);

End.

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