ДИАЛОГ
ПРОГРАММИСТОВ
АЛИК БИЯЧУЕВ, 7 класс
367030, г.Махачкала,
ул.Ирчи Казака, 30 — 45.
Н есмот ря на м ой совсем малый опы т практической работ ы с
компьют ером, м не удалось сост авит ь обучающ ую програм м у по
м ат ем ат ике для своей младш ей сестры-первоклассницы. П ро-
грам м а написана для “БК -0010-01"
“УЧИТЕЛЬ”
МАТЕМАТИКИ
1 REM ПРИМЕРЫ
22И)
3Y-0
5 CLS
10GOSUB 610
20 PRINT “ПРИГОТОВЬСЯ РЕШАТЬ!”
30 M-INT (RND (1) *L)
40 S-INT (RND (1) *L)
50 K-INT (RND (1) *L)
60 IF M<S THEN GOTO 30
70 N-M-S+K
80 PRINT M “-”S"+"K"-";
90 INPUT F
100 IF F>1000 THEN PRINT “А ОТВЕТ БЫЛ” N
105 IF F>1000 THEN GOTO 180
110 IF F-N THEN PRINT “ПРАВИЛЬНО!”
120 IF F-N THEN GOSUB 730
130 IF F-N THEN GOTO 180
140 IF FON THEN PRINT “НЕВЕРНО!”
150 PRINT M"-''S"+”K,,-"N
160 IF FON GOSUB 730
170 REM ПРИМЕРЫ ТИПА (5+2-3)
180 M-INT (RND (1) *L)
190 S-INT (RND (1) *L)
200 K-INT (RND(1)*L)
210 IF K>S+M THEN 180
220 N-M+S-K
240 PRINT M"+”S"-"K"-";
250 INPUT F
260 IF F>1000 THEN PRINT “А ОТВЕТ BbUI”N
270 IF F>1000 THEN GOTO 350
280 IF F-N THEN PRINT “ПРАВИЛЬНО!”
290 IF F-N THEN GOSUB 730
300 IF F-N THEN GOTO 350
310 IF FON PRINT “НЕВЕРНО!”
320 PRINT M"+"S''-"K"-"N
330 IF FON THEN GOSUB 730
340 REM ПРИМЕРЫ СО СКОБКАМИ
350 M-INT <RND(1)*L)
360 S-INT (RND(1)*L)
370 K-INT (RND (1) *L)
380 IF S<K THEN GOTO 360
390 N-M+(S-K)
400 PRINT M"+("S"-"K")-";
410 INPUT F
420 IF F>1000 THEN PRINT “А ОТВЕТ BbUTN
430 IF F>1000 THEN GOTO 30
440 IF F-N THEN PRINT “ПРАВИЛЬНО!”
450 IF F-N THEN GOSUB 730
460 IF F-N THEN GOTO 30
470 IF FTHEN PRINT “НЕВЕРНО!”
470 IF FON THEN PRINT “НЕВЕРНО!”
480 PRINT M"+("S"-''K")-"N
490 IF FON THEN GOSUB 730
500 GOTO 30
510 PRINT “ВЫ ИЗ”;<5;''ПРИМЕРОВ ПРАВИЛЬНО
СДЕЛАЛИ"; Y
520 REM ОЦЕНКА
530 IF Q-Y THEN PRINT “МОЛОДЕЦ! ОТЛИЧНО!
ТВОЯ ОЦЕНКА 5"
540 IF Q-Y THEN GOTO 580
550 IF Y-Q*.8 THEN PRINT “ХОРОШО! ТВОЯ ОЦЕНКА 4"
560 IF Y>-Q*.8 THEN GOTO 580
570 IF Y>—Q/2 THEN РЯШТ'ПОЗАНИМАЙСЯ ЕЩЕ!3"
ELSE PRINT" IUIOXO!2”
580 INPUT “ЕЩЕ ПОРЕШАЕШЬ (Д/Н )”;С$
590 IF С$-"Д" OR С$-"д" OR C$-"D" OR C$-"d”
THEN GOTO 2 ELSE PRINT “ДО ВСТРЕЧИ!”
600 END
610 PRINT'*------------------------------------------------------*";
620 PRINT"*--------------------- ПРИМЕРЫ--------------------*";
630 PRINT"*------------------------------------------------------*";
640 PRINT TAB (6) "ДЛЯ ПЕРВОГО КЛАССА"
650 PRINT “РЕШИ ПРИМЕРЫ, ПРЕДЛОЖЕННЫЕ
КОМПЬЮТЕРОМ. ЕСЛИ У ТЕБЯ НЕ ПОЛУЧАЕТСЯ, ТО
НАПИШИ ЛЮБЫЕ ЧЕТЫРЕ ЦИФРЫ И РЕШАЙ
СЛЕДУЮЩИЙ ПРИМЕР”
660 INPUT “ВВЕДИ ЧИСЛО ПРИМЕРОВ”^
670 INPUT “ВЫБЕРИ УРОВЕНЬ СЛОЖНОСТИ (1-3)";S
680 PRINT"*------------------------------------------------------*";
690 IF S<1 OR S -l THEN L-20
700 IF S-2 THEN L-50
710 IF S>3 OR S-3 THEN L-100
720 RETURN
730 IF F-N THEN Y-Y+l
740 Z-Z+l
750 IF ZrQ THEN 510
760 RETURN
М.ИЛБИНЫХ,
456319, г.Миасс,
Челябинская обл.,
ул.8 марта, 195-7.
ПРОГРАММА ПЕЧАТИ
Х очу предложить чит ат елям
РЛ " програм м у печати для П К
“ZX -SPECTRU M ". П рограм м а позволяет вы водит ь т екст в лю -
бой части экрана буквам и двойной высоты. О на универсальна и
может быть использована в качест ве подпрограм м ы в лю бой про-
грам м е на Бейсике.
1 REM 0<Х<31, 0<Y<22, Y<>7, Y<>15
10 LET X-4:LET Y-22
20 LET A$-"*Sinclair* ZX-SPECTRUM"
100 LET В—16384+X+(Y-8*INT(Y/8)) *32+INT (Y/8) *2048
110 LET J-PEEK 23606+256*PEEK 23607+256-32*8
120 FOR N -l TO LEN A$
130 LET V-J+CODE A$ (N) *8
140LETC-B
150 FOR M-V TO V+3
160 POKE C, PEEK M: POKE C+256, PEEK M
170 LET C-C+256*2: NEXT M
175 LET C-B+32: FOR M-V+4 TO V+7
180 POKE C, PEEK M: POKE C+256, PEEK M
190 LET C-C+256*2: NEXT M
200 LET B-B+l: NEXT N
210 PAUSE 0: STOP
Г
ПОПРАВКА
!
4
В материале M.Мочалова “Проверка качества.
..”("РЛ",N8/92,с.12)
имеются неточности. В строке 220 опущена скобка: 220 IF(x$-"u" OR
x$-"U") AND y>23 THEN.
.. В строке 290 вместо CTR$ следует читать
STR$. В строке 350 функция STR$ должна быть напечатана прописны-
ми буквами. В строке 9530 пропущена кавычка после слова byte.
При наборе текста программы следует обратить внимание, что в
строках 250.
..280 организован цикл с переменной L (начертание
строчной буквы 1 подобно 1).
В материале С.Чернышенко “Подключение принтера .
..”
jUI"N6/92, с!3 в табл.1 вместо 23* следует читать 23,____________
15
предыдущая страница 14 Радиолюбитель 1992-12 читать онлайн следующая страница 16 Радиолюбитель 1992-12 читать онлайн Домой Выключить/включить текст