» , »


1

, ?

²²:

, , - . ʳ , , CONFIG.SYS. . . , , , . ,  . ( , , .)

2

, , (' ) . 25 , . , .

²²:

10 CLS: DIM fa$(25), re(25, 5)

PRINT : PRINT "###################### : ##############": PRINT

PRINT "1. "

PRINT "2. "

PRINT "3. "

PRINT "4. END": PRINT

11 INPUT " :"; n: IF n > 4 OR n < 1 THEN 11

ON n GOTO fem, rez, otl, 400

fem: CLS : PRINT "1. ": PRINT : PRINT

PRINT " :"

OPEN "fam" FOR OUTPUT AS #1

FOR = 1 TO 25: INPUT fa$(i): NEXT

FOR = 1 TO 25: PRINT #1, fa$(i): NEXT

FOR = 1 TO 25: PRINT fa$(i): NEXT

CLOSE

PRINT

LOCATE 24, 1: PRINT -

110 IF INKEY$ = "" THEN 110

GOTO 10

rez: CLS : PRINT "2. ": PRINT : PRINT

PRINT " "

OPEN "rez" FOR OUTPUT AS #1

FOR j = 1 TO 25

FOR = 1 TO 5

INPUT re(j, ): PRINT #1, re(j, )

NEXT , j

CLOSE

PRINT

LOCATE 24, 1: PRINT -

210 IF INKEY$ = "" THEN 210

GOTO 10

otl: CLS

OPEN "fam" FOR INPUT AS #1

OPEN "rez" FOR INPUT AS #2

FOR = 1 TO 25: INPUT #1, fa$(i): NEXT

FOR = 1 TO 25

FOR j = 1 TO 5

INPUT #2, re(i, j)

NEXT j,

CLOSE

CLS : x = 0: z = 1: PRINT " "

PRINT " ,, ,, "

FOR = 1 TO 25

z = z + 1: IF z > 14 THEN z = 2: x = x + 30

LOCATE z + 1, x + 1: PRINT ; fa$(i);

LOCATE z + 1, x + 15

FOR j = 1 TO 5

PRINT re(i, j);

NEXT j

PRINT

NEXT

PRINT :

PRINT " ³: ": s = 0: k = 0

FOR = 1 TO 25

FOR j = 1 TO 5

s = s + re(i, j)

NEXT j

IF s > 24 THEN : k = k + 1: PRINT k; "_______ "; fa$(i)

s = 0

NEXT : PRINT

PRINT -

300 IF INKEY$ = "" THEN 300

GOTO 10

400 END

( ')


.. ..

1 5 5 5 5 5 14 3 3 3 3 3

2 5 4 4 5 4 15 3 3 3 3 3

3 4 5 5 5 3 16 4 4 4 4 4

4 5 5 5 5 5 17 4 4 5 5 5

5 5 5 5 5 5 18 4 4 4 4 4

6 4 5 3 3 5 19 4 4 4 4 4

7 4 0 5 4 5 20 4 4 4 3 3

8 4 5 4 5 5 21 3 3 3 3 3

9 5 5 5 5 5 22 3 3 3 3 3

10 5 5 5 4 3 23 3 3 3 4 4

11 3 3 4 4 4 24 4 4 4 4 5

12 4 4 4 4 4 25 5 5 5 5 5

13 4 3 3 3 3

1 _______

2 _______

3 _______

4 _______

5 _______

 

-

 

: ( )

 

' : rez

 

5 5 5 5 5

5 4 4 5 4

4 5 5 5 3

5 5 5 5 5

5 5 5 5 5

4 5 3 3 5

4 5 5 4 5

4 5 4 5 5

5 5 5 5 5

5 5 5 4 3

3 3 4 4 4

4 4 4 4 4

4 3 3 3 3

3 3 3 3 3

 

3 3 3 3 3

4 4 4 4 4

4 4 5 5 5

4 4 4 4 4

4 4 4 4 4

4 4 4 3 3

3 3 3 3 3

3 3 3 3 3

3 3 3 4 4

4 4 4 4 5

5 5 5 5 5


 

: ( )

' : fam

 

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

˳:

1. . . . IBM PC . 7- -1997

2. . . . -1999

3. . . . . . -1983.

 

: