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

Перечислим их. CLS (clear screen) - означает «очистить экран», употребляется тогда, когда мы хотим, чтобы предыдущий текст исчез и не мешал восприятию нового.

Команда REM - это ремарка. Это неисполняемая команда. Она нужна для того, чтобы удобнее было читать сам текст программы, она поясняет, что это за программа, или зачем нужен тот или иной оператор в этой программе. Вы можете употреблять его, а можете и нет. Тут все зависит от Вашего желания. Для функционирования самой программы этот оператор не нужен.

Команда INKEY - это команда приостановки работы программы на заданное количество миллисекунд. Иx количество помещается в скобках. Назначение ее в том, чтобы реплика на неверный или верный ответ продержалась какое-то время на дисплее, а затем Вам был предложен другой вопрос. Следует сказать, что эта команда присутствует не во всех диалектах BASIС. В некоторых она имеет вид PAUSE+.

Команда END - прозрачна по своему значению, она обозначает конец программы.

Нy, и последняя оговорка. Пустые команды PRINT предназначены для того, чтобы пропускать строчку. Мы их используем сразу два раза подряд, чтобы вопрос появлялся не в самом верху, а чуть пониже.

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

10 REM «Диалоговая программа по истории философии»

12 REM «Автор Роман Манекин»

30 CLS

40 PRINT

50 PRINT

60 PRINT «Содержит ли диалог Платона Тимей концепцию Космоса как живого существа»

70 PRINT «одаренного умом?»

1. Нет

2. Да

3. Не знаю

80 INPUT X

90 IF X=l THEN GOTO 120

100 IF Х= 3 THEN GOTO 180

110 IF X=2 THEN GOTO 240

120 CLS

130 PRINT

140 PRINT

150 PRINT «Вы ошиблись, подумайте еще раз!»

160 I=INKEY (625)

170 GOTO 30

180 CLS

190 PRINT

200 PRINT

210 PRINT «Почитайте, пожалуйста, разделы 29e - 31в диалога Платона Тимей»

220 I=INKEY (625)

230 GOTO 30

240 CLS

250 PRINT

260 PRINT

270 PRINT «Вы правы. Мне интересно с Вами беседовать».

280 l=lNKEY (625)

290 CLS

300 PRINT

310 PRINT v

320 PRINT «Отождествлял ли Платон понятия Космос и Человек?»

1. Да 2. Нет 3. Не знаю.

330 INPUT X

340 IF X=l THEN GOTO 370

350 IF X=3 THEN GOTO 440

360 IF X=2 THEN GOTO

370 CLS

380 PRINT

390 PRINT

400 PRINT «Эto искажение мысли Платона. Отождествление понятий Человек и Космос характерно для»

410. PRINT «философии более позднего времени. Пожалуйста, подумайте снова».

420 I=INKEY (625)

430 GOTO 290

440 CLS

450 PRINT

460 PRINT

470 PRINT «Посмотрите, пожалуйста, разделы 41a – 47е диалога Платона Тимей» ,

480 I=INKEY (625)

490 GOTO 290

500 CLS

510 GOTO 300

520 CLS

530 PRINT

540 PRINT

550 PRINT «Вы правы, и я с удовольствием об этом сообщаю. Приятно побеседовать с умным человеком».

560 I=INKEY (625)

570 CLS

580 PRINT

590 PRINT

600 PRINT»Есть мнение, что специальный очерк учения Платона о космических функциях ума»

610 PRINT «включает в себя концепцию гармонического членения Космоса - учение о взаимных»

620 PRINT «расстояниях звезд и некоторых законах Природы»

1. Да

2. Нет

3. Не знаю.

630 INPUT X

640 IF X=1 THEN GOTO 800

650 IF X=2 THEN GOTO 670

660 IF X=3 THEN GOTO 740

670 CLS

680 PRINT

690 PRINT

700 PRINT «Вы неправы. Перечитайте, пожалуйста, разделы 31в – 37с диалога Платона Тимей. Особенное»

710 PRINT «внимание обратите на разделы 35в - 37с названного произведения»

720 I=INKEY (625)

730 GOTO 570

740 CLS

750 PRINT

760 PRINT

770 PRINT «Посмотрите, пожалуйста, разделы 29e - 47e диалога Платона Тимей».

780 I=INKEY (625)

790 GOTO 570

800 CLS

810 PRINT

820 PRINT

830 PRINT «Блестяще! Я от Вас другого и не ожидал».

840 I=INKEY (625)

850 CLS

860 PRINT

870 PRINT «Включает ли в себя специальный очерк учения Платона о космических функциях ума»

880 PRINT «следующие концепции?»

890 PRINT «1. Учение о Времени и о его органах».

2. Учение о высших классах живых существ или ставших богов»

3. «Концепцию о соединении мирового тела и мировой души»

4. «Учение о самых общих»

910 PRINT «законах человеческого существования».

5. Не знаю.

920 INPUT X

930 IF X=l THEN GOTO 980

940 IF X=2 THEN GOTO 1070

950 IF X=3 THEN GOTO 1040

960 IF' X=4 THEN GOTO 1220

970 IF X-5 THEN GOTO 1290

980 CLS

990 PRINT

1000 PRINT

l010 PRINT «Ваш ответ не точен. Учение о Времени и его органах входит в общий, но не в специальный»

1020 РRINT «очерк учения Платона о космических функциях ума. Попробуйте сравнить содержание».

1030. PRINT «разделов 31-37с и 37с-39с диалога Платона Тимей. Затем перечитайте разделы 29е-37е»

