7
:
1.
2.
, 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
" " .
, ( ) - , . . . , , . .
, , , .
: (Procedure) (Function). , , . , () ( ).
16. 1 . .