ZX-spectrum
Найдено: 2 записи
humour →
Познаём Русский язык. Цистерна первая, полная.
10 INPUT string$
20 LET from$ = "жы"
30 LET to$ = "жи"
40 GO SUB 1000
50 LET from$ = "шы"
60 LET to$ = "ши"
70 GO SUB 1000
80 LET from$ = "чя"
90 LET to$ = "ча"
100 GO SUB 1000
110 LET from$ = "щя"
120 LET to$ = "ща"
130 GO SUB 1000
140 LET from$ = "чю"
150 LET to$ = "чу"
160 GO SUB 1000
170 LET from$ = "щю"
180 LET to$ = "щу"
190 GO SUB 1000
200 PRINT string$
300 STOP
1000 LET lenstr = LEN string$
1010 LET lenfrm = LEN from$
1020 FOR n = 0 TO lenstr
1030 IF string$(n TO n+lenfrm) = $from THEN LET string$ = string$(TO n) + to$ + string$(n+lenfrm TO)
1040 NEXT n
1050 RETURN
Во второй полной цистерне я научу вас, как писать частицу «не» отдельно от глаголов :)
19.01.2009 17:02+0300
humour →
Познаём Русский язык. Цистерна первая, полная.
10 INPUT string$
20 LET from$ = "жы"
30 LET to$ = "жи"
40 GO SUB 1000
50 LET from$ = "шы"
60 LET to$ = "ши"
70 GO SUB 1000
80 LET from$ = "чя"
90 LET to$ = "ча"
100 GO SUB 1000
110 LET from$ = "щя"
120 LET to$ = "ща"
130 GO SUB 1000
140 LET from$ = "чю"
150 LET to$ = "чу"
160 GO SUB 1000
170 LET from$ = "щю"
180 LET to$ = "щу"
190 GO SUB 1000
200 PRINT string$
300 STOP
1000 LET lenstr = LEN string$
1010 LET lenfrm = LEN from$
1020 FOR n = 0 TO lenstr
1030 IF string$(n TO n+lenfrm) = $from THEN LET string$ = string$(TO n) + to$ + string$(n+lenfrm TO)
1040 NEXT n
1050 RETURN
Во второй полной цистерне я научу вас, как писать частицу «не» отдельно от глаголов :)
19.01.2009 17:02+0300