Авторитетность издания
Добавить в закладки
Следующий номер на сайте
Компьютер - хранитель домашнего очага
Аннотация:
Abstract:
Авторы: Очков В.Ф. () - , Пухначев Ю.В. () - | |
Ключевое слово: |
|
Ключевое слово: |
|
Количество просмотров: 14677 |
Версия для печати |
Недавно я столкнулся с одной серьезной проблемой — покупкой домашнего компьютера. Стоит он немного дешевле мотоцикла с коляской, но дороже цветного телевизора. Доказать его полезность в домашнем хозяйстве очень трудно, а приобретать компьютер, не посоветовавшись с членами семьи, рискованно. Можно оказаться в положении героя одного рассказа В. Шукшина, купившего микроскоп и вступившего из-за этого в крупный конфликт с супругой. Я поступил умнее: попросил на полгода персональную ЭВМ у своего приятеля, который, не посоветовавшись с женой, приобрел ее и тем самым вызвал семейный конфликт. Поэтому он и сам был рад избавиться от этой машины на время, но не насовсем, ибо без нее себя уже не мыслил. Как только машина оказалась на моем столе, я не стал терять времени даром. Представив с ее помощью неопровержимые доказательства целесообразности покупки компьютера, я убедил домашних в том, что он способен не только «делать дыры» в семейном бюджете, но и латать их. помогая экономно вести домашнее хозяйство. Главным моим доказательством послужила программа, которая превратила ЭВМ в удобную книгу для распределения семейного бюджета. Что это за книга? На первой странице записаны расходы и доходы со дня начала ведения книги до момента заполнения этой страницы. На последующих страницах записи ведутся аналогичным образом — период учета начинается с даты, проставленной на пре- дыдущей странице. Вот примерный вид разворота такой книги: 2S февраля 1УК7 г 2 марта 1987 г. Питание 10 руб. 112 коп. Питание 30 руб. 4К кои. Одежда 120 руб Одежда — Платежи— Платежи 211 руб. 35 коп. Развлечения НО коп Развлечения 30 коп. Прочее — Прочее 21 руб. Приход —___________________________________ Приход 242 руб. 31 коп.______ • Из книги явствует, что с 28 февраля по 2 марта 1987 года семья истратила на питание 30 рублей 4S1 копеек, а кто-то из ее членов в начале месяца получил зарплату 242 рубля 31 копейку. Вести записи каждый день необязательно, иначе машина превратится в тирана, требующего ежедневного общения. Но и забывать о записях тоже не следует, а то потом ничего не вспомнишь. Распределение расходов по статьям можно изменить, приспособить к особенностям конкретной семьи, предусмотреть учет сбережений, наличие долгов и т. д. Заполнение очередной страницы электронной бухгалтерской книги мала чем отличается от *аписи и Обычную тетрадь, только вместо авторучки используется клавиатура компьютера, а вместо бумаги — дисплей и магнитный слой на диске. Преимущества вычислительной техники в полной мере проявляются при последующей обработке записей. Машина быстро и точно подсчитает расходы и доходы за любой период времени. выра!и1 их в процентах к общей сумме и тем самым покажет, какие расходы следует уречать. чтобы, например, покрыть долг, возникший в связи с покупкой домашней ЭВМ. R программе, по которой ведутся все эти подсчеты, 27 строк плюс три небольших подпрограммы. Первая (строки 5000—5006)" по дате определяет номер дня на хронологической оси XX века. Дату нужно задавать в не совеем обычном виде: первые две цифры — год, потом точка, еще две цифры — месяц, опять точка, последние две цифры — день. Вторая подпрограмма (строки 5007—5011) проделывает обратную операцию. Третья (строка 5012) прерывает счет, чтобы тот, кто о данный момент испол-&1ЯСТ обязанности семейного бухгалтера (с ними хорошо справляется моя жена), успел вставить в дисковод нужный диск, снял с него защиту от записи, считал информацию с дисплея. Машина при этом терпеливо ждет нажатия клавиши ВК. Работа по программе «Бюджет семьи» начинается с задания длины литерных переменных и размеров массивов. Делается это в строке I. Сначала тянется довольно пространный перечень символов, которыми обозначены даты, фигурирующие в дальнейших расчетах. Длина каждой из этих литерных переменных — 8 байтов. Вещественный массив 5( ) будет хранить величины расходов и доходов, вписанных на одной странице книги, а массив SO ( } — их сумму за определенный период. В каждом таком массиве шесть элементов (но числу статей учета). Названия статей записаны в этой строке дальше : ПИТАНИЕ, ОДЕЖДА, ПЛАТЕЖИ и т. д. В первой строке эти названия становятся элементами литерного массива Stf ( ). Перед глазами сидящего за компьютером появляется запись, напоминающая титры в начале фильма: РАБОТА С КНИГОЙ РАСХОДОВ И ДОХОДОВ. Ради этого элемента культурного программирования я специально записал в программу строку 2. Вежливости ради я записал и строку 3. Компьютер попросит включить дисковод и, перейдя на подпрограмму в строке 5012, задержится, как этого требует начинающий подпрограмму оператор INPUT. ГОТОВО? — появится на дисплее. Нажмите любую клавишу на клавиатуре, потом клавишу ВК. Компьютер вернется на строку 3 и поинтересуется, не произошла ли какая-нибудь ошибка. Если да, то он начнет выполнять эту строку с начала, опять вежливо попросив включить дисковод. Следующая строка — 4. На магнитном лиске отдельным файлом ГРАНИНЫ хранятся две крайние даты книги в литерном и числовом виде (Dl$ , Dl, D2H , D2) и общее число записей в ней F. Это позволяет мац: и не быть уверенной в том. что работающий с ней человек не ошибся и вставил в дисковод нужный диск, а человеку — ориентироваться в книге и контролировать степень заполнения диска записями. Если же будет вставлен не тот диск, го анализатор ошибок, записанный в конце строки 3, повторит просьбу машины вставить в дисковод диск с файлом ГРАНИЦЫ. Его необходимо создать с самого начала. Для этого надо набрать на клавиатуре вспомогательную строку: 6000 PRTNT DATA НАЧАЛА ВЕДЕНИЯ КНИГИ; : GOSUB 5001 DATA SAVE DC OPEN R (2) ГРАНИЦЫ: DATA SAVE DCDH , D, DB , D.O: DATA SAVE DCEND Как видно из операнда (2), файл ГРАНИЦЫ занимает два сектора на диске (меньший объем памяти недопустим). Набрав эту строку, надо дать команду на се выполнение: RUN 6000, затем нажать клавишу ВК. 11о вернусь к разбору программы. Операторы строк б и 7 запрашивают календарную дату работы с книгой На строке 8 записано меню работы с ней. Оператор выбора позволяет либо записать в книгу новые данные об изменениях в семейном бюджете, то есть заполнить новую страницу [I), либо просмо-[реть старые записи (2). I [овая запись делается гак. В строке 9 запрашивается календарная дата, в строке 10 — расходы и до-■ коды, имевшие место накануне. Запрос их ведется циклически с заполнением массива S( ). При желании можно наверстать упущенное, но тогда дата чаписи будет отличаться от даты работы с машиной. В строке 11 производится новая запись. Ее имя полностью совпадает е календарной датой дня, по которой фиксировались расходы н доходы, так что все эти данные будут храниться на диске в виде файла под именем, допустим, «87.03.O4e. Это позволяет машине легко находить нужную информацию ] !овая ;апись. естествен но. меняет объем и границы заполнения книги, ив соответствии с этим содержание файла ГРАНИЦЫ меняется операторами строки 12. После этого происходит возврат на строку 8. Вот что будет при этом на дисплее: Алгоритм нторого режима работы с книгой — режима обработки записей — несколько сложнее. У него более ветвистая логика. Например, если заданная вами в строке 14 начальная дата совпадает с датой начала ведения книги, то по условию IF D3=D1 THEN 17 вы сразу окажетесь на строке 17. где нужно задать конечную дату." Если она совпадает с датой последней записи, то по условию IF I)4=D'THEN 18 вы сразу попадете на строку 18, где оператор MATS© ZER:S1,S2=O присвоит нулевые значения всем элементам массива ЪЩ ). переменным SI, S2. С этого начинается подсчет расходов и доходов за указанный вами период. Если же таких совпадений нет. то путь к строке IK проходит через проверки: правильна ли введена дата, есть ли на диско файл, озаглавленный такой датой. Первая из этик проверок осуществляется точно гак же. как в конце строки 9. Вторую удобнее разобрать на примере строки 15 Здесь в самом начале пред усматриваете и возможность программной ошибки: если на диске нет записи под указанной вами начальной датой, произойдет переход по ошибке ни строку 13. Машина укажет на нашу оплошность и попросит ввести дату !аново. Такие же действия определяются операторами, «писанными в конце строки 17. Но я не стану слишком подробно описывать все ходы и переходы в моей программе: разобраться в них самостоятельно, наверное, захочется каждому, кто начнет ее читать. Не буду лишать его этого удовольствия. Переход По ошибке возможен и дальше, при перелистывании книги. Это делается циклом с заголовком в строке 19 и концом в строке 24. Машина перебирает день за днем, начиная с D3, и прибавляет единицу »| единицей к переменной D. Каждый раз н подпрограмме, записанной со строки 5(107. эта число-пая переменная превращается в литерную, в строку вида ГГ. ММ ДД. которая стоит в заголовке каждой !алиси на страницах книги. Дальше в строке 19 написано ON ERROR EM . NH GOTO 24. Если машина будет пытаться считать данные по очередной дате, например К7 03.1)1, и их на диске нет, то переход по ошибке приведет на строку 24. где значение Г) увеличится на единицу, и машина будет искать на диске файл, озаглавленный следующей датой. Только в тон случае, когда ошибки хе произошло и на диске есть jariHCb под датой DH , этот файл считынается. Перейдя на строку 20, машина уведомляет, что будет выводить расходы и доходы с такого-то по такой-то день. Второй из этих дней — DH , т. е. тот. под которым на диске нашлась очередная запись. А первый D5H . Посмотрите в конец строки 23:05Й =DR . Нетрудно догадаться, что первый из названных на дисплее дней тот, под которым на диске значилась предыдущая запись. В строках 21-^23 имеется еще цикл с параметром 1: расходы и доходы суммируются по статьям, печатаются заголовки статей семейного бюджета, причем каждая заполняется по указанному формату. Дальше — ветвление по условию 1=6: если параметр I не достиг 6, содержимое 1-й статьи гфибавля-ется к сумме расходов; если достиг, речь идет уже о доходах, и в строке 22 содержимое 6-й статьи добавляется к сумме доходов S1. Б строках 25-=-27 на дисплее выдаются результаты расчетов: суммы по статьям семейного бюджета и их вес в процентном отошении. Вот как это может выглядеть на дисплее: То, что в феврале 1987 года в семье так мало денег тратилось на развлечения, легко объяснить. В прошлом году был куплен домашний компьютер, который теперь бесплатно развлекает нею семью играми, головоломками, тестами... Да, чуть не забыл: в моей программе не предусмотрена возможность исправления хранящихся на диске записей. Бухгалтерская книга должна быть прошнурована и пронумерована постранично, н ее электронный аналог — не исключение из этого правила: в ней нельзя делать подчисток." Календарные даты записываются по-разному. Вот несколько образцов: — Тысяча девятьсот семьдесят первый год, февраль, семнадцатый день — 14 ноября 1948 года — 23.Х/48 — 8.9.1913 — Последний день Страстной недели 1905 года — 27.01.S7 — 87 (12 28 — 1999. 12. 31 Последние две формы записи получают сейчас все большее распространение по двум причинам. Цифры, означающие год, m конца записи даты в ее начало «перетащили» компьютеры. Им так. оказывается, удобнее. Для 'ЗВМ литерное выражение ~86.03.23» в логических операциях будет больше, чем. например «85.12.31», так как код цифры 6 больше кода цифры 5. Год же стали записывать полностью из-за того, что XXI век не за горами, а такие даты, как 01.02.03, могут запутать даже компьютеры будущего. Конечно, вычислительную машину несложно научить принимать календарные даты, записанные в любой форме, но лучше договориться с ней заранее, где будет стоять год. где месяц, а где Число Программа «Вечный календарь», позволяет обрабатывать календарные даты 'см. меню на строке 20/. Про|рммму ^Бюджет ссиьн» несложно переделать д;|я веления дневника. При этом в файлы с именами, совпадающими с калгндлриои нагой. нуяою 5апиеывать деля, мысли и т. д. прошедшего дня. Такой электронный дневник поможет быстро Парировать упрех-восклпцаыне жскы гипа; *Я уже не помню когда мы последний раз были в театре?!» Для этого достаточно ировсети ретро еггеьтнпный поиск ил страницах дне-ппика по ключевому слову I ЬАТР
|
Постоянный адрес статьи: http://swsys.ru/index.php?page=article&id=1484&lang=&like=1 |
Версия для печати |
Статья опубликована в выпуске журнала № 3 за 1988 год. |
Возможно, Вас заинтересуют следующие статьи схожих тематик: