.


:




:

































 

 

 

 





. :

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%, .

 

 


       
 
 
   
.6 -


:

 

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





:


: 2017-01-28; !; : 433 |


:

:

, , .
==> ...

802 - | 763 -


© 2015-2024 lektsii.org - -

: 0.078 .