Приемы обучения непроверяемым написанием на уроках русского языка (Lexicon) [Диплом]

---

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

---

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

---

Info File Mail

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

---

- 61 -
Приложение N3.
Листинг программы "Дельфиненок Лоло".
5 _NETE
10 COLOR 15,1,1
12 DIM P(12),R$(12)
15 MAXFILES=1:SCREEN4
16 OPEN"GRP:"FOROUTPUTAS#1
17 GOSUB5000' на заставку
18 RESTORE3000:GOSUB160 'на инструкцию
20 SCREEN7,2 :SET PAGE 0,1:CLS:SET PAGE 1,1
22 PRESET(160,110:PRINT#1,"ПОДОЖДИТЕ НЕМНОГО ."
23 SET PAGE1,0:CLS
25 RESTORE6000:FOR I=1 TO32 :READW:Z$=Z$+CHR$(W:NEXT I
26 SPRITE$(31=Z$
80 GOSUB1000
85 DIM P(12),R$(12:A$(1="А":A$(2="О":A$(3="И":A$(4="Е"
100 OO=0
110 GOSUB 410'вид игрового поля
115 GOSUB 490'вид персонажей
120 GOSUB750' слова
130 RESTORE1200
132 SET PAGE 0,0
135 FOR V=1TO11' главный цикл
136 PUTSPRITE 4,(DX,DY),1,12 ' дельфин
137 PUTSPRITE 3,(DX,DY),15,11
140 GOSUB1020'генерация заданий
150 GOSUB 600 'задание 1
155 GOSUB330 ' на задание 2
156 GOSUB 830
157 GOSUB1000:NEXT V' конец главного цикла
158 GOTO 1170 ' результат
160 SCREEN7:LINE(0,0(512,212),2,B :COLOR 15:COLOR(15,0,0,0)
161 FOR I=10 TO200 STEP10
162 READ A$
163 PRESET(50,I:PRINT#1,A$
164 NEXT I
- 62 -
165 DRAW" bm362,86 r20 d10 l20 u10 r10 bd2 nf3 ng3 d6"
166 DRAW" bm408,86 r20 d10 l20 u10 r10 bd2 d6 ne3 nh3"
167 DRAW" bm362,116 r19 d20 l19 u20 d10 br4 ne2 nf2 r10"
168 DRAW" bm409,116 r19 d20 l19 u20 d10 br4 r10 ng2 h2":
FOR I=1TO7:COLOR(15,I,I,I:GOSUB1440:NEXT I:GOSUB1005
169 A$=INKEY$:IF A$="" THEN169 ELSE RETURN
170 '=
180 'прыжки на месте
200 IFRND(1)>.8THENONRND(1)*3GOTO 210,230:ELSE 310
210 PUTSPRITE 4,(DX,DY),1,2:IFSTICK(0)THEN335
220 PUTSPRITE 3,(DX,DY),15,1:GOSUB1440:GOTO 310
230 FORII=2TO6STEP2:IFSTICK(0)THEN335
240 PUTSPRITE 4,(DX,DY-II+2),1,II
250 PUTSPRITE 3,(DX,DY-II+2),15,II-1:GOSUB1440
260 NEXTII
270 FORII=8TO12STEP2:IFSTICK(0)THEN335
280 PUTSPRITE 4,(DX,DY-10+II),1,II
290 PUTSPRITE 3,(DX,DY-10+II),15,II-1:GOSUB1440
300 NEXTII
310 PUTSPRITE 4,(DX,DY),1,12
320 PUTSPRITE 3,(DX,DY),15,11
325 GOTO335
330 ' задание2
331 LINE(25,35(326,46),12,BF :L2=13
332 PRESET(75,38:PRINT#1,"Вставьте пропущенную букву"
333 PUT SPRITE 31,(L2,190),13,31
335 A=STICK(0:A$=INKEY$
337

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

Это место