27. Компьютер рассказывает

Человек всю жизнь учится - читает книги, смотрит телевизор, разговаривает с другими людьми об интересующих его проблемах. Работая с компьютером, он тоже многому учится. Более того, компьютер может быстро выдать ему необходимую информацию, если в его память введены подходящие программы. Например, если вы интересуетесь астрономией, можете использовать программы файла АСТРОНОМИЯ. С их помощью компьютер расскажет о некоторых планетах и созвездиях:

ПРОЧТИ "АСТРОНОМИЯ

После того как файл заряжен, можно посмотреть в его справочнике, какие планеты и созвездия знает компьютер:

СПРАВОЧНИК
БОЛЬШАЯ .МЕДВЕДИЦА (БМ)
ВЕНЕРА	(В)
ЗЕМЛЯ	(3)
МАРС	(М)
МЕРКУРИЙ(МР)
НЕПТУН	(Н)
ПЛУТОН	(П)
САТУРН	(С)
СОЛНЦЕ	(СЛ)
УРАН	(У)
ЮПИТЕР	(Ю) 

Справочник содержит имена процедур. Точка в именах процедур используется в качестве разделителя, так как интервалов в именах процедур быть не должно.

Проверим, что знает компьютер о созвездии Большая Медведица. Необходимо выполнить процедуру БОЛЬШАЯ. МЕДВЕДИЦА (сокращенно БМ):

БМ
СОЗВЕЗДИЕ БОЛЬШОЙ МЕДВЕДИЦЫ ПО РАСПОЛОЖЕНИЮ СВОИХ СЕМИ НАИБОЛЕЕ ЯРКИХ ЗВЕЗД НАПОМИНАЕТ КОВШ. ОНО ЗАМЕЧАТЕЛЬНО ТЕМ, ЧТО ЕСЛИ  ПРОВЕСТИ МЫСЛЕННО ЛИНИЮ ЧЕРЕЗ ДВЕ 
КРАЙНИЕ ЗВЕЗДЫ В "ПЕРЕДНЕЙ СТЕНЕ КОВША", ТО ЭТА ЛИНИЯ УКАЖЕТ НА ПОЛЯРНУЮ ЗВЕЗДУ.
 У ДРЕВНИХ ГРЕКОВ СУЩЕСТВОВАЛА ЛЕГЕНДА, ЧТО БОГ ЗЕВС РЕШИЛ ВЗЯТЬ СЕБЕ В ЖЕНЫ НИМФУ КАЛЛИСТО, ВОПРЕКИ ЖЕЛАНИЮ БОГИНИ ГЕРЫ.  ЧТОБЫ ИЗБАВИТЬ ЕЕ ОТ ПРЕСЛЕДОВАНИЯ 
БОГИНИ, ЗЕВС ОБРАТИЛ КАЛЛИСТО В МЕДВЕДИЦУ И ВЗЯЛ К СЕБЕ НА НЕБО.

Из справочника видно, что компьютер ничего не знает о Луне. Ему можно рассказать о ней следующее:

ЭТО ЛУНА
 ВЫВЕДИ [ЛУНА - СПУТНИК ЗЕМЛИ. ОНА]
 ВЫВЕДИ [ДВИЖЕТСЯ ВОКРУГ ЗЕМЛИ ПО] 
 ВЫВЕДИ [ЭЛЛИПСУ, ПОЭТОМУ ЕЕ]
 ВЫВЕДИ [РАССТОЯНИЕ ОТ ЗЕМЛИ НЕ] 
 ВЫВЕДИ [ОСТАЕТСЯ ПОСТОЯННЫМ] 
 ВЫВЕДИ [В СРЕДНЕМ ОНО СОСТАВЛЯЕТ]
 ВЫВЕДИ [384 400 КМ. ДИАМЕТР ЛУНЫ] 
 ВЫВЕДИ [СОСТАВЛЯЕТ 3476 КМ. ПО]
 ВЫВЕДИ [ОБЪЕМУ ЛУНА ПОЧТИ В 50]
 ВЫВЕДИ [РАЗ МЕНЬШЕ ЗЕМЛИ.]
КОНЕЦ

В процедуре ЛУНА используем только команду ВЫВЕДИ. Если ввод этой команды - текст, его следует заключить в квадратные скобки.

Для удобства опишем и процедуру под сокращенным именем:

ЭТО Л
 ЛУНА
КОНЕЦ

Проверим, что запомнил компьютер:

