Использование алгоритмов при изучении орфографии в начальных классах (Lexicon) [Диплом]

---

запомнить в избранное   искать в этом разделе

---

ВНИМАНИЕ !!! Это сокращенная версия файла. Предназначена она только для того, чтобы вы могли предварительно ознакомиться с документом, перед тем как его скачать. Здесь нет картинок, не сохранен формат, шрифт, размеры и положение на странице.
Чтобы скачать полную версию, нажмите ссылки которые находятся чуть-чуть ниже (Info File Mail)

---

Info File Mail

Файл относится к разделу:
ПЕДАГОГИКА

---

- 67 -
ПРИЛОЖЕНИЕ 1.
ш1.5
"Листинг программы "Помоги Утенку".
10 _NETEND
20 GOSUB 1110
30 GOSUB 1050: ' на инструкцию
40 DIM G(10)
50 SCREEN 7,2:COLOR 15,1,1: CLEAR 2000: CLS
60 OPEN "grp:" AS #1
70 GOSUB 490:' рисование фона
80 GOSUB 660: 'создание объектов
90 '
100 ' процесс пошел
110 '
120 XS=118:Z=1: XU=5
130 RESTORE 1700
140 FOR KS=1 TO 15
150 IF INKEY$<>"" THEN 150
160 READ SL$,OT
170 COLOR 15,4:PRESET(300,120:PRINT #1,SL$+" "
180 ' обработка движения указателя
190 G=STICK(0:FOR W=1 TO 50:NEXT W
200 IF G=3 AND Z<5 THEN XS=XS+24:Z=Z+1: GOTO 220
210 IF G=7 AND Z>1 THEN XS=XS-24:Z=Z-1
220 PUT SPRITE 2,(XS,175),15,2
230 E$=INKEY$
240 IF E$=" " THEN 250 ELSE 190
250 IF OT=Z THEN GOSUB 880:GOSUB 980:GOSUB 720
ELSE GOSUB 910: GOSUB 980
260 NEXT KS
270 ' выдача результатов
280 LINE(200,100(480,200),4,BF
290 LINE(200,100(480,200),10,B
300 SPRITE$(2=""
310 IF SU=15 THEN RESTORE 1500
320 IF SU<=14 AND SU>=13 THEN RESTORE 1550
330 IF SU<=12 THEN RESTORE 1600
- 68 -
340 ' выдача рекомендаций
350 FOR Y=110 TO 150 STEP 10
360 READ A$
370 COLOR 15,4:PRESET(220,Y:PRINT #1,A$
380 NEXT Y
390 LINE (200,165(480,165),10
400 GOSUB 770
410 ' запрос на повтор
420 COLOR 15,4:PRESET (220,170:PRINT #1,"Ж е л а е т е
е щ е ?"
430 PRESET (220,180:PRINT #1,"Нажми 'Д', если да; 'Н' - нет"
440 E$=INKEY$
450 IF E$="" THEN 440
460 IF INSTR("ДдDd",E$)>0 THEN CLEAR: CLOSE #1:GOTO 20
470 IF INSTR("НнNn",E$)>0 THEN 480 ELSE 440
480 END
490 ' рисование фона
500 LINE(0,0(512,30),7,BF:CIRCLE(25,15),10,10:
PAINT (25,15),10
510 COLOR 4,7:PRESET(480,5:PRINT #1,"IFV"
520 LINE (0,31(22,96),2,BF:LINE (23,31(489,96),1,BF
530 LINE(490,31(512,96),2,BF
540 Y=10:FOR X=50 TO 500 STEP 100
550 CIRCLE(X,Y),10,15,,,.3:PAINT(X,Y),15
560 Y=Y+4
570 NEXT X
580 FOR I=0 TO 19
590 LINE (22+I*24,41(34+I*24,86),15,BF
600 NEXT I
610 COLOR 9,1:PRESET(250,180:PRINT #1,"Т Л
Д В [ ]"
620 LINE(200,100(480,150),4,BF
630 LINE(200,170(480,200),10,B
640 COLOR 9,4:PRESET (220,120:PRINT #1,"ЗАДАНИЕ: "
650 RETURN
660 ' движ. объе

• подписаться на рассылку. • добавить в избранное. • нашли ошибки ?

Это место