Программные продукты и системы

Компьютер в доме? Сущее наваждение! С тех пор как он у нас появился, я мужа своего целыми днями не видела. Приходит с работы — и в свою комнату, к компьютеру своему ненаглядному. Сидит с ним до вечера, а то и за полночь. Хорошо, что в последнее время немного одумался. Нет, от компьютера не отходит, что ты! Но хоть программы пишет не какие-то бестолковые, а в хозяйстве полезные. Вот «Поваренная книга», например. Хочешь покажу? Я ведь потихоньку от своего благоверного тоже машину освоила. Ставим диск, включаем, загружаем программу... Смотри, вот она на дисплее (рисунок). Все понятно, правда? Ты ведь у себя на работе курс лекций по БЕЙ-СИКу прослушала, не то что я — по книжкам, урывками.

Строка 1 — описание массивов и литерных переменных, строка 2 — считывание файла «КУХНЯ». Кстати, тоже мне файл — в нем всего-то одно число F. Это сколько рецептов в книге. Встроке 3 так и выводится на дисплей: 8 поваренной книге столько-то рецептов.

Строка 4 — меню. Выбираю режим работы. Допустим, А=1. Запись нового рецепта. Оператор IF A=2 THEN 15 не срабатывает, идем по порядку на строку 6. С этой строки на 12-ю происходит запись: название блюда, число составляющих, их названия, количество, сам рецепт, число порций, потом количество рецептов в книге. Записали — возвращаемся на строку 3. На дисплее пишется, сколько теперь рецептов в книге. Потом переходим на с т р о к у 4, опять работаем с меню.

Пусть теперь А=2. Поиск рецепта по названию. Начинается, как раньше, со строки 5. Ввожу название блюда. И по условию IF А=2 иду на с т р о к у 15. Тут сразу присваивание В=О. Это на случай, если рецепта с таким названием в книге не найдется. Ищется он в цикле, номера I перебираются от I до F, и каждый раз считывается файл с таким номером. На строке 17 — опять проверка. Если А=2, а я такое А и задала, и N®=B®, то перехожу на с т р о к у 19. Она начинается с присваивания В = 1. Потом на дисплей выводится рецепт. На строке 20 число I увеличивается на единицу: если в книге есть еще какой-то рецепт с таким названием, надо искать его дальше. Когда I равно F, поиск заканчивается, все рецепты просмотрены. На строке 21 — еще одна проверка. Если В=1,-значит, хоть один нужный рецепт в книге нашелся.

Возвращаемся на строку 4, к меню. Если В=0, возвращаемся туда же. Но на дисплее тогда будет: нужного рецепта в книге нет.

Ты, конечно, скажешь, что разумнее искать рецепты не но названиям, а по имеющимся продуктам, не по тому, что имеется в книге, а по тому, что есть в доме — кусок баранины, филе трески, кочан капусты. Такой режим в меню тоже имеется: А=3. Тогда переход на с т р о к у 13. Здесь ввод числа продуктов. Дальше на строке 14 — ввод их названий в цикле. На строках 15 и 16 — считывание рецептов с диска, тоже в цикле. Считала какой-то 1-ый рецепт, иду на строку 17. Сейчас А=3, переходим со строки 17 на следующую, 18-ю. Тоже непростая строка. Два цикла, вложенных друг в друга. По J перебираются все продукты, которые я назвала, по К —- все продукты, которые записаны в 1-м рецепте. Совпадут хотя бы раз названия этих продуктов — перехожу на строку 19: IF I®(T)=N®(K) THEN 19. На дисплей выводится рецепт, я его читаю. Пока читаю, машина переходит на строку 20. Сюда же она переходит, если не было ни одного совпадения I®(J)=N® (К). Со строки 20 выполняется переход на строку 15, но уже с новым значением 1. Считываю с диска рецепт с этим новым номером. Если есть в нем хотя бы один продукт, который я задала, такой рецепт выводится на дисплей. При каждом выводе выполняется присваивание В=1. Это опять для того, чтобы при В = 1 вернуться на строку 4. к меню, с одним или несколькими рецептами на дисплее, без примечания, а при Б=0 — с примечанием: нет в книге таких рецептов.

Вот и есе. Что тут трудного? Или ты думаешь, что работа с персональным компьютером — привилегия мужчин?

Что недосмотрела хозяйка?

Прочтите еще раз рассказ хозяйки. Не замечаете ли Вы в нем каких-либо ошибок, неточностей? Нет? Тогда вчитайтесь внимательнее в ее комментарий к строке 16 программы. Верно ли выражение «файл с таким номером»? Не совсем. Имя файла — это всегда литерная переменная. Не случайно номер 1 переводился вс т р о к е 15 в литерную форму с помощью оператора CONVERT. Тоже самое делается встроке 10 для записи нового рецепта. Однако хозяйка не сочла нужным останавливаться на превращениях числовой переменной F в литерную F®.