1040 PRINT «названного произведения и попытайтесь ответить еще раз»

1050 I=INKEY (625)

1060 GOTO 850

1070 CLS

1080 PRINT

1090 PRINT

1100 PRINT «Подумайте еще раз. Советую перечитать разделы 31 -37с, 39-40d диалога Платона Тимей».

1110 PRINT «Затем прочтите разделы 29с-47е и попытайтесь ответить еще раз».

1120 I=INKEY (625) ИЗО GOTO 850

1140 CLS

1150 PRINT

1160 PRINT

1170 PRINT «Вы правы, и я рад, что Вы справились и на этот раз (собственно, я от Вас и не ожидал другого)».

1180 PRINT «эту мысль можно найти в разделах 31в-37е»

1190 PRINT «диалога Платона Тимей».

1200 l=INKEY (625)

1210 GOTO 1360

1220 GLS

1230 PRINT

1240 PRINT

1250 PRINT «Вы ошиблись. Сравните содержание paзделов 31в - 37 и 41 а-п диалога Платона»

1260 PRINT «Тимей. Перечитайте также разделы 29е - 47в названного произведения».

1270 I=INKEY (625)

1280 GOTO 850

1290 CLS

1300 PRINT

1310 PRINT

1320 PRINT «Ознакомтесь с содержанием разделов 36d -37с диалога Ш тона Тимей». 1340 I=INKEY (625)

1350 GOTO 850

1360 CLS

1370 PRINT

1380 PRINT

1390 PRINT «Мы с Вами поговорили о содержании диалога Платона Тимей. Теперь, если хотите, можете вернуться в начало программы и предложить другие ответы (если Вам любопытен».

1400 PRINT «какой-нибудь вариант возражения на Ваш ответ) ⁽¹⁾ Кроме того, вы можете ознакомиться с композицией диалога Платов! Тимей или же за-» 1410 PRINT «кончить работу с программой.

I. Возврат к началу программы*

2. Сведения о»

1420 PRINT «композиции диалога Платона Тимей 3 Конец».

1430 INPUT X

1440 IF X=l THEN GOTO 30

1450 IF X=2 THEN GOTO 1470 1460 IF X=3 THEN GOTO 1580 1470 CLS

1480 PRINT

1490 PRINT

1500 PRINT «Композиция диалога Платона Тимей такова:

I)вступление

2)функция космического ума» 1510 PRINT «(разделы 29e-49e),

3) функция первичной материи как необходимости (разделы 49е-69а)»,

1520 PRINT «4) совокупные действия ума и материи в образовании человеческого организма»

1530 PRINT «(разделы 69-92В),

5) заключение (раздел 92с)».

1540 PRINT «1.Возврат к началу программы. 2. Конец».

1550 INPUT X

1560 IF X=l THEN GOTO 30 1570 IF X=2 THEN GOTO 158О 1580 CLS

1590 PRINT

1600 PRINT

1610 PRINT «Мне было приятно беседовать с Вами. Надеюсь, мы еще встретимся!»

1620 I=INKEY (625)

1630 CLS

1640 END

Если Вы внимательно ознакомились с текстом программы, то убедились, что вся она составлена из знакомых Вам операторов и по той схеме, которую мы разработали.

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

Или нет. Зачем откладывать дело в «долгий ящик»? Попытайтесь усовершенствовать эту программу. Здесь уже говорилось, что действенность обучающей программы станет большей, если вместо указания разделов философского сочинения на экран компьютера будет выводиться их краткое содержание. Восполните этот пробел.

А если Вы возьмете еще и какое-нибудь руководство по БЕЙСИКУ и выучите другие команды, то сможете сделать так, чтобы созданное Вами самими средство обучения стало более красочным. Например, Вы сможете заказывать различные цвета букв и экрана, рисовать фигуры и диаграммы, вводить в программу звуки, музыку, речь.

Конечно, обучающую программу приятнее и надежнее сделать самому. Вы увидели, что это вещь достаточно простая (если, конечно, немного вникнуть). Ее, кстати, легко переделать в обучающе-контролирующую. Попробуйте сделать и это.

Подсказка: заведите в программе числовую переменную (назовите ее, например, А) и приравняйте ее нулю (А=0). А затем после каждого ответа, в зависимости от того, верный он или неверный, приплюсовывайте к прежнему значению А единицу или же оставляйте его таким же. А в конце программы, используя операторы ЕСЛИ, ТО проверьте, чему равна переменная А. Если у Вас программа из пяти вопросов и А=5, то пусть на дисплее будет оценка «отлично», если А=4, то «хорошо» и так далее. Так Вы научите компьютер качественно оценивать вводимую информацию.

1. Возьмите в библиотеке или найдите в Интернете третий том сочинений Платона, прочтите диалог Платона «Тимей» (Платон. Тимей. Перевод С.Аверинцева./ Платон. Собр. соч. в 4-х томах. Том 3. М.,Мысль, 1994). Если Вы пожелаете, чтобы на экране компьютера появлялись полные тексты названных разделов диалога, подумайте, как Вам нужно правильно воспользоваться известной Вам командой «print». (Подсказка: у большинства персональных компьютеров на экране дисплея размещается 25 строк текста по 80 знаков в строке, должна также измениться и нумерация строк). Если же захотите привести из разделов только отдельные цитаты или коротко пересказать само их содержание - помните - главная Ваша задача - не исказить мысль Платона; не забудьте - что многие понятия его философии имеют конкретно-исторический смысл - смысл, нередко отличный от того, который вкладывают в них современные философы, которым наделяет их обыденное создание.