Aniq va tabiiy fanlar

Program FABS;
Type
f=text;
Var
A,B,C: Array[1..100] of Real; i,m: Integer;
fax: f;
Begin
Assign(fax,’c:\AA\AB.txt’); Reset(fax);
m:=0;
While not eof(fax) do
Begin m:=m+1; Readln(fax,A[m],B[m]); End;
Close (fax);
Assign(fax,’c:\AA\ABC.txt’); Rewrite(fax);
Append(fax);
For i:=to m do
Begin Write(fax,i,A[i],b[i],c[i]); Writeln(fax); End;
Close(fax);
End.


S a v o l l a r

1. 
   Prosedura va funksiyalar dasturda qanday hollarda ishlatiladi?
   
2. 
   Prosedura va funksiya qanday tavsiflanadi?
   
3. 
   Funksiya proseduradan nima bilan farqlanadi?
   
4. 
   Qanday maxsus proseduralar va funksiyalarni bilasiz?
   
5. 
   Ma’lumotlarni faylga yozishda qanday funksiya va proseduralar ishlatiladi?
   

M a sh q l a r
1.Ikkita son kattasini topish dasturi tuzilsin:
a) Prosedurani ishlatgan holda.
b) Funksiyani ishlatgan holda.
2.Bir o’lchovli massivning eng kichik elementini topish dasturi tuzilsin:
a) Prosedurani ishlatgan holda.
b) Funksiyani ishlatgan holda.
3.Quyidagi dasturda ADD funksiyasi qiymatini toping.
x:=7; y:=ADD(x+1); Write(‘y=’,y:2);
4.Quyidagi dasturda Frac funksiyasi qiymatini toping.
x:=14.62; y:=Frac(x+2); Write(‘y=’,y :2);
5.Quyidagi dasturda Int funksiyasi qiymatini toping.
x:=14.62; y:=Int(x+2); Write(‘y=’,y :2);


Javoblar

1.b)
Program Func;

Var a,b,c: Real;
Function Maxsimum(x,y: Real): real;
Begin if x>y Then maxsimum:=x Else maxsimum:=y End;
Begin
Read (a,b);
c:=Maxsimum(a,b); Writeln (a,b,c);
End.

2.a)
Program ProcMasMin;

Type
Mas: Array[1..100] of real;
Var
a: mas; c: Real; i,n: Integer;
Procedure MasMin(n: integer; x: mas; Var z: Real);
Var i: Integer;
Begin z:=x[1]; For i:=2 to n do if z>x[i] Then z:=x[i] End;
Begin
Writeln ('Massiv olchamini kiriting:'); Readln(n);
Writeln (n:2, '-ta massiv elementi qiymatini kiriting:');
For i:=1 to n do Read (a[i]);
MasMin(n,a,c); Writeln (c);
End.
2.b)
Program FuncMasMin;
Type
Mas=Array[1..100] of real;
Var
a: mas; c: Real; i,n: Integer;
Function MasMin(n:integer;x:mas): real;
Var i: Integer; z: Real;
Begin z:=x[1]; For i:=2 to n do if z>x[i] Then z:=x[i]; MasMin:=z End;
Begin
Writeln ('Massiv olchamini kiriting:'); Readln(n);
Writeln (n:2, '-ta massiv elementi qiymatini kiriting:');
For i:=1 to n do Read (a[i]);
c:=MasMin(n,a); Writeln (c);
End.
3. False
4. 62
5. 16