Nom kiritish bosManishini

4-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 boisa kubi bilan almashtiriladi} WriteLn(a); readln; {readln operatori dastur natijasini ko'rib olish uchun yoziidi} end. Tarmoqlanish operatori tarkibida yana tarmoqlanish operatori qoila-nishi mumkin.

5- misol. Sonning ishorasini aniqlovchi dastur tuzing.

Var a:Integer; b:String; {Bitta satrda bir nechta o'zgaruvchini tavsiflash mumkin} Begin Write('Ixtiyoriy son kiriting: '); ReadLn(a);

If a<0 Then b:= 'manfiy' Else If a>0 Then b:= 'musbat' Else b:= 'nol'; WriteLn(b); End.

6- misol. Ikkita sondan kattasining topish (IKT) dasturini tuzing. Var a,b,katta:Real;

Begin

Write('Birinchi sonni kiriting = '); ReadLn(a); Write('Ikkinchi sonni kiriting = '); ReadLn(b); If a>b Then katta:=a Else katta:=b; WriteLn('Katta son= ', katta); End.

Bu dasturda a>b shart bajarilishi yoki bajarilmasligidan qat'i nazar WriteLn('Katta son= ', katta) operatori albatta bajariladi. Chunki, u dasturda tarmoqlanish operatori bilan bir satrda yozilgan boisa ham uning tarkibiga kirmaydi. Nima uchun shundayligini o'ylab ko'ring!