| |

,

:
  1. II . ( ).
  2. II . ( ).
  3. III. Visual Basic
  4. IV. Visual Basic
  5. - .
  6. . .
  7. , memory mapped
  8. 24 3 ()
  9. Pascal . - .
  10. . , , ,

஫쭮 ( ) ஭ ९⥫ : NataliaVR2005@yandex.ru. ⥥ 㪦: «_୥__㯯». ⥪ 㪦 ஫ 䩫.

 
 


ਫ:

ਭ ᮮ⢥ ࢮ 㪢 襩 䨫 (. ⡫ )

 

, , ,,
1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. 21. 22. 23. 24.

34:

 


1. ᪨ ⢥ 㭨

2.

3. ⢥ 㭨 ࢫ

4. ᪨ ⢥ ᪨ 㭨

5. ᭮᪨ ⢥ 孨᪨ 㭨

6. ᪨ ⢥ 㭨

7. ᪮᪨ 樮

8. ᪮᪨ ⢥ 孨᪨ 㭨

9. ᪮᪨ ⢥ 㭨

10. ᪮᪨ ୮-䨧᪨

11. ᪮᪨ ࣥ᪨

12. த᪨ ⢥ 孨᪨ 㭨

13. ᪨ ⢥ 孨᪨ 㭨

14. த᪨ ⢥ 㭨

15. ᨡ᪨ ⢥ 孨᪨ 㭨

16. ᨡ᪨ ⢥ 㭨

17. ᪨ ⢥ 孨᪨ 㭨 ⮭ ࣥ⨪

18. ᪨ ⢥ 孨᪨ 㭨

19. ᪨ ⢥ 孨᪨ 㭨

20. -᪨ ⢥ 孨᪨ 㭨

21. ⮢᪨ ⢥ 孨᪨ 㭨

22. ᪮ ⢥ 孨᪨ 㭨

23. ᪨ ⢥ 孨᪨ 㭨

24. ᫢᪨ ⢥ 孨᪨ 㭨


56:

1. 2. ⫨ 3. 4. 5. 6. ⭨
7. ୨ 8. 9. 㭨 10. ᯭ 11. ﭤ 12.
13. 㭨 14. 15. 16. 17. 18.
19. 20. 21. ࣥ⨭ 22. ૨ 23. - 24.

 

,

 

. . . . , () .

TYPE

< >=

RECORD

< 1 > : < >

< 2 > : < >

< N > : < >

END;

, , , :

TYPE

STR =

RECORD

FAM: STRING[20];

B1, B2, B3, B4, B5 :1..5;

SB : REAL;

END;

FAM , 1, B2, B3, B4, B5 , SB . STR , . 11.

 
 

 

 


11-

, 25, TBL:

VAR

TBL: ARRAY [1..25] OF STR;

:

< ->.< >

, , :

TBL[ 3 ].FAM:= ;

TBL[ 20 ].B2:=5;

TBL[ K+1 ].SB:=4.666;

. . , :

TYPE

STR=

RECORD

FAM : STRING[20]; B1, B2, B3, B4, B5 :2..5;

SB : REAL

END;

VAR Z1, Z2 : STR;

BEGIN

- - - - - - - -

Z1:=Z2;

:

Z1.FAM := Z2.FAM;

Z1.B1 := Z2.B2;

Z1.B2 := Z2.B2;

Z1.B3 := Z2.B3;

Z1.B4 := Z2.B4;

Z1.B5 := Z2.B5;

Z1.SB := Z2.SB;

, 25 .

...

PROGRAM BAL;

TYPE STR=

RECORD

FAM : STRING[20];

B1, B2, B3, B4, B5 : 1..5;

SB : REAL;

END;

VAR

TBL : ARRAY [ 1..25 ] OF STR;

I: INTEGER;

BEGIN

FOR I:=1 TO 25 DO { 25

BEGIN 5

READLN (TB < [ I ].FAM); }

READLN (TBL [ I ],B1;

READLN TBL [ I ],B2;

READLN TBL [ I ],B3;

READLN TBL [ I ],B4;

READLN TBL [ I ],B5);

END;

FOR I:= 1 TO 25 DO { - .}

BEGIN { }

TBL [ I ].SB:=(TBL [ I ].B1+TBL [ I ].B2+

TBL [ I ].B3+TBL[ I ].B4+TBL[ I ].B5;

{ }

WRITELN (TBL[ I ].SB)

END;

END.

, . WITH, , .

:

With < > do

< >;

. , TBL :

FOR I:=1 TO 25 DO

WITH TBL [ I ] DO

READ (FAM,B1,B2,B3,B4,B5);

, , .

PROGRAM SBAL;

TYPE

STR=

RECORD

FAM : STRING [ 15 ];

B1, B2, B3, B4, B5 : 2..5;

SB : REAL;

END;

VAR TBL : ARRAY [ 1..25 ] OF STR;

Y:STR;

I,Y,K,M : INTEGER;

X : REAL;

BEGIN

READLN ( M ); { }

FOR I:= 1 TO M DO

WITH TBL [ I ] DO

BEGIN

READLN ( FAM );

READLN (B1, B2, B3, B4, B5);

END;

FOR I:=1 TO M DO

WITH TBL [ I ] DO

SB:=(B1+B2+B3+B4+B5)/5; { . }

FOR I:=1 TO M-1 DO

 

BEGIN

K:=1;

X:=TBL [ I ].SB;

FOR J:= I+1 TO M DO

IF TBL [J].SB>X

THEN BEGIN

K:=J;

X:=TBL [ J].SB

END

Y:=TBL [ K ]; TBL [ K ]:=TBL [ I ]; TBL [ I ]:=Y

END;

END.

, 12.

 

/ ...
               

 

12-

 

ANKETA, :

TYPE

ANKETA=

RECORD

NPP: INTEGER;

FIO:

RECORD

FAM, IM, OT: STRING [15] ;

END;

DR:

RECORD

COD: 1900..2000;

MES: STRING [8];

DEN: 1..31

END;

POL: STRING[3];

END;

ANKETA FIO DR. .

100 , ANKETA 100, 100.

with, . , ANKETA.DR.GOD , :


: 2014-12-19; : 30 |

<== | ==>
஢ 楫 ୨ ⥪ . ⮫쪮 , ⢥ ⢫ !!!|

lektsii.net - . - 2014-2018 . (0.026 .)