Begin
< >
End;
i- :
...
Sum:=0;
With Spisok[i] do
Begin
For j:=1 to 3 do
Sum:=Sum+Ball[j];
...
End;
.
:
/ | ... |
: , , . :
Type
Date=Record
Days:1..31;
Month:1..12;
Year:1900..2000;
End;
Tzap=Record
Nom:word;
FIO:string[40];
DateR:Date;
Pol:(Man,Woman);
Nac:string[20];
End;
Var Zap:Tzap;
, :
D:=Zap.DateR.Days;
M:= Zap.DateR.Month;
G:= Zap.DateR.Year;
With Zap.DateR do
Begin
D:=Days; M:=month; G:=Year;
End;
- :
< >: = ( );
- : : ;
:
1) Type
Tdate=Record
Day:1..31;
Month:1..12;
Year:1000..2000;
End;
Const Date:Tdate=(day:25;month:10;year:1999);
2) Type
Tkoord=record
Xk,Yk:real;
end;
Tmas=array[1..3] of Tkoord;
Const Maskoord:Tmas=((Xk:0.0; Yk:0.0),
Xk:1.5; Yk:2.5),
Xk:3.0; Yk:4.5));
, N (N£100) :
5 | 15 | 15 . | 1..7 | 0..23 0..59 | Real |
1) Spis.
2) - Isk_nom.
3) .
4) .
Uses crt;
Type
T_Time=record
Hour:0..23;
Min:0..59;
end;
tzap=record { }
nom:string[5];
p1,p2:string[15];
day:1..7;
time:T_Time;
price:real;
end;
Var Spis:array[1..100]of tzap; { }
N,i:byte;
Isk_nom:string[5];
Begin
Write(' N = ');
Readln(N);
Writeln(' - ');
For i:=1 to N do
With Spis[i] do
begin
Write(' - 5 ');
Readln(nom);
Write(' - 15 ');
Readln(p1);
Write(' - 15 ');
Readln(p2);
Write(' - 1 7 ');
Readln(day);
Write(' - ( 0 23)
( 0 59), ');
Readln(time.hour,time.min);
Write(' = ');
Readln(price);
end;
writeln(' - 5 ');
Readln(Isk_nom);
{O Spis}
|
|
for i:=1 to N do
with Spis[i] do
if nom = Isk_nom then
begin
writeln(' ');
writeln(nom,' ',p1,' ',p2,' ',day,' ',time.hour,':',time.min,' ',price);
readkey;
halt;
end;
writeln(' ');
readkey;
End.
: , .
1
1. , 10 , :
...
5 20 15
2. , :
- ;
- ;
- , 1960 , "" .
2
1. , 10 , :
( .)
5 20
2. , :
- ;
- ;
- , 20000 . 100 .
3
1. , 10 , :
5 10 10 1 7
2. , :
- ;
- ;
- , " " (3) .
4
1. , 10 , :
...
15 20 integer 1900..2000
2. , :
- ;
- ;
- , 1950 = 55 .
5
1. , 10 , :
(.)
5 20 real
2. , :
- ;
- ;
- , 15000 ., .
6
1. , 10 , :
...
20 5 6
2. , :
- ;
- ;
- , " 971", 1979 .
7
1. , 10 , :
|
|
...
20 20 8
2. , :
- ;
- ;
- , " " 1990 .
8
1. , 10 , :
...
20 20 8
2. , :
- ;
- ;
- , " " 1990 .
9
1. , 10 , :
integer 20 10 1 7
2. , :
- ;
- ;
- , 50, " ", .
10
1. , 10 , :
...
15 30 integer 1900..2000
2. , :
- ;
- ;
- , 1970 " " .
11
1. , 10 , :
...
5 20 15
2. , :
- ;
- ;
- , 1950 " 11" .
12
1. , 10 , :
( .)
5 20
2. , :
- ;
- ;
- , 20000 . 180 .
13
1. , 10 , :
5 12 10 1 7
2. , :
- ;
- ;
- , " " 1 3 .
14
1. , 10 , :
...
15 20 integer 1900..2000
2. , :
- ;
- ;
- , 1980 100 .
15
1. , 10 , :
|
|
(.)
5 20 real
2. , :
- ;
- ;
- , , 25000 . .
16
1. , 10 , :
...
20 5 6
2. , :
- ;
- ;
- , " 972", 1980 .
17
1. , 10 , :
...
20 20 8
2. , :
- ;
- ;
- , " ", 1990 .
18
1. , 10 , :
...
20 20 8
2. , :
- ;
- ;
- , " " 1990 .
19
1. , 10 , :
integer 20 10 1 7
2. , :
- ;
- ;
- , 100 " " .
20
1. , 10 , :
...
15 30 integer 1900..2000
2. , :
- ;
- ;
- , 1970 " " .
21
1. , 10 , :
...
15 20
2. , :
- ;
- ;
- , 1987 , "" .
22
1. , 10 , :
( .)
20
2. , :
- ;
- ;
|
|
- , 100 . 10 .
23
1. , 10 , :
5 10 10 1 7
2. , :
- ;
- ;
- , " " (1) .
24
1. , 10 , :
...
15 10 byte 1910..2000
2. , :
- ;
- ;
- , 1991 = 3 .
25
1. , 10 , :
(.)
3 10 integer
2. , :
- ;
- ;
- , 50 ., .
26
1. , 10 , :
...
15 5 5 1970..2000
2. , :
- ;
- ;
- , " 06", 1990 .
27
1. , 10 , :
...
15 20 integer 3
2. , :
- ;
- ;
- , " ", 2000 " Z" .
- .. " ". - : , 1999.
- .. . . - .: , 2005.
- Turbo Pascal. http://pascal.sources.ru/