 |
Литература: Программирование и ремонт Импульсные блоки питания Неисправности и замена Радиоэлектронная аппаратура Микросхема в ТА Рубрикатор ТА Кабельные линии Обмотки и изоляция Радиоаппаратура Гибкие диски часть 2 часть 3 часть 4 часть 5 Ремонт компьютера часть 2 Аналитика: Монтаж Справочник Электроника Мощные высокочастотные транзисторы 200 микросхем Полупроводники ч.1 Часть 2 Алгоритмические проблемы 500 микросхем 500 микросхем Сортировка и поиск Монады Передача сигнала Электроника Прием сигнала Телевидиние Проектирование Эвм Оптимизация Автомобильная электроника Поляковтрансиверы Форт Тензодатчик Силовые полевые транзисторы Распределение частот Резисторные и термопарные Оберон Открытые системы шифрования Удк
[90]
Приложение 2
Программы на языке БЕЙСИК
1 REM ФИО=А.М.И-Й,ТЕЛ«450 60 7 1
100TEXT" 15: NORMAL : HOME : RIBBON= 2
101FOR 1=2 TO 31: VTAB 2: HTAB I: PRINT "*":
VTAВ 31: HTAB I: PRINT "*: NEXT
102FOR I = 2 TO 31: VTAB I : HTAB 2: PRINT "*":
VTAВ I I HTAB 31: PRINT "*•: NEXT 105 RIBBON- 3 1 10 VTAВ 6: HTAB 13 120 PRINT "НИИШОТСО" 130 VTAB 8: HTAB 13 140 PRINT "АПН СССР" 150 VTAВ 15: HTAB i 160 PRINT "КЛЮЧЕВЫЕ СЛОВА
БЕЙСИКА" 190 VTAB 18: HTAB 11 200 PRINT "ИГЛИЦКИЙ A.M."
210 VTAB 2B: HTAB 12
220 PRINT "МОСКВА 19B6"
300 FOR I » I TO 5000: NEXT
310 HOME
4 00 RIBBON- 3
410 PRINT "ПРОГРАММА ПРЕД
НАЗНАЧЕНА ДЛЯ ВЫ-": PRINT
420 PRINT "РАБОТКИ НАВЫКО
В ПЕЧАТИ НАИБОЛЕЕ": PRINT
430 PRINT "ЧАСТО ВСТРЕЧАЮ ШИХСЯ КЛЮЧЕВЫХ"": PRINT
440 PRINT "СЛОВ БЕЙСИКА.
НЕОБХОДИМО ПЕЧА-": PRINT
450 PRINT "ТАТЬ СЛОВА, ВЫ БИРАЕМЫЕ МАШИНОЙ В"
460 PRINT "СЛУЧАЙНОМ ПОРЯ ДКЕ. ПРИ ЭТОМ ПОД-"
470 PRINT "СЧИТЫВАЕТСЯ ОБ ШЕЕ КОЛИЧЕСТВО": PRINT
480 PRINT "СЛОВ И СРЕДНЕЕ
ВРЕМЯ РЕАКЦИИ." 500 FOR I - 1 ТО 10000: NEXT 510 НОМЕ
1 000 | DIM И»<100) | ||
1110 | W*< 1 > | « | "CATALOG* |
1 120 | И»<2) | m | "INIT" |
1 130 | W*< 3) | ш | "RENAME* |
1 140 | W»<4) | ш | •DELETE" |
1 150 | W*<5> | ш | "LOCK" |
1 160 | W»<6) | ш | * UNLOCK" |
1 170 | W*<7) | ш | "LOAD" |
1 1В0 | И»< В) | « | "SAVE" |
1 190 | W»<9) | RUN* | |
1200 | И»<10) | "BLOAD" | |
1210 | И»< 1 1 ) | = | "ВSAVE" |
1220 | W* < 12) | = | " BRUM" |
1230 | И»<13) | "NEW" | |
1240 | И»<14) | « | "STOP" |
1250 | W*<15) | « | "END* |
1260 | И»<16) | - | "CONT" |
1270 | W*<17) | « | "TRACE" |
1280 | И»<1В) | « | NOTRACE" |
1290 | W*(19) | "PEEK" | |
1300 | W»< 20) | - | POKE" |
1310 | W*<21> | "WAIT" | |
1320 | И»<22) | "CALL" | |
1330 | W*<23) | - | "HIMEM" |
134 0 | W*<24) | "LOMEM" | |
1350 | W»<24) | "LIST" | |
1360 | W»<26) | "DEL" | |
1370 | W*<27> | « | "REM" |
1380 | N»<28) | « | "VTAB" |
1390 | W*<29) | « | "HTAB" |
1400 | W»<30) | « | •HOME" |
1410 | W*<31> | = | "CLEAR" |
1420 | W»<32) | "FLASH" | |
1430 | W*<33) | = | "INVERSE" |
1440 | W»<34) | "NORMAL" | |
1450 | W*<35) | = | "SPEED" |
1460 | W» < 36) | = | "DIM" |
1470 | W»<37) | = | "LEN" |
1480 | W*< 38) | •STR" | |
1490 | W* < 39) | = | "VAL" |
1500 | W*(40) | "CHR" | |
1510 | W»<4 1> | = | "ASC" |
1520 | W»< 42) | "LEFT" | |
1530 | W*<43) | "RIGHT | |
1540 | W*<44) | = | "MID" |
1550 | W*<45) | = | "INPUT" |
1560 | W»<46) | = | "GET" |
1570 | W*< 47) | "READ" | |
15В0 | W*<48) | = | "DATA" |
1590 | W*<49> | = | "RESTORE" |
1600 | W»<50) | "PRINT" | |
1610 | W» < 5 1 ) | = | "GOTO" |
162 0 | W*<52) | "GOSUB" | |
1 ЛЗО | W*<53) | = | "RETURN" |
1640 | W»<54> - | "ON" |
1650 | W*<55> - | "IF" |
1660 | W*<56> - | •THEN" |
1670 | W*<57> - | "FOR" |
16В0 | W*<58> - | •TO" |
1690 | W*<59> - | "STEP" |
1700 | W«<60> - | "NEXT" |
1710 | W*<61> - | "ONERR" |
1720 | W*<62> - | "RESUME" |
1730 | H»<63) - | "GR* |
1740 | W*<64> - | "MGR" |
1750 | W*<65> - | •HGR" |
1760 | W«<66> - | •COLOR" |
1770 | W*<67>. - | RIBBON" |
17В0 | W*<6B> - | "PLOT* |
1790 | W*<69> - | SCRN" |
1800 | W*<70> - | XDRAW" |
IB10 | W*(71) - | •SCALE" |
IB20 | W*<72> - | "ROT" |
IB30 | W*<73> - | •TEXT" |
1B40 | W*<74> - | * POL* |
B50 | W*(75> - | "SIN* |
860 | W*(76> - | " COS* |
B70 | W*<77> - | "TAN" |
ВВО | W*<7B> - | "ATN" |
890 | W*(79> - | "INT |
900 | W*<80> | " RNO" |
910 | W*<81> - | * SON" |
920 | W*<82> - | "ABS" |
930 | W*< B3> - | " SQR" |
940 | W*<84> - | •EXP" |
950 | W*<B5> - | LOG |
9*0 | KLOVO - | 0 |
970 | SUMVR - | 0 |
990 | VR « 10 |
2000 N - INT <100 # RNO
< 1)) ♦ 1 2010 WORD* - W*<N> 2020 L - LEN < WORD*) 2030 NB - 1
2045 IF L - 0 THEN 2000 2050 T - 0
2060 KOLVO - KOLVO + 1 2070 POKE 32,26i POKE 33,
14: HOME * 2100 POKE »C010,0 3000 POKE 32,Ol POKE 33,6
4
3010 V - 31 3020 H - 14 3030 VTAВ V 3040 HTAB H
3050 RIBBON" 6 3060 PRINT WORD* 3110 FOR I - 1 TO VR 3120 IF PEEK <«C000> > 1
28 THEN 4000 3130 T - T ♦ 1 3140 NEXT 3200 V - V - 1 3210 IF У • 2 THEN V - 3 3220 VTAB V 3230 HTAB H 3240 RIBBON- 2 3250 PRINT WORD* 3260 GOTO 3110 4000 BUK1* - MID* ( WORD
*, NB,1) 4010 BUK2* - CHR* ( PEEK
<«C000> - 128) 4020 POKE »C010,0 4030 IF BUK1* < > BUK2
* THEN 5000 4100 VTAB 31 4110 HTAB 14 ♦ NB - 1 4120 RIBBON- 2 4130 PRINT BUK2* 4140 IF NB < > L THEN 4
200
4150 SUMVR - SUMVR ♦ T 4 155 RIBBON- 3: VTAB 17: HTAB 61 PRINT KOLVO: VTAB 17: HTAB 23: PRINT INT < SUMVR / KOLVO ♦ 0. 5)
4160 VTAB V - 2: HTAB 14:
RIBBON- 2: PRINT T 4165 FOR T - 1 TO BOO: NEXT
4170VR - VR * <1 - 0.25
* SGN <V - 17))
41B0GOTO" 2000
4200NB - NB + 1
4210GOTO 3120
5000VTAB 31
5010HTAB 14 • NB - 1
5020RIBBON" 5
5030PRINT BUK2*
5040FOR J - 0 TO 25
5050z -/ PEEK <*C030)
5060NEXT
5070GOTO 3120
10 Зак. 341
273
10 mgr" У
14rem-----------.....--
15rem #** му9ыка - data
#**
16rem---.......----.----
20 data 173,48,192,136,20 b,5,206,1 ,3,240,9
30 data 202,208,245,174,0 ,3,76,2,3,96,0,0
40 for x - 770 to 792
50 read y
60 poke x,y
70 next x
72rem -------------
73rem ##* мотив **#
74rem -------------
75о - 10
79 rem ------------------
80 rem ##* картинка spas e ##*
81 | rem -- | |||
90 | for a | 0 to 600 | step | |
5 | ||||
100 | if a | « | 150 then | gosub |
300 | ||||
110 | if a | a | 300 then | gosub |
300 | ||||
120 | if a | a | 450 then | gosub |
300 | ||||
130 | if a | a | 600 then | gosub |
300 | ||||
140 | poke | 76b.0: poke | 769, | |
3: call 770 200 c int ( rnd (1) * 1
5)
210 x - int ( rnd (1) # 1 27)
220 y - int С rnd (1) # 1 27)
230 if x > 31 and x < 97 then if y > 39 and y < b9 then 200
245color- c
246plot x,y
247rem............-
248rem ### panka ###
249rem............-
251color- 3
252if a - 150 then plot 32,40 to 96,40 to 96, 88 to 32,bb to 32,40: 0-0 + 7
253color- 1
254if a - 300 then plot
33.41to 95,41 to 95, 87 to 33,b7 to 33,41: 0-0 + 5
255color- 1
256if a - 450 then pldt
34.42to 94,42 to 94, 86 to 34,b6 to 34,42: 0-0 + 5
257color- 3
25b if a - 600 then plot
35.43to 93,43 to 93, 85 to 35,85 to 35,43
270 next a 2b0 goto 320
289rem.....---------
290rem *## sintez #**
291rem --------------
300 for z - 1 to 20 305 b « z * 2
310 poke 76b.b: poke 769, z: call 770
315next z: return
316rem -----------------
317 rem *** картинка - те
nnis ### 31b rem -----------------
320 color- 2: for x - 52 to 75: plot x,61 to x.b2 : next x
322 color- 7: plot 52,61 to 75,61: plot 52,b2 to 75,b2: plot 64,62 to
64,bi: color- i: plot
54,67 to 54,73: color-4: plot 73,80 to 73,7 4
f30 rem 35 rem -------------
340 rem *** выбор *** 345 rem.....--......
350 в - о:a - о: def fn klv
(s) - ( peek <*C000>>
: poke ecoio.o
360 a - fn klv(o): poke
76b.20: poke 769,20: call 770
365 if b - 1 then gosub
иоо:х - 43:y - 67: gosub И20:х - b4:y - y + 2
: gosub 1140 370 if в - 2 then gosub
ii05:x - 84:y - 67: gosub
1120:x - 43:y - y + 2 : gosub- 1 140