Algoritmlash p65. p65

A lgoritm ik tilim izda
AGAR  A>=B va  A>=C 
U  HOLDA 
o‘tkazA,  KATTA
{A>=B va  A>=C}
TAMOM
AGAR  B>=C va  B>=A 
U  HOLDA 
o‘tkaz B,  KATTA
{B>=C va  B>=A}
TAMOM
AGAR  C>=A  va  C>=B 
U  HOLDA 
o‘tkaz C,  KATTA 
TAMOM
{C>=A  va  C>=B}
BASIC
Input "A=  ", A 
Input "B=  ",  B 
Input "C=  ",  C
If A>=B AND A>=C Then  KATTA=A:  GOTO javob 
If B>=A  AND  B>=C Then  KATTA=B:  GOTO javob
KATTA=C
javob:  Print "Sonlardan  kattasi  ";  KATTA;  "ga  teng"
PASCAL va DELPHI
Label javob;
Var  A,B,C,  KATTA:Real; 
Begin
Write(‘A=  ‘);  ReadLn(A); 
Write(‘B=  ‘);  ReadLn(B); 
Write(‘C=  ‘);  ReadLn(C);
If (A>=B) AND (A>=C) Then  begin  KATTA:=A;  goto javob;  end; 
If (
b
>=
a
) 
a n d
 (
b
>=C) Then  begin  KATTA:=A;  goto javob;  end;
KATTA:=C;
javob: Write(‘Sonlardan  kattasi  ‘,KATTA,‘ga  teng‘);
End.
219

---

Avvalgi  boblardagi  masalalam i  dasturlash  tilla rig a   o ‘tkazing, 
shu  usulda  tarm oqlanish  operatorini  tushunib  olish  oson bo‘ladi.