Как Петя Бейсиков Тоню Соображалкину программировать учил

ПРОГРАММИРОВАТЬ НАДО УМЕЮЧИ

Программа должна была выводить родительный падеж с окончанием «-ы», за исключением слов с предпоследней буквой к, г, ш,щ, х или ж, когда надо «-и». Но запрограммировать это…

— Такую программу составить… Это же настоящая мыслящая машина получится.

Петя ничего не ответил. Отдав машину в распоряжение Тони, он умчался консультироваться по своим делам. Тоня начала вводить составленную программу, но, увы, допустила ошибки. Программа со всеми ошибками выглядела так:

10 REM ПРОГРАММА СКЛОНЯЕТ ИМЕНА СУЩЕСТВИТЕЛЬНЫЕ

15 РЕM ПЕРВОГО СКЛОНЕНИЯ С ОКОНЧАНИЕМ — А

20 PRINT PRINT PRINT PRINT

30 PRINT "ВВЕДИТЕ ИМЯ СУЩЕСТВИТЕЛЬНОЕ ПЕРВОГО"

40 PRINT "СКЛОНЕНИЯ НА — А ИЛИ СЛОВО КОНЕЦ,"

50 PRINT "ЕСЛИ КОНЧАЕТЕ"

60 INPUT S¤

70 IF S¤<>"КОНЕЦ" THHEN 90

80 PRINT "КОНЕЦ" SТОР

90 REM ПРОВЕРКА ПРАВИЛЬНОСТИ ВВОДА

100 D=LEN(S¤)

11 °C¤=SEG¤(S¤,D,D) REM ПОСЛЕДНЯЯ БУКВА

120 IF С¤="А" THEN 140

130 PRINT "ЭТО СЛОВО НЕ КОНЧАЕТСЯ НА — А" SТОР

14 °C1¤=SEG¤(S¤, D-1, D-1) REM ПРЕДПОСЛЕДНЯЯ БУКВА

190 P¤="ы" GO TO 210

200 P¤="и"

210 Z¤=SEG¤(S¤,1,D-1) REM СЛОВО БЕЗ ОКОНЧАНИЯ

230 PRINT

240 PRINT "ИМЕНИТЕЛЬНЫЙ КТО? ЧТО?"; S¤

250 PRINT "РОДИТЕЛЬНЫЙ КОГО? ЧЕГО?";Z¤+P¤

260 PRINT "ДАТЕЛЬНЫЙ КОМУ? ЧЕМУ?";Z¤+"E"

270 PRINT "ВИНИТЕЛЬНЫЙ КОГО? ЧТО?";Z¤+"y"

280 PRINT "ТВОРИТЕЛЬНЫЙ КЕМ? НЕМ? "Z¤х+"0й"

290 PRINT "ПРЕДЛОЖНЫЙ О КОМ? О ЧЕМ?";"О "+Z¤+"E"

300 PRINT PRINT

310 GO ТО 30

320 END

Тоня решилась и запустить программу самостоятельно, без Пети. Было боязно, но очень хотелось узнать, что же получилось.

RUNNH

ВВЕДИТЕ ИМЯ СУЩЕСТВИТЕЛЬНО ПЕРВОГО

СКЛОНЕНИЯ НА — А ИЛИ СЛОВО: КОНЕЦ,

ЕСЛИ КОНЧАЕТЕ

? ПАПА

?SYNTAX ERROR AT LINE 70

— Что же это такое? Строка 70… Синтаксическая ошибка? Посмотрим.

LISTNH 70

70 IS S¤<>"КОНЕЦ" THHEN 90

Так… Все ясно. THEN введен с двумя Н. Это не моя вина, клавиша часто выдает два знака. Сейчас надо исправлять.

70 IS S¤<>"КОНЕЦ" THEN 90

Запустим еще раз.

ВВЕДИТЕ ИМЯ СУЩЕСТВИТЕЛЬНО ПЕРВОГО

СКЛОНЕНИЯ НА — А ИЛИ СЛОВО: КОНЕЦ,

ЕСЛИ КОНЧАЕТЕ

? ПАПА

ЭТО СЛОВО НЕ КОНЧАЕТСЯ НА — А

?SYNTAX ERROR AT LINE 130

Какая чушь! Как же не кончается, когда кончается! Кончается «мама» на «-а» и бесспорно является самым натуральным именем существительным первого склонения. Наверно, машина испортилась.