. . , , . . . , :
A[5] S[k+1] B[3,5].
. . . , , , .{}
, , :
R1:=Z.
, .
{}
, - . .
( ) . - , :
type Dim10= Array[1..10] of Real;
const
raM10: Dim10 = (0, 2.1, 4, 5.65, 6.1, 6.7, 7.2, 8, 8.7, 9.3);
:
type Dim3x2= Array[1..3,1..2] of Integer;
const
iaM3x2: Dim3x2= ((1, 2)
(3, 4)
(5, 6));
- FillChar:
FillChar(var V; NBytes: Word; B: Byte);
. , A[1..10] of Real :
FillChar(A, 40, 0);
FillChar(A, SizeOf(A), 0);
, . . ( ), : . . :
I.
Var
A: Array [1..20] Of Array [1..30] Of Integer;
II.
Var
A: Array [1..20,1..30] Of Integer;
, , 20 30 . .
, , . , , 5- 6- A[5][6] A[5,6].
: " 10X10, [1,100]. , ."
|
|
|
, , . , , , . , - .
Program M5;
Var
A: Array[1..10,1..10] Of Integer;
I, K: Byte;
S: Integer;
Begin
S:=0;
For I:=1 To 10 Do
Begin
For K:=1 To 10 Do
Begin
A[I,K]:=Trunc(Random*100)+1;
Write(A[I,K]:6);
If K>I Then S:=S+A[I,K]
End;
Writeln
End;
Writeln(' . V',S)
End.
- , . N- N . :
Type
< >=Array[< 1>,< 2>,...
< N>] Of < >;
:
< >[< 1>,< 2>,...,< N>]
. , , , . . , , , , .
: , . , . , .
, , . .
(, ). (, ) . , . , , .
:
Procedure < > (< . 1>:<>;
< . 2>:<>?);
< >
Begin
< >
End;
, ( - ). "" . , . , , .
|
|
|
. , , . End.
:
Function < > (< . 1>:<>;
< . 2>:<>?): < >;
< >
Begin
< >
End;
: < >:=<>;
, , .
:
< >(< 1>, < 2>?);
, .
. , , , , .
.
: " ". , , .
Program Fn;
Var
A,B,C:Real;
Function Max(A,B:Real):Real; { Max }
Begin { A B, }
If A>B Then Max:=A { }
Else Max:=B { A B - }
End;
Begin
Writeln(' ');
Readln(A,B,C);
Writeln(' ', Max(Max(A,B),C))
End.
. A B, , A B, .
: . - , . , . , , . . : - . , . , .
, - Var. - .
. : " ".
Program Pr;
Var
S1,S2,S3:Integer;
Procedure Swap(Var A,B: Integer);{ Swap -}
|
|
|
Var C: Integer; {C - }
Begin
C:=A; A:=B; B:=C { A B}
End;
Begin
Writeln(' ');
Readln(S1,S2,S3);
If S1>S2 Then Swap(S1,S2);
If S2>S3 Then Swap(S2,S3);
If S1>S2 Then Swap(S1,S2);
Writeln(' :V',S1,S2,S3)
End.
- , (, ). , -. . .
- File Of, .
:
Type
N = File Of Integer; {- }
C = File Of Char; {- }
Text. .
, :
Var
F1: N;
F2: C;
F3: Text;
- :
Var
Z: File Of Word;
. ( , ..). (, ..).
, , . , , -, , -, : ; , . , , . .
, -, Assign.
:
Assign(< >,< >);
, Sting. . , - ( - ).
:
Reset(< >);
, . , , -.
Rewrite(< >);
, , Assign. , .
, , Close.
Close(< >);
, .
.
, , Read. , :
|
|
|
Read(< >, < >);
, . , .
, Write(< >, < >);
, .
Readln Writeln , -. , . : Output Input . Output , Input - . - ( , " -"), Output, - Input.
, . ? , , Eof(< >)
True, , False - .
: " , , , , ''".
, . - .
Program L;
Var
I,N: Integer;
F: File Of String;
S: String;
Begin
Assign(F,'Spis.lst'); { F Spis.lst}
Writeln(' ');
Readln(N); { }
Rewrite(F); { }
For I:=1 To N Do { }
Begin
Writeln(' ');
Readln(S);
Write(F,S)
End;
Close(F);
Reset(F);
Writeln; Writeln(' :');
While Not(Eof(F)) Do
Begin
Read(F,S);
If S[1]<>'' Then
Writeln(S)
End;
Close(F)
End.
