Delphi tilida

S a v o 11 a r 

5.Massivlar qanday tavsiflanadi? 

6.Massivni tartiblashtirishning qanday usullari mavjud? 
7.Protsedura va funksiyalar dasturda qanday hollarda ishlatiladi? 
8.Protsedura va funksiya qanday tavsiflanadi? 
9.Funksiya protseduradan nima bilan farqlanadi? 
10.Qanday maxsus p s protseduralar va funksiyalami bilasiz? 
1l.Ma’lumotlami faylgayozishda qanday funksiya va protseduralar 

M a sh q 1a r 

c)

A:=0; A:=A+1; A:=A*A; 

46 

2.Quyidagi ifodani Pascal tilida yozing: 

x +\y-Ln Z\

3.(15>=25) Or (6.3<12.4) va Not(5>12)And(2.3<3.4) mantiqiy ifodalar 
qiymatini aniqlang. 
4.Quyidagi F va D mantiqiy o‘zgaruvchilar qiymatini aniqlang: 
A:=l; B:=A+3; C:=B+A; F:=(AC); D:=(AC); 

6. 

8. 

b)

9. 

End; 

10. 

11. 

12. 

13. 

47 

J a v o b 1a r 

7. 

a: mas; c: Real; i,n: Integer; 

Procedure MasMin(n: Integer; x: mas; Var z: Real); 
Var i: Integer; 
Begin z:=x[l]; For i:=2 to n do if z>x[i] Then z:=x[i] End;
Begin 

48 

Var i: Integer; z: Real; 
Begin z:=x[l]; For i:=2 to n do if z>x[i] Then z:=x[i]; MasMin:=z 

Begin 
Writeln ('Massiv o‘lchamini kiriting:'); Readln(n); 

Writeln (n:2, '-ta massiv elementi qiymatini kiriting:'); 
For i:=l to n do Read (a[i]);
c:=MasMin(n,a); Writeln (c); 
End. 

13. 

16