Q o‘ L y o zma huq uq I d a u d k 06

If (Aor (A>C) then D: =B+C else  

If B=A then begin D: =C; C: =A; end;  

Javob:  (0.1<0.1)  yoki  (0.1>0.5)  bu  mantiqiy  ifoda  yolg‘on  bo‘lganligi 

sababli  B=A  shart  tеkshiriladi.  Bu  shart  chin  bo‘lganligi  sabab  D=0.5  ga,  S=0.1 

qiymatlarga tеng ekanligi kеlib chiqadi. 

Yuqorida bayon qilingan fikrlarni tekshirib ko‘rish uchun Paskal dasturlash 

tilida shartli operatorlaridan foydalangan holda bir nechta dasturlar tuzamiz. 

1-misol. Kiritilgan son 10 dan katta bo‘lsa, ekranga “katta” aks holda “Katta 

emas” degan yozuvni chiqaruvchi dastur tuzing.  

1-usul. 

var 

n:real; 

begin 

write('n='); read(n); 

if n>10 then write('katta'); 

if n<=10 then write(' katta emas'); 

end. 

 

2-usul. 

var 

n:real; 

begin 

write('n='); read(n); 

if n>10 then write('katta') else 

write(' katta emas'); 

end. 

---

50