:   :
:    
 
 • 
 • 
 • 
 • 
 • 
 • 
 • 
 • 
 • 
 • 
 • 
 • 
 • 
 • 
 • 
 • 
 • 
 • 
 • 
 • 
 • 
 • 
 • 
 • 
 • 
 • 
 • 
 • 
 • 
 • 
 • 
 • 
 • 
 • 
 • 
 • 
 • 
 • 




:

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 i = 1 TO 25: INPUT fa$(i): NEXT i

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

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

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 i = 1 TO 5

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

NEXT i, 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 i = 1 TO 25: INPUT #1, fa$(i): NEXT i

FOR i = 1 TO 25

FOR j = 1 TO 5

INPUT #2, re(i, j)

NEXT j, i

CLOSE

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

PRINT " ,,Π 蠠 ,,Π "

FOR i = 1 TO 25

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

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

LOCATE z + 1, x + 15

FOR j = 1 TO 5

PRINT re(i, j);

NEXT j

PRINT

NEXT i

PRINT :

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

FOR i = 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 i: 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.



      ©2010