Програмирование на языке Basic. Федоряка Н.И. - 55 стр.

UptoLike

ВУЗ: 

МичГАУ | Мичуринск

Составители: 

Рубрика: 

55
PRINT b$ 'вывод на экран
CLOSE #1
В результате выполнения программы будет создан файл "file01.dat" и
файл будет содержать строку Это наша текстовая строка. Затем файл
будет открыт для чтения и из него будет прочитана и выведена на экран
данная строка.
Пример 2. Напишем программу для записи в файл отметки ученика
на уроке. В файле будет хранится следующая информация:
ФИО дата отметка
Иванов Иван 22 февраля 4
Петров Петя 3 марта 5
... ... ...
REM Работа с файлами. Пример 2.
REM Запись в файл
OPEN "journal.dat" FOR APPEND AS #1
INPUT "Введите ФИО", FIO$
INPUT "Введите дату", DAY$
INPUT "Введите отметку", MARK
WRITE #1, FIO$, DAY$, MARK
CLOSE #1
REM Чтение из файла
OPEN "journal.dat" FOR INPUT AS #1
INPUT #1, FIO$, DAY$, MARK
PRINT FIO$, DAY$, MARK 'вывод на экран
CLOSE #1
Эта программа будет создавать файл journal.dat, записывать введен-
ные пользователем данные, а затем считывать из файла journal.dat данные
и выводить их на экран. Но в данной версии программы из файла мы бу-
дем получать всегда первую строчку (порцию) данных. Исправим это. Бу-
дем использовать функцию EOF, проверяющую достигнут ли конец файла.
REM Работа с файлами. Пример 2_2.
REM Запись в файл
OPEN "journal.dat" FOR APPEND AS #1
INPUT "Введите ФИО", FIO$
INPUT "Введите дату", DAY$
INPUT "Введите отметку", MARK
WRITE #1, FIO$, DAY$, MARK
CLOSE #1
REM Чтение из файла
OPEN "journal.dat" FOR INPUT AS #1
DO WHILE NOT EOF(1)
INPUT #1, FIO$, DAY$, MARK
PDF created with FinePrint pdfFactory Pro trial version www.pdffactory.com
         PRINT b$ 'вывод на экран
         CLOSE #1
               В результате выполнения программы будет создан файл "file01.dat" и
         файл будет содержать строку Это наша текстовая строка. Затем файл
         будет открыт для чтения и из него будет прочитана и выведена на экран
         данная строка.
               Пример 2. Напишем программу для записи в файл отметки ученика
         на уроке. В файле будет хранится следующая информация:
                          ФИО              дата           отметка
                      Иванов Иван       22 февраля             4
                      Петров Петя         3 марта              5
                            ...              ...              ...

         REM Работа с файлами. Пример 2.
         REM Запись в файл
         OPEN "journal.dat" FOR APPEND AS #1
         INPUT "Введите ФИО", FIO$
         INPUT "Введите дату", DAY$
         INPUT "Введите отметку", MARK
         WRITE #1, FIO$, DAY$, MARK
         CLOSE #1
         REM Чтение из файла
         OPEN "journal.dat" FOR INPUT AS #1
         INPUT #1, FIO$, DAY$, MARK
         PRINT FIO$, DAY$, MARK 'вывод на экран
         CLOSE #1
              Эта программа будет создавать файл journal.dat, записывать введен-
         ные пользователем данные, а затем считывать из файла journal.dat данные
         и выводить их на экран. Но в данной версии программы из файла мы бу-
         дем получать всегда первую строчку (порцию) данных. Исправим это. Бу-
         дем использовать функцию EOF, проверяющую достигнут ли конец файла.
              REM Работа с файлами. Пример 2_2.
         REM Запись в файл
         OPEN "journal.dat" FOR APPEND AS #1
         INPUT "Введите ФИО", FIO$
         INPUT "Введите дату", DAY$
         INPUT "Введите отметку", MARK
         WRITE #1, FIO$, DAY$, MARK
         CLOSE #1
         REM Чтение из файла
         OPEN "journal.dat" FOR INPUT AS #1
         DO WHILE NOT EOF(1)
         INPUT #1, FIO$, DAY$, MARK
                                                                               55


PDF created with FinePrint pdfFactory Pro trial version www.pdffactory.com

Страницы