misol. Berilgan butun son manfiy bo‘lsa, bu sonni kubi bilan almashtiruvchi dastur tuzing. Yechish. var a:Integer; {berilgan son} begin Write('Ixtiyoriy butun son kiriting: '); ReadLn(a); If a<0 Then a:= a*a*a; {son manfiy bo‘lsa kubi bilan almashtiriladi} WriteLn(a); End. Parametrli takrorlash operatori Aksariyat masalalarni yechishda ma’lum amallar ketma- ketligini bir necha marta takrorlash zarur bo‘ladi. Avvalgi bobda bu kabi masalalar bilan tanishildi va ularni hal qilish uchun takrorlanuvchi algoritmlar tuzdingiz. Endi takrorlanuvchi dasturlar tuzish usullari ko‘rib chiqiladi
Do'stlaringiz bilan baham: |
