:
1. .
2. .
3. .
4. .
.
(). , . a.. b, a b , . . , .
var. array, , .
.
var a: array [1..20] of integer;
A, 20 ;
var x,y: array [1..10] of real;
2 x y, 10 ;
. (), . .
.
.
Const
N=100;
M=5;
Var
X:Array[1..N] Of Real; { }
A:Array[1..M,1..M] Of Integer; {a }.
Pascal- .
:
A [2,4]
) :
read (A[2,4]);
) :
A[2,4]:=5;
) :
write (A[2,4]);
:
program vvod 1;
var A: array [1..10] of integer;
i:integer;
begin
for i:=1 to 10 do
read (A[i]);
end.
:
program vvod 2;
const n=5; m=7;
var A: array [1..n,1..m] of real;
i,j: integer;
begin
for i:=1 to n do
for j:=1 to m do
read (A[i,j]);
end.
:
program minim;
const n=10;
var i: byte;
a: array [1..n] of real;
min: real;
begin
for i:=1 to n do read (A[i]);
min:=A[1];
for i:=2 to n do
if min>A[i] then min:=A[i];
write (min);
end.
.
. char. read/readln write/writeln.
var. , string , , - . 255 . , .
|
|
:
var
identificator_1: string;
identificator_2: string[20];
identificator _3: string [155];
char .
:
identificator _1:=' - ';
identificator _1[1]:='';
, Pascal - , , . "+".
:
identificator_1:='' + '-' + '';
:
1) Length (L) - , L. , , , .. , .
1:
var
L: string[15];
A: byte;
Begin
L:=' ';
A:=length(L);
Write(A)
End.
2:
Begin
write(length(' '));
End.
2) Copy (L, A, B) - L, A B, A B - .
3) Pos (L, M) - , , L M. L M, - 0.
4) Insert (L, M, A) - L M, A. , .
5) Delete (L, A, B) - L B , A.
. .
- , s , w (). ( ), - . ( - writeln) s - .
var s,w: string; { }
p: integer; { }
begin
writeln (' ');
readln (s);
repeat
p:=pos (' ',s);
if p>0 then w:=copy (s,1,p-1)
else w:=s;
writeln (w);
delete (s,1,p);
until p=0;
end.
.
- . . , 0 10 :
{ 0,2,4,6,8,10 }.
, :
[0,2,4,6,8,10].
set, .
:
type A: 5..9;
var
B: set of A;
C: set of char;
D: set of '1'..'5';
, , .
|
|
:
e:=['A'..'Q', 'T', 'x'..'z'].
.
- . 256. . : [ ]. .
.
(+). , :
:
[1..3, 6, 9..11] + [2..4, 7, 10..12] = [1, 2, 3, 4, 6, 7, 9, 10, 11, 12] = [1..4, 6, 7, 9..12].
(*). , , , .
:
[1..3, 6, 9..11] * [2..4, 7, 10..12] = [2, 3, 10, 11].
(-). , , .
:
[1..3, 6, 9..11] - [2..4, 7, 10..12] = [1, 6, 9].
in - . (true false).
:
2 in [1..4] (true);
8 in [1..7] (false).
.
n (n<20). , .
Program Mnog_Sim;
Const
N=20;
Var
S: Set Of Char;
B: Char;
I: Integer;
Begin
S:= [];
For I:=1 To N Do
Begin
Writeln ( );
Readln(B);
If B In S Then
Writeln( ,B, )
Else
S:=S+[B];
End;
Writeln(, );
For B:=A To z Do
If B In S Then
Write(B:2);
End.
.
- , . - , , .. - , . () , , . .
Type :
Type
_ = Record
;
end; { }
.
. , , , , , , . Type .
Type
Adres = Record
Gorod: String [20];
Ul: String [20];
Dom: Integer;
Kv: Integer
End;
. , , : , , 5 .
Type
Stud = Record
Fam: String[15];
Im: String[10]
Ot: String[15];
Numz: Integer;
O:Array[1..5] Of Integer
End;
, 25 , :
Var
Grup: Array[1..25] Of Stud;
RabAnk: Stud; { }
.
.
RabAnk.NumZ:=2100756; { RabAnk}
RabAnk.Fam:=; { RabAnk}
:
Grup[1].Fam:= ; { }
Writeln(Grup[i].Numz); { i }
Write(Grup[10].O[1]);{ 10- }.
with. , karta c (family, name age),
|
|
karta.family:=' ';
karta.name:=' ';
karta.age:=20;
with karta do
begin
family:=' ';
name:=' ';
age:=20;
end;