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

Repeat <takrorlanish tanasi> Until

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

2–misol. S = 1,1+1,5+1,9+2,3+…+45,5 yig’indini hisoblash dasturini tuzing.

Yechish. Misolni tahlil qilib qo’shiluvchilar 0,4 ga farq qilishini aniqlaymiz. Parametrli takrorlash operatorida parametr qiymati haqiqiy bo’la olmaydi. Bu holda shart bo’yicha takrorlash operatorlaridan foydalanish qulay. Quyidagi ikkala yechimni taqqoslab ko’ring.

While yordamida	Repeat yordamida
Program Summ_real; Var J, S: real; Begin S:=0; J:=1.1; While J<= 45.5 do begin S:=S+J; J:=J+0.4; end; WriteLn(‘S= ‘, S); End.	Program Summ_real; Var J, S: real; Begin S:=0; J:=1.1; Repeat S:=S+J; J:=J+0.4; Until J>= 45.5; WriteLn(‘S= ‘, S); End.

3–misol. Tasodifiy sonlar generatori (Random) dan foydalanib, ekranga har xil rangda “A” harfini chiqaruvchi dastur tuzing. Qizil rangli “A” chiqishi bilan dastur ishi yakunlasin.