. :
1. , .
2. .
. . , , . -30, 10 . . , . . . | |
. , . , , (, , , , , ) 25 . , . , . | |
. , , , . , , , . -30, 10 . . Sa, Sb, Sc , , : - , , , ; - , - . Sa, Sb, Sc . | |
. , . - , , . 25 . . . . | |
. , . , , , ( 2..5, .. ). -25 . , 1 3 . . , . , , - . | |
. , . , , , : 1- , 0- . -30, 10 . . . , 5 , - 50 %, 25 %. , 4 5, . 3, - , , . . | |
. , . - , , (-, - ) -30, 10 . . , . , , . . | |
. , . - , , , , ( , ..). -25 . : - Y; - Z, - , . X, Y,Z, XX . | |
. , . - , , , , . -25 . , Y. X, Y . | |
. , . - , , , . -25 D- , - , - . . , , . X . | |
. , , . - , , ( , , , , , ). 25 . , . , , . | |
. , , , . , , , . -30, 10 . . Sa, Sb, Sc , , : - , ; - Sa, Sb, Sc . | |
. , , , . , , , . -30, 10 . . Sa, Sb, Sc , , : - , , , ; - Y - . Sa, Sb, Sc . Y | |
. , . - , , . 25 . . YYYY . XXXX YYYY . | |
. , . , , , ( 2..5, .. ). -25 . , 1 3 . . , S. , , , S - . | |
. , . , , , : 1- , 0- . -30, 10 . . . , 5 , - 50 %, 25 %. , 4 5, . 3, - , , . , . | |
. , . - , , (-, - ) -30, 10 . . , . , , . . | |
. , . - , , , , ( , , .). -25 . : - ( , , ) Y S; - Z, - , . X, Y,Z, XX . | |
. , . - , , , , . -25 . , Y Z. X, Y, H, Z . | |
. , . - , , , . -25 D- , - , - . . , , . X . | |
. , . - , , . 25 . . . . | |
. , . , , , , -. -30 . , . , . . | |
. , . - , , , , ( ). . . . . . | |
. , . - , , (, , ) . . . | |
. , : , , , . . , , | |
. , , , , , , , (, , ). . R . . R | |
. , , , , , , , (, , ). . R . . R | |
. , : , , , . -30, 10 : , , . . , . - . | |
. , (: , , , ..) . , , , ( 2..5, .. ). -25 . : - , 4 , 10 . - . : 1. 25 . 50 . - , , - . |
2 :
|
|
|
|
|
|
|
|
:
, . 5.
5 - ZAP
5 ZAP.
5
STATION | String [7] | |
TIP | String [12] | |
REGION | String [12] | |
EMK | () | Integer |
NX | . | Integer |
KV | Integer | |
TAX | Integer | |
MG | / | Integer |
P | Integer |
6 , .
6
() | . . | . | / | . | ||||
-10 | ||||||||
-23 | ||||||||
-46 | / | |||||||
17 | ||||||||
-22 | / | |||||||
-41 | ||||||||
AK-45 | ||||||||
A'-66 | / | |||||||
-62 | ||||||||
-26 | ||||||||
-43 | ||||||||
-20 | ||||||||
-63 | ||||||||
-24 | ||||||||
-64 | ||||||||
-67 | / | |||||||
-44 | ||||||||
'-35 | ||||||||
-28 | ||||||||
-33 |
6 . . 20 . , . .
6.
:
PROGRAM sozdan;
TYPE;
zap=record
station:string [7];
tip,region:string [12];
emk,nx,kv,tax,mg.pp:integer;
end;
VAR
f:file of zap;
x:zap;
I:integer;
BEGIN
ASSlGN (f, atc.dat');
REWRITE (f);
WRITELN(' 20 ђ);
|
|
FOR I=1 TO 20 DO
BEGIN
WRITE (':');
READLN (x.station);
WRITE ('ee :');
READLN (x.tip);
WRITE (' ');
READLN (x.region);
WRIT (' ckto:');
REAULN (x.nx);
WRITE (' :');
READLN (x.kv);
WRITE (' :');
READLN (x.tax);.
WRITE (' ;');
READLN (x.ing);
WRITE (' ;');
READLN (x.pp);
x.emk:=x.nx+x.kv+x.mg+x.tax+x.pp;
WRITE (f,x);
END;
CLOSE (f);
END.
, 75% . 7. . , . 75%, .
|
:
PROGRAM obrab;
USES crt;.
TYPE
zap = record
station:string [7];
tip,region:string [12];
emk,nx,kv,tax,mg,pp;integer;
end;
VAR
F:file of zap;
x:zap;
pr:real;
BEGIN
ASSIGN (f,atc.dat);
RESET (f);
WRITELN (' , >75%);
WRITLN (' _________________________________________________________ _);
WITELN ('|||.|() |...|...| .|
WHILE not ef (f) DO
BEGIN
READ(f,x);
pr:=x.kv/(x.kv+x.nx+x.tax+x.mg+x.pp)*100;
IF pr > 75 THEN
WRITELN (|, x.station:7,'|', x.tip:12;|', x.region:12,|, x.emk:5; |:3, x.nx:5, |:4, x.kv:5, |:4, x.tax:4, |, x.mg:4; |, x.pp:4, |:3);
END;
WRITELN (' Enter ');
WRITELN ('|______|________|__________|______|_____|______|_____|________|______|);
WHILE not keypressed DO;
CLOSE (f);
END.
7.
7 , >75%
() | . . | . | / | . | ||||
-67 | / | |||||||
-28 | ||||||||
-33 |
1