Л
ЛУНА -СПУТНИК ЗЕМЛИ. 
ОНА ДВИЖЕТСЯ ВОКРУГ ЗЕМЛИ ПО 
ЭЛЛИПСУ, ПОЭТОМУ ЕЕ 
РАССТОЯНИЕ ОТ ЗЕМЛИ НЕ
ОСТАЕТСЯ ПОСТОЯННЫМ.
В СРЕДНЕМ ОНО СОСТАВЛЯЕТ
384 400 КМ. ДИАМЕТР ЛУНЫ 
СОСТАВЛЯЕТ 3476 КМ. ПО 
ОБЪЕМУ ЛУНА ПОЧТИ В 50 
РАЗ МЕНЬШЕ ЗЕМЛИ.

Дополним теперь справочник, включив в него процедуру ЛУНА. Это можно сделать, отредактировав процедуру СПРАВОЧНИК так, чтобы имя ЛУНА появилось перед именем МАРС. Еще проще использовать процедуру ВКЛЮЧИ:

ВКЛЮЧИ [ЛУНА (Л)]

При ее выполнении компьютер включает в справочник текст, заключенный в квадратные скобки, и упорядочивает в алфавитном порядке имена. Может быть, вы хотите сменить тему? Тогда запишем

СНАЧАЛА

Компьютер забывает то, что он знал из астрономии. Думается, что будет интересно обучить его читать стихи. Недавно мы познакомили его с мелодией песенки Дважды два - четыре. Пусть он выучит и ее текст:

Дважды два - четыре, 
    дважды два - четыре,
Это всем известно
    в целом мире.
Дважды два - четыре,
    дважды два - четыре,
А не три, а не пять -
    это надо знать!
Дважды два - четыре, 
    дважды два - четыре, 
а не шесть, а не семь - 
это ясно всем!

Начнем:

ЭТО ДВАЖДЫ.ДВА.ЧЕТЫРЕ 
 КУПЛЕТ 1 
 КУПЛЕТ2 
 КУПЛЕТ3 
КОНЕЦ

ЭТО КУПЛЕТ1 
 ПОВТОРЕНИЕ
 ВЫВЕДИ [ЭТО ВСЕМ ИЗВЕСТНО]
 ВЫВЕДИ [В ЦЕЛОМ МИРЕ.]
КОНЕЦ

ЭТО ПОВТОРЕНИЕ
 ПОВТОРИ 2 [СТРОКА1]
КОНЕЦ

ЭТО СТРОКА1
 ВЫВЕДИ [ДВАЖДЫ ДВА -ЧЕТЫРЕ,]
КОНЕЦ

ЭТО КУПЛЕТ2 ПОВТОРЕНИЕ
 ВЫВЕДИ [А НЕ ТРИ, А НЕ ПЯТЬ -]
 ВЫВЕДИ [ЭТО НАДО ЗНАТЬ!]
КОНЕЦ

ЭТО КУПЛЕТ3 ПОВТОРЕНИЕ
 ВЫВЕДИ [А НЕ ШЕСТЬ, А НЕ СЕМЬ -] 
 ВЫВЕДИ [ЭТО ЯСНО ВСЕМ!]
КОНЕЦ

Если мы создаем файл СБОРНИК.СТИХОВ и хотим, чтобы им было удобно пользоваться, следует указать, что он содержит. Опишем справочник нового файла:

ЭТО СПРАВОЧНИК
 ВЫВЕДИ [ДВАЖДЫ.ДВА.ЧЕТЫРЕ]
КОНЕЦ?

Каждый раз, когда мы добавляем новое стихотворение, необходимо редактировать эту процедуру подходящим об-разом.

И, наконец, сохраним сборник стихов на дискете:

ЗАПИШИ "СБОРНИК.СТИХОВ

1. Разделитесь на 3 группы и напишите процедуры ТЕМА, ВАРИАЦИЯ 1, ВАРИАЦИЯ 2, при выполнении которых прозвучали бы соответственно мелодии:
   
   
   Объедините процедуры в процедуру ЦЫГАНОЧКА.
2. Разбейтесь на группы. Пусть каждая группа создает файл, содержащий информацию о государствах определенного района мира.
3. Создайте различные виды справочников файлов из упр. 2, которые вам облегчат поиск нужной информации.
4. Разбейтесь на группы. Пусть каждая группа создает файл, содержащий информацию об определенном виде животных. Создайте справочник этих файлов.
5. Создайте каталог книг вашей домашней библиотеки. Расположите информацию в алфавитном порядке по именам авторов книг.
6. Сделайте компьютерный список учеников вашего класса. Информация о каждом ученике должна включать его имя, дату рождения, домашний адрес и телефон.
7. Сделайте компьютерный список интересных программ, созданных в вашем классе. Информация о каждой программе должна включать имя программы, имя автора и ее краткое описание.
8. программу, при выполнении которой компьютер, прежде чем сыграть мелодию выбранной вами песни, покажет на экране ее текст.
9. Проведите конкурс на лучшую программу. Пусть лауреаты конкурса продемонстрируют свои программы.