. , , ,

,,,

.


, .

:


,14

,,14,45,12,86

,,21,32,28,74

,,62,76,84,22

,. ,03,11,55,48

,,60,89,48,6

,,73,26,62,18

,,52,68,36,95

,,51,18,87,21

,,52,58,9,88

,. ,34,93,74,36

,,94,47,19,72

,,71,31,40,45

,,52,54,69,68

, ,01,40,94,59


:


1 40 94 59

. 3 11 55 48

14 45 12 86

. 34 93 74 36

52 58 9 88

51 18 87 21

52 54 69 68

52 68 36 95

62 76 84 22

71 31 40 45

21 32 28 74

60 89 48 6

73 26 62 18

94 47 19 72


, , .. , . ( ).

, ( ).

: , 2- , 4- . , . , , .

, Basic.

23



II

- BASIC .

, .

  • : ;

  • : , , , % , % , % .

, , , . 10, 5 . : , .

:

  1. , ( ).

  2. : , , .

  3. .

  4. .

  5. . :

  • / / -;

  • 500 250 ;

  • ;

  • -;

  • 4 4 - ;

  • , , , , .

  1. 60 94

  • 30% - 75%

  • .


14



I

MS Excel.

. 60 .

, . , %:

;

85%;

15%;

MS Excel:

, :

  1. ;

  2. ;

  3. . . ( );

  4. . . ( );

  5. ( );

  6. . . ( );

  7. % ( );

  8. % ( );

:

    • . . ;

    • . . ;

    • % ;

    • %;

    • ;

    • ;

    • 30 ;

    • .


, , , .

:

  1. . . ;

  2. ;

  3. % , ;

  4. .



.. ,

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

V=1150 3 ( );

V =35% ( );

Q=310 3/ ( );

=16,2 ( ).


3



, .


, , Excel 97:

(;_)

,

  • .

  • _ , .

(1;2;)

,

  • 1, 2, - , .

(;)

, .

  • .

  • .

(1;2;), (1;2;)

() . , , , ..

  • 1, 2, - , () .

ABS()

( ) .

  • , .

(__)

( 1 31)

  • __ , . 5.05.2000), - Microsoft Excel .

()

.

:

(()) 1 31. , 7 2000 . 7

. . Excel. , .

. .

10




1. I

1.1. 2 .

1.2. EXCEL 4 .

1.3. 8 .

1.4 9 .

1.5 10 .

1.6 11 .

1.7 12 .

2. II

2.1. 13 .

2.2. 14 .

2.3 BASIC 20 .

2.4 22 .

2.5 24 .


.


Microsoft Excel . , .

, .

.

, . , , , , ..

: . .

. , ( ), , .

.

. . , . , , ..

, . - , ..

11




  1. .. IBM PC . . 7- .-.; -, 1997.

  2. .. Windows 95. .: , 1996

  3. . Excel Windows 95. ..: Bhm, 1998

  4. Microsoft Office. . : , 1995

  5. . , 1997

  6. .. . , : . , , 1998

24



⢮ 㤮 ஬᫥,14
,宭異᪨,14,45,12,86
,,21,32,28,74
,஭,62,76,84,22
,.稡,03,11,55,48
,,60,89,48,6
,㢠,73,26,62,18
,⠫,52,68,36,95
,,51,18,87,21
,㭣,52,58,9,88
,.஭,34,93,74,36
,,94,47,19,72
,ફ,71,31,40,45
,䭯,52,54,69,68
, ࡠ,01,40,94,59


94


-11

..


:

..


2000.

2.


2. 2

3. Excel 4

4. 7

5. , 8

6. , , 10

7. 11

8. , ( , ). 12

9. . 13

10. . 13

11. - 14

12. Basic 15

13. . 18

14. : 18

15. 19

2.


. 60 . .

.

:


V

1000 3

-

V

50%

Q

290 3/

P

13,8

, %

  • -50%

  • -85%

  • -15%

MS Excel:


, :

  1. ;

  2. ;

  3. . . ;

  4. . . ;

  5. ;

  6. . .;

  7. % ;

  8. % ;


:

  • . . ;

  • . . ;

  • % ;

  • %;

  • ;

  • ;

  • - - 30 ;

  • - .


    - , , , .


    :

  1. . . ;

  2. ;

  3. % , , , ;

  4. % .


3. Excel

Microsoft Excel 97 Windows 95 (98, NT) , , , .

( ) Microsoft Office 97 , Office 97, () .

Excel. :

- Excel Microsoft Office 97, , Excel , () . Excel , OLE 2.0 (Object Linking and Embedding).

