Ii. Operatorlar, protsedura va funksiyalar

Javoblar
1. a) 15; b) 10; c) 1; d) -5

2. A:=(EXP((Y+1)*LN(X))+EXP(Y-1))/(x+ABS(Y-LN(Z)));

3. TRUE va TRUE

4. F :=FALSE va D :=TRUE

5. a) 100 dan 150 gacha b) 25dan kichik c) 5

6. X=0 Y=1

7. n:= 10; m:= 2;

Repeat m:= m+3; Until m >n;

8. a)Ikki marta b) Uch marta

9.a)

Program Proc;

Var a,b,c: Real;

Procedure Maxsimum(x,y: Real; Var z: real);

Begin if x>y Then z:=x Else z:=y End;

Begin

Read (a,b);

Maxsimum(a,b,c); Write (a,b,c);

End.

9.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.
10.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.

10.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.

11. False

12. 62

13. 16