Mavzu: Chiziqli, tarmoqlanuvchi va takrorlanuvchi dasturlar

if x:= a then z:= sin(x) else if x > b then z:= sin(x)/ cos(x) else z:= cos(x); 
Agar birinch shart bajarilsa, z:= sin(x) operatori, aks holda ikkinchi shart x > b tekshiriladi va bu 
shart bajarilsa, z:= sin(x)/ cos(x) operatori, aks holda z:= cos(x) operatori hisoblanadi.Agar shartli 
o`tish operatorida then yoki else  dan keyin bir necha operatorlar guruhi bajarilsa, ular begin  va 
end – tarkibiy operatorda yoziladi. if A < 0 then begin x:= 5; y:= 3 end else begin x:= 0; y:= 0 end 
; 
Misol. ax
2
+bx+c=0 kvadrat tenglamaning ildizlarini topish dasturini tuzing. 
Yechish. Formulasi d = b
2 
- 4ac; 
a
d
b
x
2
12

−
=
. Agar d >0 bo`lsa, 2 ta ildiz, d=0 da 
1 ta ildiz va d< 0 da ildiz mavjudmas. Shulardan foydalanib dastur tuzamiz. 
Program KvT; 
Label 20; 
Var a, b, c, d, x, x1, x2: real; 

---

Begin 
 
Read(a,b,c); 
if a=0 then begin x:= -b/c; writeln(x); goto 20 end; else d:= sqr(b)-4*a*c; 
if d> 0 then begin x1:= (-b+sqrt(d))/(2*a); x2:= (-b-sqrt(d))/(2*a) end;
else if d=0 then begin x:=-b/(2*a); writeln(x) end; else writeln(‘yechim yo`q’); 
20: End. 
Tanlash operatori.
Tanlash operatorining umumiy ko`rinishi: 
CASE C OF M1 : A1; M2 : A2; ……. Mn : An END; 
Bu yerda case (tanlash) – xizmatchi so`z, of (dan), C – selektor, Mi – operatorlar belgilari, Ai – 
operatorlar (i=1 dan n gacha).
CASE operatori tarmoqlanish jarayonini berilgan bir necha 
operatordan birini tanlash yo`li bilan amalga oshiradi. Tanlash operatorida barcha operatorlar, shu 
jumladan bajarilishi uchun tanlangan operator ham aniq ravishda keltiriladi (berilgan operatorlar 
ketma – ketligi chegaralangan). Bajarilishi kerak bo`lgan operator yoki operatorlar ketma – ketligi 
operator selektorining qiymatiga ko`ra aniqlanadi. Shartli o`tish operatorining quyidagi IF B 
THEN A1 ELSE A2 ko`rinishi tanlash operatorining quyidagi qurilishiga ekvivalentdir:
CASE B OF
True: A1; False: A2; END; 
qisqa ko`rinishdagi shartli o`tish operatorining quyidagi IF  B THEN A ko`rinishi tanlash 
operatorining quyidagi ko`rinishiga ekvivalentdir: CASE B OF True: A; False: END; 
 
Misol. 
CASE T OF
 
`*`, `/`: R:=1; 
`+`, `-`: R:=2 
END; 
Bu operatorning bajarilishi natijasida, agar T – belgili o`zgaruvchi “+” yoki “−” belgi qiymatlarni 
qabul qilsa, R o`zgaruvchi 2 qiymatni, agar T o`zgaruvchi “*” yoki “/” belgini qabul qilsa, R 
o`zgaruvchi 1 qiymatni qabul qiladi. 
 
Tavsiya etiladigan adabiyotlar: 
1. 
O`.T.Haitmatov va b.Informatika va axborot texnologiyalari. O’quv qo’llanma. T. TKTI. 
2005 y.
2. 
O`.T.Haitmatov va b. Informatika va axborot texnologiyalari fanidan laboratoriya 
ishlarini bajarish ushun uslubiy qo’llanma. T. TKTI. 2005 yHolmatov T.X.,Toyloqov 
N.I. Amaliy matematika, dasturlash va kompyuterning dasturiy ta’minoti. T.Mexnat, 
2000 y. 27-32 b. 
3. 
В.А. Острейковский Лабораторный практикум по информатике: Учебное пособие 
для вузов. — М.: Высш. шк., 2003.
4. 
Культин Н.Б.Программированиев Турбо Паскаль и Дельфи. СПб.:БХВ-Стнкт-
Петербург,1999А.В. Петров и др. Вычислительная техника и программирование. 
Учебник для технических вузов.М.:Высш. шк.,1990.