Microsoft Office 97- Microsoft Outlook Office.

Web. Microsoft Excel Office, . Web. Office , .

Microsoft Excel , , . .


- (), , . Office. , , . .


EXCEL - Excel . Excel, , . , , , , . Microsoft Office 97 .


- , . . , 255 , VBA- . - , , . 32 000 65 536 . Excel 16 , .

, Microsoft Excel, Microsoft Excel 97.


- , . , , .

Excel , . , . . , . .


- . , , (=), Excel . , , .

. , . . , . , .

, Excel , . , Excel , . , . .

, , . .

- .


- . , Excel 200 , . , , , . .

, , Office .


- , Excel , " ".

, . MS Excel 5.0 - , .

.

Excel. . , , .


- .

, . , , . , (). Excel , . , , - .

Excel , .


- Excel .

, , . (Pivot Table), Excel, . . .

, Excel . , , .


- Excel , . , , , . , . , , . Excel , , . , , , .


- Excel MS Query. Query () , : Ms Access, dBASE, FoxPro, Oracle, Paradox, SQL Server. , , , .


VISUAL BASIC - 5.0 Excel , Visual Basic for Applications (VBA).

Excel , . , .

- , , . , . . , , .


4.


1). . , 2, 2,5.


2). :

() : (9:10), - , , , (A9;A10, B9;C10, D9;D10, F9:G9, H9:H10) ( ). , . ( ) . . , 8:8, - .

, ( Arial Cyr, - 16, , - 14, , - 10). (-). () ( ). ( ).


3). :

, ( ) , / . , . Vr V = Z k * 60 , Z k . VSk VS k = VS k-1 + V k . ()., N k =(VR k-1+Vk-V*V%)/Q . . VR k =VR k-1+V k-N *Q 3 k- . . VR %k - k- VR %k= VRk/V ΔVR %k- % , : ΔVR %k = VR %k-V%. , .


3). :

24∑i=1 = V k

24 ∑i=1 VRk/24

% 24 ∑i=1 VR%k/24

24 ∑i=1 N k

24 ∑i=1 N k* P*30

ABS()b (). (Vk)/Q . .

, , . , (), (). , .

:

  • .

  • , . . , . .

  • , .

5. ,

12:A36 12:B36
13:C36 13*60
  • - k-

  • Vk=Zk*60

D13:D36

13+D12
  • VSk=VSk-1+Vk - , . . , , , )

13:E36

((F12+C13-$F$4*$F$5)/$F$6;0)

  • Nk=(VRk-1+Vk-V*Q)/ Q

  • : "" .

F13:36 F12+C13-E13*$F$6.
  • VRr=VRr-1+Vr-Nk*Q


G13:G36 F12+C13-E13*$F$6.
  • VR%k=VRk/V

  • ,


H13:H36 G12-$E$4
  • VR%k=VR%k-V%

  • ,


F43 (C13:C36)
  • ;

  • .

F44 (F12:F36)/24
  • ;

  • , ;

F45

(G12:G36)/24

  • ;

  • , ,

F46 ABS( (H12:H36))
  • ABS(( VR%k))

  • : " "" - ,

F47

((C12:C36))/$E$5;0)

  • ((Vk)/Q)

  • : : " "" - ,

F48 (E12:E36)
  • ,

F49 (E12:E36)*$E$6*30
  • ,

F50

(()*$F$49/30

  • : ;


6. , ,


(1;2;)

(;_)


  • .

  • :

  • "" .

  • "_" , .


(;)


  • :

  • "" .

  • "" .

(, _ )

  • :

  • "" .

  • " _ "

(1;2;), (1;2;)


  • () . , , , ..

  • :

  • " 1, 2" , () .

ABS()


  • ( ) .

  • :

  • "" , .

(__)


-
  • ( 1 31)

  • :

  • " " -, Microsoft Office . , , , 21.01, 21 .

()


-

  • . , Microsoft Excel


, , , (()), . : ABS( ()), ( ())

7.


, ,

. (, , ) . , / .

, , , ( ). (, ) .

, . , .

  1. , .

  2. .

15 , SHIFT.

.

. , , , . . .

. , , - ( , ).

, : , , . . , , .

Excel , . : , , , , . , . : , , , -, , .

. , , . . . 90 .

. .

, , . . , , , .

  1. , .

  2. .

.

, .

. , , , .

  1. , .

  2. .

, , . OK.

,

, . , , , , . . , ; , , .

8. , ( , ).

Microsoft Excel . , , , .

, . . , , . . .

- . , , . , , : , , , , ..

.

  1. , , . , , .

  2. .

  3. .

4 , , .

  • ( , , , )

  • : . .

  • . , ( ), , .

  • .

. . () , . , , , ..

, . - , ..

9. .

, , Microsoft Excel . , . , , , , . Excel, , . Excel , . , , , Microsoft Excel, , .


10. .


- Basic (Qbasic, TurboBasic) .

, , :

" ",14

"",".","14",45,12,86

"P","","21",32,28,74

"P","","62",76,84,22

"",".","03",11,55,48

"P","P","60",89,48,06

"P","","73",26,62,18

"P","","52",68,36,95

"P","","51",18,87,21

"","","52",58,09,88

"",".","34",93,74,36

"P","","94",47,19,72

"P","","71",31,40,45

"P","","52",54,69,68

""," ","01",40,94,59


  • ;

  • : , , , , , .

, , , . , 10, 5. : , .

:

  1. , ( ).

  2. : 0-50%, 50%-75%, 75%-100%

  3. , .

  4. .

  5. . :

  • / / -;

  • 500 250 ;

  • -;

  • -;

  • 4 - ;

  • , , , , .

  1. 11-83: .

11. -

.

( ) , , , .

( ) . , , , , , , .

, .

. , , . , . :

  • , ;

  • ;

  • N;

  • 6 , ( , ..) N .

  • ;

  • ;

  • , ;

  • ;

  • ;

  • ;

  • , ( );

  • ;

12. Basic

CLS

REM

INPUT " "; file$

OPEN file$ FOR INPUT AS #1

INPUT #1, n

DIM c$(n), n$(n), s$(n), k(n), f(n), t(n)

PRINT " "

FOR i = 1 TO n

INPUT #1, c$(i), n$(i), s$(i), k(i), f(i), t(i)

GOSUB 2

NEXT i

FOR i = 1 TO n

FOR j = 1 TO n - 1

IF n$(j) > n$(j + 1) GOTO 1

SWAP n$(j), n$(j + 1): SWAP c$(j), c$(j + 1): SWAP s$(j), s$(j + 1)

SWAP k(j), k(j + 1): SWAP f(j), f(j + 1): SWAP t(j), t(j + 1)

1 : NEXT j

NEXT i

PRINT

REM

PRINT " "

PRINT

FOR i = 1 TO n

GOSUB 2

NEXT i

REM

PRINT "0%-50%"

FOR i = 1 TO n

IF f(i) > 0 AND f(i) < 50 THEN GOSUB 2

NEXT i

PRINT "50%-75%"

FOR i = 1 TO n

IF f(i) >= 50 AND f(i) < 75 THEN GOSUB 2

NEXT i

PRINT "75%-100%"

FOR i = 1 TO n

IF f(i) >= 75 AND f(i) < 100 THEN GOSUB 2

NEXT i

REM

INPUT " "; file2$

OPEN file2$ FOR OUTPUT AS #2

PRINT #2, " 0%-50%, "

PRINT

FOR i = 1 TO n

IF f(i) < 50 AND f(i) > 0 THEN GOSUB 3

NEXT i

PRINT #2, " 50%-75%, "

PRINT

FOR i = 1 TO n

IF f(i) <= 75 AND f(i) >= 50 THEN GOSUB 3

NEXT i

PRINT #2, " 75%-100%, "

PRINT

FOR i = 1 TO n

IF f(i) < 100 AND f(i) > 75 THEN GOSUB 3

NEXT i

CLOSE #1, #2

REM

SCREEN 12

COLOR 2

LOCATE 1, 7

PRINT " -.y-11. .. 94"

h = 5

FOR i = 1 TO 10

h = h + 6

LOCATE 6, h: PRINT i

NEXT i

r = 6

FOR i = 1 TO 5

r = r + 3

LOCATE r, 7: PRINT i

NEXT i

LINE (70, 100)-(570, 350), 1, BF

FOR i = 70 TO 570 STEP 50

FOR j = 100 TO 350 STEP 50

LINE (i, 100)-(i, 350), 10

LINE (70, j)-(570, j), 10

NEXT j

NEXT i

FOR i = 1 TO n

d1 = INT(VAL(s$(i)) / 10)

d2 = ABS((d1 - VAL(s$(i)) / 10) * 10)

CIRCLE (72 + d1 * 50 + INT(RND(10) * 46), 102 + d2 * 50 + INT(RND(1) * 46)), 3, 10

NEXT i

REM

a = 0: o = 0

FOR i = 1 TO n

IF VAL(s$(i)) <= 83 AND VAL(s$(i)) >= 11 THEN a = a + f(i): k = k + 1

NEXT i

FOR i = 1 TO n

IF VAL(s$(i)) <= 83 AND VAL(s$(i)) >= 11 AND c$(i) = "SRTM" THEN o = o + 1

NEXT i

LOCATE 24, 10: PRINT "- "; "-"; n

LOCATE 25, 18: PRINT " 11-83 :"

LOCATE 26, 21: PRINT " - CPTM"; o; ""

LOCATE 27, 21: PRINT " "; a / k; "%"

END

REM

2 : PRINT c$(i); n$(i); s$(i); k(i); f(i); t(i)

RETURN

3 PRINT #2, c$(i), n$(i), s$(i), k(i), f(i), t(i)

RETURN


14

BATM, SUHONDAEVSKIJ, 14, 45, 12, 86

MRTM, ATIA, 21, 32, 28, 74

SRTM, NEIRON, 62, 76, 84, 22

BATM, P.CAHCIBADZE, 03, 11, 55, 48

MRTM, RAMIGALA, 60, 89, 48, 6

MRTM, DITUVA, 73, 26, 62, 18

SRTM, MONOKRISTALL, 52, 68, 36, 95

SRTM, TAVA, 51, 18, 87, 21

BATM, PLUNGE, 52, 58, 9, 88

BATM, P.SAFRANOV, 34, 93, 74, 36

MRTM, DUSETOS, 94, 47, 19, 72

SRTM, BERKLIJ, 71, 31, 40, 45

SRTM, KORIFENA, 52, 54, 69, 68

BATM, STARIJ ARBAT, 01, 40, 94, 59


0%-50%,

BATM SUHONDAEVSKIJ 04 45 12 86

MRTM RAMIGALA 60 89 48 6

BATM PLUNGE 52 58 9 88

SRTM MONOKRISTALL 52 68 36 95

MRTM DUSETOS 94 47 19 72

SRTM BERKLIJ 71 31 40 45

MRTM ATIA 01 32 28 74

50%-75%,

BATM P.SAFRANOV 34 93 74 36

BATM P.CAHCIBADZE 03 11 55 48

SRTM KORIFENA 52 54 69 68

MRTM DITUVA 73 26 62 18

75%-100% ,

SRTM TAVA 51 18 87 21

BATM STARIJ ARBAT 01 40 94 59

SRTM NEIRON 62 76 84 22


13. .


, , Basic , , , , , . , (). Basic, , , , . Basic , .


14. :


  1. Microsoft Excel Windows 95. Microsoft Press. . " - - 1996."


  1. IBM PC . . .. . . " - - 1997."


  1. Microsoft Office. . . " - - 1995."


15.

Excel





















94


-11

..


:

..


2000.

2.


2. 2

3. Excel 4

4. 7

5. , 8

6. , , 10

7. 11

8. , ( , ). 12

9. . 13

10. . 13

11. - 14

12. Basic 15

13. . 18

14. : 18

15. 19

2.


. 60 . .

.

:


V

1000 3

-

V

50%

Q

290 3/

P

13,8

, %

  • -50%

  • -85%

  • -15%

MS Excel:


, :

  1. ;

  2. ;

  3. . . ;

  4. . . ;

  5. ;

  6. . .;

  7. % ;

  8. % ;


:

  • . . ;

  • . . ;

  • % ;

  • %;

  • ;

  • ;

  • - - 30 ;

  • - .


    - , , , .


    :

  1. . . ;

  2. ;

  3. % , , , ;

  4. % .


3. Excel

Microsoft Excel 97 Windows 95 (98, NT) , , , .

( ) Microsoft Office 97 , Office 97, () .

Excel. :

- Excel Microsoft Office 97, , Excel , () . Excel , OLE 2.0 (Object Linking and Embedding).

Microsoft Office 97- Microsoft Outlook Office.

Web. Microsoft Excel Office, . Web. Office , .

Microsoft Excel , , . .


- (), , . Office. , , . .


EXCEL - Excel . Excel, , . , , , , . Microsoft Office 97 .


- , . . , 255 , VBA- . - , , . 32 000 65 536 . Excel 16 , .

, Microsoft Excel, Microsoft Excel 97.


- , . , , .

Excel , . , . . , . .


- . , , (=), Excel . , , .

. , . . , . , .

, Excel , . , Excel , . , . .

, , . .

- .


- . , Excel 200 , . , , , . .

, , Office .


- , Excel , " ".

, . MS Excel 5.0 - , .

.

Excel. . , , .


- .

, . , , . , (). Excel , . , , - .

Excel , .


- Excel .

, , . (Pivot Table), Excel, . . .

, Excel . , , .


- Excel , . , , , . , . , , . Excel , , . , , , .


- Excel MS Query. Query () , : Ms Access, dBASE, FoxPro, Oracle, Paradox, SQL Server. , , , .


VISUAL BASIC - 5.0 Excel , Visual Basic for Applications (VBA).

Excel , . , .

- , , . , . . , , .


4.


1). . , 2, 2,5.


2). :

() : (9:10), - , , , (A9;A10, B9;C10, D9;D10, F9:G9, H9:H10) ( ). , . ( ) . . , 8:8, - .

, ( Arial Cyr, - 16, , - 14, , - 10). (-). () ( ). ( ).


3). :

, ( ) , / . , . Vr V = Z k * 60 , Z k . VSk VS k = VS k-1 + V k . ()., N k =(VR k-1+Vk-V*V%)/Q . . VR k =VR k-1+V k-N *Q 3 k- . . VR %k - k- VR %k= VRk/V ΔVR %k- % , : ΔVR %k = VR %k-V%. , .


3). :

24∑i=1 = V k

24 ∑i=1 VRk/24

% 24 ∑i=1 VR%k/24

24 ∑i=1 N k

24 ∑i=1 N k* P*30

ABS()b (). (Vk)/Q . .

, , . , (), (). , .

:

  • .

  • , . . , . .

  • , .

5. ,

12:A36 12:B36
13:C36 13*60
  • - k-

  • Vk=Zk*60

D13:D36

13+D12
  • VSk=VSk-1+Vk - , . . , , , )

13:E36

((F12+C13-$F$4*$F$5)/$F$6;0)

  • Nk=(VRk-1+Vk-V*Q)/ Q

  • : "" .

