,,,
.
, .
:
,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.
II
- BASIC .
, .
: ;
: , , , % , % , % .
, , , . 10, 5 . : , .
:
, ( ).
: , , .
.
.
. :
/ / -;
500 250 ;
;
-;
4 4 - ;
, , , , .
60 94
30% - 75%
.
I
MS Excel.
. 60 .
, . , %:
;
85%;
15%;
MS Excel:
, :
;
;
. . ( );
. . ( );
( );
. . ( );
% ( );
% ( );
:
. . ;
. . ;
% ;
%;
;
;
30 ;
.
, , , .
:
. . ;
;
% , ;
.
.. ,
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 ( ).
, , 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. , .
. .
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 . , .
, .
.
, . , , , , ..
: . .
. , ( ), , .
.
. . , . , , ..
, . - , ..
.. IBM PC . . 7- .-.; -, 1997.
.. Windows 95. .: , 1996
. Excel Windows 95. ..: Bhm, 1998
Microsoft Office. . : , 1995
. , 1997
.. . , : . , , 1998
94
-11
..
:
..
2000.
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:
, :
;
;
. . ;
. . ;
;
. .;
% ;
% ;
:
. . ;
. . ;
% ;
%;
;
;
- - 30 ;
- .
- , , , .
:
. . ;
;
% , , , ;
% .
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 , . , .
- , , . , . . , , .
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 . .
, , . , (), (). , .
:
.
, . . , . .
, .
|
|
|
12:A36 12:B36 |
|
|
13:C36 | 13*60 |
|
D13:D36 |
13+D12 |
|
13:E36 |
((F12+C13-$F$4*$F$5)/$F$6;0) |
|
F13:36 | F12+C13-E13*$F$6. |
|
G13:G36 | F12+C13-E13*$F$6. |
|
H13:H36 | G12-$E$4 |
|
F43 | (C13:C36) |
|
F44 | (F12:F36)/24 |
|
F45 |
(G12:G36)/24 |
|
F46 | ABS( (H12:H36)) |
|
F47 |
((C12:C36))/$E$5;0) |
|
F48 | (E12:E36) |
|
F49 | (E12:E36)*$E$6*30 |
|
F50 |
(()*$F$49/30 |
|
|
|
|
(1;2;) |
|
|
(;_) |
|
|
(;) |
|
|
(, _ ) |
|
|
(1;2;), (1;2;) |
|
|
ABS() |
|
|
(__) |
- |
|
() |
- |
|
, , , (()), . : ABS( ()), ( ())
, ,
. (, , ) . , / .
, , , ( ). (, ) .
, . , .
, .
.
15 , SHIFT.
.
. , , , . . .
. , , - ( , ).
, : , , . . , , .
Excel , . : , , , , . , . : , , , -, , .
. , , . . . 90 .
. .
, , . . , , , .
, .
.
.
, .
. , , , .
, .
.
, , . OK.
,
, . , , , , . . , ; , , .
Microsoft Excel . , , , .
, . . , , . . .
- . , , . , , : , , , , ..
.
, , . , , .
.
.
4 , , .
( , , , )
: . .
. , ( ), , .
.
. . () , . , , , ..
, . - , ..
, , Microsoft Excel . , . , , , , . Excel, , . Excel , . , , , Microsoft Excel, , .
- 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. : , .
:
, ( ).
: 0-50%, 50%-75%, 75%-100%
, .
.
. :
/ / -;
500 250 ;
-;
-;
4 - ;
, , , , .
11-83: .
.
( ) , , , .
( ) . , , , , , , .
, .
. , , . , . :
, ;
;
N;
6 , ( , ..) N .
;
;
, ;
;
;
;
, ( );
;
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
REM
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%, "
FOR i = 1 TO n
IF f(i) < 50 AND f(i) > 0 THEN GOSUB 3
NEXT i
PRINT #2, " 50%-75%, "
FOR i = 1 TO n
IF f(i) <= 75 AND f(i) >= 50 THEN GOSUB 3
NEXT i
PRINT #2, " 75%-100%, "
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
, , Basic , , , , , . , (). Basic, , , , . Basic , .
Microsoft Excel Windows 95. Microsoft Press. . " - - 1996."
IBM PC . . .. . . " - - 1997."
Microsoft Office. . . " - - 1995."
94
-11
..
:
..
2000.
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:
, :
;
;
. . ;
. . ;
;
. .;
% ;
% ;
:
. . ;
. . ;
% ;
%;
;
;
- - 30 ;
- .
- , , , .
:
. . ;
;
% , , , ;
% .
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 , . , .
- , , . , . . , , .
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 . .
, , . , (), (). , .
:
.
, . . , . .
, .
|
|
|
12:A36 12:B36 |
|
|
13:C36 | 13*60 |
|
D13:D36 |
13+D12 |
|
13:E36 |
((F12+C13-$F$4*$F$5)/$F$6;0) |
|
F13:36 |
F12+C13-E13*$F$6. |
|
G13:G36 | F12+C13-E13*$F$6. |
|
H13:H36 | G12-$E$4 |
|
F43 | (C13:C36) |
|
F44 | (F12:F36)/24 |
|
F45 |
(G12:G36)/24 |
|
F46 | ABS( (H12:H36)) |
|
F47 |
((C12:C36))/$E$5;0) |
|
F48 |
(E12:E36) |
|
F49 |
(E12:E36)*$E$6*30 |
|
F50 |
(()*$F$49/30 |
|
|
|
|
(1;2;) |
|
|
(;_) |
|
|
(;) |
|
|
(, _ ) |
|
|
(1;2;), (1;2;) |
|
|
ABS() |
|
|
(__) |
- |
|
() |
- |
|
, , , (()), . : ABS( ()), ( ())
, ,
. (, , ) . , / .
, , , ( ). (, ) .
, . , .
, .
.
15 , SHIFT.
.
. , , , . . .
. , , - ( , ).
, : , , . . , , .
Excel , . : , , , , . , . : , , , -, , .
. , , . . . 90 .
. .
, , . . , , , .
, .
.
.
, .
. , , , .
, .
.
, , . OK.
,
, . , , , , . . , ; , , .
Microsoft Excel . , , , .
, . . , , . . .
- . , , . , , : , , , , ..
.
, , . , , .
.
.
4 , , .
( , , , )
: . .
. , ( ), , .
.
. . () , . , , , ..
, . - , ..
, , Microsoft Excel . , . , , , , . Excel, , . Excel , . , , , Microsoft Excel, , .
- 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. : , .
:
, ( ).
: 0-50%, 50%-75%, 75%-100%
, .
.
. :
/ / -;
500 250 ;
-;
-;
4 - ;
, , , , .
11-83: .
.
( ) , , , .
( ) . , , , , , , .
, .
. , , . , . :
, ;
;
N;
6 , ( , ..) N .
;
;
, ;
;
;
;
, ( );
;
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
REM
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%, "
FOR i = 1 TO n
IF f(i) < 50 AND f(i) > 0 THEN GOSUB 3
NEXT i
PRINT #2, " 50%-75%, "
FOR i = 1 TO n
IF f(i) <= 75 AND f(i) >= 50 THEN GOSUB 3
NEXT i
PRINT #2, " 75%-100%, "
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
, , Basic , , , . , (). Basic, . (Debuger), , , .
Microsoft Excel Windows 95. Microsoft Press. . " - - 1996."
IBM PC . . .. . . " - - 1997."
Microsoft Office. . . " - - 1995."
. 60 . .
.
:
V1000 3 |
|
- |
V50% |
Q290 3/ |
|
|
P13,8 |
, %
-50%
-85%
MS Excel:
, :
;
;
. . ;
. . ;
;
. .;
% ;
% ;
:
. . ;
. . ;
% ;
%;
;
;
- - 30 ;
- .
- , , , .
:
. . ;
;
% , ;
% .
.
:
;
;
;
;
;
.
.
:
- . , ;
- ;
, .
, . , : =(3:12).
. , , 1. 1 , . . . : “ENTER” , .
, “ENTER”. . .
, . : ( ) . “F2” .
Excel, , , .
:
, , , ;
, = ( ) +();
, ;
Excel , .
. , , ( G) , G3 :=E3+F3, G4 - =E4+F4 .. Excel . :
( , );
.
; . , G3, . . Excel G3 . G4:G12 . . .
$ ;
, , , 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
REM Sortiruem
PRINT "danni pasle sortirovke"
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"
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"
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"
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
Copyright (c) 2024 Stud-Baza.ru , , , .