2.
N . .
:
Program Mass2;
Const X=100;
Var A:Array[1..10] of Integer;
I,N,Max:Integer;
Begin
Writeln( (N<=10));
Readln(N);
Randomize;
For I:=1 to N do A[I]:=Random(X);{ }
Max:=A[1];
For I:=1 to N do
If Max>A[I] Then A[I]:=Max;
For I:=1 to N do Writeln(A[,I,]=,A[I]);
Writeln(Max=,Max);
End.
:
1. N . .
2. N . .
3. N . , , .
3.
N . .
:
Program Mass3;
Var A:Array[1..10] of Integer;
I,P,N:Integer;
F:boolean;
Begin
Writeln( (N<=10));
Readln(N);
For I:=1 to N do Readln(A[I]);
F:=False;
While F=False do
Begin
F:=True;
For I:=1 to N-1 do
If A[I]>A[I+1] Then
Begin
P:=A[I];
A[I]:=A[I+1];
A[I+1]:=P;
F:=False;
End;
End;
For I:=1 to N do Writeln(A[,I,]=,A[I]);
End.
:
1. N , . .
2. 0, 1 2. , , , .
3. N . , .
4. N . .
, .
1. N . , , .
2. N . , .
3. N . , .
4. N .
5. N .
6. N . , .
7. N . .
8. N . .
9. N . , Y[I]:=Min(X[1],X[2],,X[N]).
|
|
( ):
- Tab
-1 | ||||
Integer. - (M).
1 8. (B1,B2).
, ( Var) : Tab:Array[1..3,1..4] of Integer;
, . :
N:=A[1,3];
N , 1, 3, .. 15.
4.
, N*M (N-, M-). :
) N- ; ) M- ; ) .
:
Program Mass4;
Var Tab:Array[1..10,1..10] of Integer;
N,M,X,Y:Integer;
Begin
Writeln( (N<=10));
Readln(N);
Writeln( (M<=10));
Readln(M);
For X:=1 to N do
For Y:=1 to M do Readln(Tab[X,Y]);
Writeln( ,N, );
For X:=1 to M do Write(Tab[,N,,,X,]=,Tab[N,X], :2);
Writeln;
Writeln( ,M, );
For X:=1 to N do Writeln(Tab[,X,,,M,]=,Tab[X,M]);
Writeln( );
For X:=1 to N do
Begin
For Y:=1 to M do Write(Tab[,X,,,Y,]=,Tab[X,Y], :2);
Writeln;
End;
5.
, N*M (N-, M-). .
:
Program Mass5;
Var A:Array[1..10,1..10] of String;
I,N,M,X,Y:Integer;
P:String;
F:boolean;
Begin
{ }
F:=False;
While F=False do
Begin
F:=True;
For X:=1 to N do
For Y:=1 to M-1 do
Begin
If A[X,Y]>A[X,Y+1] Then
Begin
{ 2 }
End;
If (X<N)and(Y=(M-1))and(A[X,Y+1]>A[X+1,1])Then
Begin
P:=A[X,Y+1];
A[X,Y+1]:=A[X+1,1];
A[X+1,1]:=P;
F:=False;
End;
End;
End;
{ }
End.
.
.
1. T1 2.
2
1
2
3 3
4
4
() .
, ( ) , .
, , , . , , .
|
|
2- - . , .
. . 6 , .
:
Procedure Xxx[(P1:T1;P2:T2;Pn:Tm)];
Xxx - ( );
P1,P2,,Pn - ;
T1,T2,,Tm
. , , . .
, , .
:
, , :
Xxx[(B1,B2,,Bn)];
B1,B2,,Bn . , .
, .
:
1. ;
2. .
9.3.
Var.
, . .
1:
:
Procedure Xxx(Var A,B,C:Integer; Var D:Real);{A,B,C,D ; }
:
Xxx(M,N,X,Y);{M,N,X,Y }
-:
2:
Program Pr1;
Var A,B:Integer;
Procedure Zamena(Var Y,X:Integer);
Begin
X:=X+1;Y:=Y+10;
End;
Begin
A:=0;B:=0;
Zamena(A,B);
Writeln(A,B);
End.
: 1,10 { }
.
4- , 2- .
:
Program Pr3;
Var A,B,C,D,M1,M2,M3:Integer;
Procedure Max(Var X,Y,M:Integer);
Begin
If X>Y Then M:=X Else M:=Y;
End;
Begin
Readln(A,B,C,D);
Max(A,B,M1);
Max(C,D,M2);
Max(M1,M2,M3);
Writeln(Max=,M3);
End.
:
1. ( , ):
Procedure Str(Var (A,B,C): Real;)
C:=A+B+C;
:
Str(X,Y,Z,S);
:
2. :
)Procedure Str1;
Begin
P:=(A+B+C)/2;
S:=sqrt(P*(P-A)*(P-B)*(P-C));
End;
)Procedure Str1(Var A,B,C,S:Real);
Begin
P:=(A+B+C)/2;
S:=sqrt(P*(P-A)*(P-B)*(P-C));
End;
, .
3. :
)Procedure M(Var X,Y,M:Real);
Begin M:=X+Y; End;
)Procedure M1(Var X,Y,Z,T:Real);
Begin Z:=X+Y; T:=X*Y; End;
)Procedure M2(Var X,Y,R:Real; Var P:Integer);
Begin If sqr(X)+sqr(Y)<=sqr(R) Then P:=1 Else P:=0; End;
4. : Procedure M2(Var X,Y:Integer); , 2(A,B-1);
|
|
5. X,Y,Z. , U=(Max(X,Y)+Max(X,Z))/(Max(Y,Z));
6. :
) Procedure P;
Begin X:=X+Y; Y:=X-Y; End;
) Procedure P;
Begin Y:=X-Y; X:=X+Y; End;
9.4.
Var .
. , , . , , , . .
:
:
Procedure Xxx(A,B,C:Integer; Var D:Real);{A,B,C ; D ; }
:
Xxx(M,N,X,Y);{M,N,X ; Y }
- -:
1.
Program A1;
Var X:Integer;
Procedure Zamena(Y:Integer);
Begin
Y:=1;
End;
Begin
X:=0; Zamena(X);
Writeln(X=,X);
End.
: X=0
2.
Program Pr2;
Var X:Integer;
Procedure Zamena(Var Y:Integer);
Begin
Y:=1;
End;
Begin
X:=0; Zamena(X);
Writeln(X=,X);
End.
: X=1
:
A (Z=Ak)
Program Proc2;
Var A,K,Z:Integer;
Procedure Nstep(X:Real;N:Integer;Var Y:Real);{Y=Xn}
Var I:Integer;
Begin
Y:=1;
For I:=1 to N do
Y:=Y*X;
End;
Begin
Readln(A,K);
Nstep(A,K,Z);
Writeln(Z=,Z);
End.
I, , . , . , I .
1. X,Y Q S,T. P(1,A) Q(B,D+F). P Q -?
2. A, B, C, D. K=M*N+K, M=Max(A,B); N=Max(B,C,D); K=Max(A,B,C,D);. 2- .
3. A, B, C, D, X. M=(X*A)A+BC*(D*X)C. .
4. (Z=Ak) (- )
5. K, M. K , M . Zvezda(S,N), .
, . . , , , .
:
:
Function Xxx(P1:T1;P2:T2;Pn:Tm):Q;
Xxx - ( );
P1,P2,,Pn - ;
T1,T2,,Tm ;
Q , ;
:
, .
|
|
:
, (, ).
Z:=Xxx[(B1,B2,,Bn)];
.
4- , 2- .
Program func1;
Var A,B,C,D,M1,M2,M3:Integer;
Function Max(X,Y:Integer):Integer;
Begin
If X>Y Then Max:=X Else Max:=Y;
End;
Begin
Readln(A,B,C,B);
m1:=Max(A,B);
m2:=Max(C,D);
m3:=Max(M1,M2);
Writeln(Max=,M3);
End.
:
9.4 2,3,4,5, .
. , :
System
System :
- ; { 3.3}
- ;
- ;
- ;
- ;