F13:36

F12+C13-E13*$F$6.
  • VRr=VRr-1+Vr-Nk*Q


G13:G36 F12+C13-E13*$F$6.
  • VR%k=VRk/V

  • ,


H13:H36 G12-$E$4
  • VR%k=VR%k-V%

  • ,


F43 (C13:C36)
  • ;

  • .

F44 (F12:F36)/24
  • ;

  • , ;

F45

(G12:G36)/24

  • ;

  • , ,

F46 ABS( (H12:H36))
  • ABS(( VR%k))

  • : " "" - ,

F47

((C12:C36))/$E$5;0)

  • ((Vk)/Q)

  • : : " "" - ,

F48

(E12:E36)

  • ,

F49

(E12:E36)*$E$6*30

  • ,

F50

(()*$F$49/30

  • : ;


6. , ,


(1;2;)

(;_)


  • .

  • :

  • "" .

  • "_" , .


(;)


  • :

  • "" .

  • "" .

(, _ )

  • :

  • "" .

  • " _ "

(1;2;), (1;2;)


  • () . , , , ..

  • :

  • " 1, 2" , () .

ABS()


  • ( ) .

  • :

  • "" , .

(__)


-
  • ( 1 31)

  • :

  • " " -, Microsoft Office . , , , 21.01, 21 .

()


-

  • . , Microsoft Excel


, , , (()), . : ABS( ()), ( ())

7.


, ,

. (, , ) . , / .

, , , ( ). (, ) .

, . , .

  1. , .

  2. .

15 , SHIFT.

.

. , , , . . .

. , , - ( , ).

, : , , . . , , .

Excel , . : , , , , . , . : , , , -, , .

. , , . . . 90 .

. .

, , . . , , , .

  1. , .

  2. .

.

, .

. , , , .

  1. , .

  2. .

, , . OK.

,

, . , , , , . . , ; , , .

8. , ( , ).

Microsoft Excel . , , , .

, . . , , . . .

- . , , . , , : , , , , ..

.

  1. , , . , , .

  2. .

  3. .

4 , , .

  • ( , , , )

  • : . .

  • . , ( ), , .

  • .

. . () , . , , , ..

, . - , ..

9. .

, , Microsoft Excel . , . , , , , . Excel, , . Excel , . , , , Microsoft Excel, , .


10. .


- Basic (Qbasic, TurboBasic) .

, , :

" ",14

"",".","14",45,12,86

"P","","21",32,28,74

"P","","62",76,84,22

"",".","03",11,55,48

"P","P","60",89,48,06

"P","","73",26,62,18

"P","","52",68,36,95

"P","","51",18,87,21

"","","52",58,09,88

"",".","34",93,74,36

"P","","94",47,19,72

"P","","71",31,40,45

"P","","52",54,69,68

""," ","01",40,94,59


  • ;

  • : , , , , , .

, , , . , 10, 5. : , .

:

  1. , ( ).

  2. : 0-50%, 50%-75%, 75%-100%

  3. , .

  4. .

  5. . :

  • / / -;

  • 500 250 ;

  • -;

  • -;

  • 4 - ;

  • , , , , .

  1. 11-83: .

11. -

.

( ) , , , .

( ) . , , , , , , .

, .

. , , . , . :

  • , ;

  • ;

  • N;

  • 6 , ( , ..) N .

  • ;

  • ;

  • , ;

  • ;

  • ;

  • ;

  • , ( );

  • ;

12. Basic

CLS

REM

INPUT " "; file$

OPEN file$ FOR INPUT AS #1

INPUT #1, n

DIM c$(n), n$(n), s$(n), k(n), f(n), t(n)

PRINT " "

FOR i = 1 TO n

INPUT #1, c$(i), n$(i), s$(i), k(i), f(i), t(i)

GOSUB 2

NEXT i

FOR i = 1 TO n

FOR j = 1 TO n - 1

IF n$(j) > n$(j + 1) GOTO 1

SWAP n$(j), n$(j + 1): SWAP c$(j), c$(j + 1): SWAP s$(j), s$(j + 1)

SWAP k(j), k(j + 1): SWAP f(j), f(j + 1): SWAP t(j), t(j + 1)

1 : NEXT j

NEXT i

PRINT

REM

PRINT " "

PRINT

FOR i = 1 TO n

GOSUB 2

NEXT i

REM

PRINT "0%-50%"

FOR i = 1 TO n

IF f(i) > 0 AND f(i) < 50 THEN GOSUB 2

NEXT i

PRINT "50%-75%"

FOR i = 1 TO n

IF f(i) >= 50 AND f(i) < 75 THEN GOSUB 2

NEXT i

PRINT "75%-100%"

FOR i = 1 TO n

IF f(i) >= 75 AND f(i) < 100 THEN GOSUB 2

NEXT i

REM

INPUT " "; file2$

OPEN file2$ FOR OUTPUT AS #2

PRINT #2, " 0%-50%, "

PRINT

FOR i = 1 TO n

IF f(i) < 50 AND f(i) > 0 THEN GOSUB 3

NEXT i

PRINT #2, " 50%-75%, "

PRINT

FOR i = 1 TO n

IF f(i) <= 75 AND f(i) >= 50 THEN GOSUB 3

NEXT i

PRINT #2, " 75%-100%, "

PRINT

FOR i = 1 TO n

IF f(i) < 100 AND f(i) > 75 THEN GOSUB 3

NEXT i

CLOSE #1, #2

REM

SCREEN 12

COLOR 2

LOCATE 1, 7

PRINT " -.y-11. .. 94"

h = 5

FOR i = 1 TO 10

h = h + 6

LOCATE 6, h: PRINT i

NEXT i

r = 6

FOR i = 1 TO 5

r = r + 3

LOCATE r, 7: PRINT i

NEXT i

LINE (70, 100)-(570, 350), 1, BF

FOR i = 70 TO 570 STEP 50

FOR j = 100 TO 350 STEP 50

LINE (i, 100)-(i, 350), 10

LINE (70, j)-(570, j), 10

NEXT j

NEXT i

FOR i = 1 TO n

d1 = INT(VAL(s$(i)) / 10)

d2 = ABS((d1 - VAL(s$(i)) / 10) * 10)

CIRCLE (72 + d1 * 50 + INT(RND(10) * 46), 102 + d2 * 50 + INT(RND(1) * 46)), 3, 10

NEXT i

REM

a = 0: o = 0

FOR i = 1 TO n

IF VAL(s$(i)) <= 83 AND VAL(s$(i)) >= 11 THEN a = a + f(i): k = k + 1

NEXT i

FOR i = 1 TO n

IF VAL(s$(i)) <= 83 AND VAL(s$(i)) >= 11 AND c$(i) = "SRTM" THEN o = o + 1

NEXT i

LOCATE 24, 10: PRINT "- "; "-"; n

LOCATE 25, 18: PRINT " 11-83 :"

LOCATE 26, 21: PRINT " - CPTM"; o; ""

LOCATE 27, 21: PRINT " "; a / k; "%"

END

REM

2 : PRINT c$(i); n$(i); s$(i); k(i); f(i); t(i)

RETURN

3 PRINT #2, c$(i), n$(i), s$(i), k(i), f(i), t(i)

RETURN


14

BATM, SUHONDAEVSKIJ, 14, 45, 12, 86

MRTM, ATIA, 21, 32, 28, 74

SRTM, NEIRON, 62, 76, 84, 22

BATM, P.CAHCIBADZE, 03, 11, 55, 48

MRTM, RAMIGALA, 60, 89, 48, 6

MRTM, DITUVA, 73, 26, 62, 18

SRTM, MONOKRISTALL, 52, 68, 36, 95

SRTM, TAVA, 51, 18, 87, 21

BATM, PLUNGE, 52, 58, 9, 88

BATM, P.SAFRANOV, 34, 93, 74, 36

MRTM, DUSETOS, 94, 47, 19, 72

SRTM, BERKLIJ, 71, 31, 40, 45

SRTM, KORIFENA, 52, 54, 69, 68

BATM, STARIJ ARBAT, 01, 40, 94, 59


0%-50%,

BATM SUHONDAEVSKIJ 04 45 12 86

MRTM RAMIGALA 60 89 48 6

BATM PLUNGE 52 58 9 88

SRTM MONOKRISTALL 52 68 36 95

MRTM DUSETOS 94 47 19 72

SRTM BERKLIJ 71 31 40 45

MRTM ATIA 01 32 28 74

50%-75%,

BATM P.SAFRANOV 34 93 74 36

BATM P.CAHCIBADZE 03 11 55 48

SRTM KORIFENA 52 54 69 68

MRTM DITUVA 73 26 62 18

75%-100% ,

SRTM TAVA 51 18 87 21

BATM STARIJ ARBAT 01 40 94 59

SRTM NEIRON 62 76 84 22


13. .


, , Basic , , , . , (). Basic, . (Debuger), , , .

14. :


  1. Microsoft Excel Windows 95. Microsoft Press. . " - - 1996."


  1. IBM PC . . .. . . " - - 1997."


  1. Microsoft Office. . . " - - 1995."


15.

Excel






















. 60 . .

.

:

V1000 3

-

V50%

Q290 3/

P13,8


, %

-50%

-85%

-15%

MS Excel:

, :

  1. ;

  2. ;

  3. . . ;

  4. . . ;

  5. ;

  6. . .;

  7. % ;

  8. % ;

:

  • . . ;

  • . . ;

  • % ;

  • %;

  • ;

  • ;

  • - - 30 ;

  • - .

    - , , , .

    :

  1. . . ;

  2. ;

  3. % , ;

  4. % .





.


:

  • ;

  • ;

  • ;

  • ;

  • ;

  • .

.


:

  • - . , ;

  • - ;

  • , .

  • , . , : =(3:12).


. , , 1. 1 , . . . : “ENTER” , .

, “ENTER”. . .


, . : ( ) . “F2” .


Excel, , , .

:

  • , , , ;

  • , = ( ) +();

  • , ;

  • Excel , .


. , , ( G) , G3 :=E3+F3, G4 - =E4+F4 .. Excel . :

  1. ( , );

  2. .

  3. ; . , G3, . . Excel G3 . G4:G12 . . .


, , . , , , , 1 10. , , ($A$1). . , , .. . :

  • $ ;

  • , , , F4.

, , (13).


Excel (, , , . ) Excel :

  • ( =,, =(1:5), 1:5 );

  • ;

  • fx .


, , . , , , . , , , .


CLS

REM Vvod danni

INPUT "vvediimia fila"; file$

OPEN file$ FOR INPUT AS #1

INPUT #1, n

DIM c$(n), n$(n), s(n), k(n), f(n), t(n)

PRINT "ishodni massiv"

FOR i = 1 TO n

INPUT #1, c$(i), n$(i), s(i), k(i), f(i), t(i)

GOSUB 2

NEXT i

FOR i = 1 TO n

FOR j = 1 TO n - 1

IF n$(j) > n$(j + 1) GOTO 1

SWAP n$(j), n$(j + 1): SWAP c$(j), c$(j + 1): SWAP s(j), s(j + 1)

SWAP k(j), k(j + 1): SWAP f(j), f(j + 1): SWAP t(j), t(j + 1)

1 : NEXT j

NEXT i

PRINT

REM Sortiruem

PRINT "danni pasle sortirovke"

PRINT

FOR i = 1 TO n

GOSUB 2

NEXT

PRINT "danni posle sortirovki"

PRINT "0%-50%"

FOR i = 1 TO n

IF f(i) > 0 AND f(i) < 50 THEN GOSUB 2

NEXT i

REM Grupiruem

PRINT "50%-75%"

FOR i = 1 TO n

IF f(i) >= 50 AND f(i) < 75 THEN GOSUB 2

NEXT i

PRINT "75%-100%"

FOR i = 1 TO n

IF f(i) >= 75 AND f(i) < 100 THEN GOSUB 2

NEXT i

REM vivodim

INPUT "Vvedite imai vihod file"; file2$

OPEN file2$ FOR OUTPUT AS #2

PRINT #2, "Suda s vilovom 0%-50%, otsortir v por vosrast"

PRINT

FOR i = 1 TO n

IF f(i) < 50 AND f(i) > 0 THEN GOSUB 3

NEXT i

PRINT #2, "Suda s vilovom 50%-75%, otsort v por vosrast"

PRINT

FOR i = 1 TO n

IF f(i) <= 75 AND f(i) >= 50 THEN GOSUB 3

NEXT i

PRINT #2, "Suda s vilovom 75%-100% v por vosrast"

PRINT

FOR i = 1 TO n

IF f(i) < 100 AND f(i) > 75 THEN GOSUB 3

NEXT i

CLOSE #1, #2

REM risovanie

SCREEN 12

COLOR 2

LOCATE 1, 7

PRINT "Kursovai rabota po in-ke.y-11.Nikishova.V94"

h = 5

FOR i = 1 TO 10

h = h + 6

LOCATE 6, h: PRINT i

NEXT i

r = 6

FOR i = 1 TO 5

r = r + 3

LOCATE r, 7: PRINT i

NEXT i

LINE (70, 100)-(570, 350), 1, BF

FOR i = 70 TO 570 STEP 50

FOR j = 100 TO 350 STEP 50

LINE (i, 100)-(i, 350), 10

LINE (70, j)-(570, j), 10

NEXT j

NEXT i

FOR i = 1 TO n

d1 = INT(s(i) / 10)

d2 = ABS((d1 - s(i) / 10) * 10)

CIRCLE (72 + d1 * 50 + INT(RND(10) * 46), 102 + d2 * 50 + INT(RND(1) * 46)), 3, 10

NEXT i

REM shach1, snach2

a = 0: o = 0

FOR i = 1 TO n

IF s(i) <= 83 AND s(i) >= 11 THEN a = a + f(i): k = k + 1

IF s(i) <= 83 AND s(i) >= 11 AND c$(i) = "SRTM" THEN o = o + 1

NEXT i

LOCATE 24, 10: PRINT "Kolichestvo sudov v promislovom r-ne"; "-"; n

LOCATE 25, 18: PRINT "Danni po sudam 60-69 promislova r-na:"

LOCATE 26, 21: PRINT " kol-vo sudov tipa CPTM"; o

LOCATE 27, 21: PRINT "crednee snuch vilova vseh sudov"; a / k

END

2 : PRINT c$(i); n$(i); s(i); k(i); f(i); t(i)

RETURN

3 PRINT #2, c$(i), n$(i), s(i), k(i), f(i), t(i)

RETURN


14

BATM, SUHONDAEVSKIJ, 14, 45, 12, 86

MRTM, ATIA, 21, 32, 28, 74

SRTM, NEIRON, 62, 76, 84, 22

BATM, P.CAHCIBADZE, 03, 11, 55, 48

MRTM, RAMIGALA, 60, 89, 48, 6

MRTM, DITUVA, 73, 26, 62, 18

SRTM, MONOKRISTALL, 52, 68, 36, 95

SRTM, TAVA, 51, 18, 87, 21

BATM, PLUNGE, 52, 58, 9, 88

BATM, P.SAFRANOV, 34, 93, 74, 36

MRTM, DUSETOS, 94, 47, 19, 72

SRTM, BERKLIJ, 71, 31, 40, 45

SRTM, KORIFENA, 52, 54, 69, 68

BATM, STARIJ ARBAT, 01, 40, 94, 59


Suda s vilovom 0%-50%, otsortir v por vosrast

BATM SUHONDAEVSKIJ 14 45 12 86

MRTM RAMIGALA 60 89 48 6

BATM PLUNGE 52 58 9 88

SRTM MONOKRISTALL 52 68 36 95

MRTM DUSETOS 94 47 19 72

SRTM BERKLIJ 71 31 40 45

MRTM ATIA 21 32 28 74

Suda s vilovom 50%-75%, otsort v por vosrast

BATM P.SAFRANOV 34 93 74 36

BATM P.CAHCIBADZE 3 11 55 48

SRTM KORIFENA 52 54 69 68

MRTM DITUVA 73 26 62 18

Suda s vilovom 75%-100% v por vosrast

SRTM TAVA 51 18 87 21

BATM STARIJ ARBAT 1 40 94 59

SRTM NEIRON 62 76 84 22


. , . :

 

 

 

! , , , .
. , :