Algoritmlash p65. p65

BASIC
PASCAL va DELPHI
Input "Parolni  kiriting:  ",  parol 
IF  parol="informatika"  THEN 
Print("Parol  to ‘g ‘ri")
ELSE
Print ("Parol  noto‘g‘ri")
END IF
Var  parol:String;
Begin
Write(‘Parolni  kiriting:  ‘); 
ReadLn(parol);
IF  parol=‘informatika‘  THEN 
WriteLn(‘Parol to 'g 'ri‘)
ELSE
WriteLn(‘Parol  noto'g'ri‘); 
End.
Sintaksis  qoidalari:
•  BASIC:  agar IF  -  T H E N   -  ELSE b ir satrga yozilsa E N D   IF  
ning  keragi  bo ‘lm aydi,  le kin   bu  holda  operatorlar  guruhi 
yozilsa ba‘zan xatolikka olib kelishi m um kin; birikkan shartlar
218

---

orasiga VA , Y O K I,  EM AS  so‘zlarining in g liz varian ti (dastur 
alifbosiga  qarang)  yoziladi.
•  PASCAL  va  D E L P H I:  agar  T H E N   yoki  ELSE  so‘zlaridan 
keyin operatorlar guruhi yozilsa,  u holda bu guruh B E G IN  va 
END;  ichida yoziladi;  agar ELSE qism yozilsa, u holda undan 
oldingi  nuqtali  vergul  yozilm aydi;  birikkan  shartlarda  har b ir 
shart alohida qavsga olinadi va ular orasiga VA, Y O K I,  EMAS 
so‘zlarining  ingliz varianti  (dastur  alifbosiga  qarang)  yoziladi.
10.14-m isol
U chta  sondan  kattasini topish  (U K T )  dasturini tuzing.
Yechish.  Bu  masalani  hal  etishda birikkan  shartlardan  foyda- 
lanamiz: