Главная страница
Навигация по странице:

  • Описание файла производится в разделе описания переменных, при этом указывается имя файловой переменной (логическое имя файла) и ее тип. Например: Var f : file of integer;

  • Assign(логическое имя, физическое имя) Например, assign(f,’data.txt’); 3. Запись в файл / чтение из файла

  • Read(f,a); - чтение из файла. 4. Закрытие файла

  • Проверка конца файла

  • Записать в файл 10 цифр, вводимых пользователем. Var F:text;

  • Read(a); Write(f,a) End; Close(f); end. ПРОГРАММА ПРИМЕР

  • Reset(f); S:=0; While not eof(f) do Begin Read(f,a); S:=S+a; End; Close(f);

  • Составить программу, записывающую в файл только четные числа из тех чисел, которые вводит пользователь. Составить программу, вычисляющую произведение 5 чисел, записанных в файле.

    		•

    Лекция 20. Основные понятия. Основные понятия Файл в Паскале


    Скачать 275.5 Kb.
    НазваниеОсновные понятия Файл в Паскале
    Дата20.04.2023
    Размер275.5 Kb.
    Формат файлаppt
    Имя файлаЛекция 20. Основные понятия.ppt
    ТипДокументы
    #1077142

    Основные понятия

    Файл в Паскале


    Состоит из однотипных данных (integer,real и т.д.).
    С данными файла можно производить две основные операции: запись и чтение.


    Как записать в файл данные разного рода (цифры, буквы?)

    1. Описание файла


    Описание файла производится в разделе описания переменных, при этом указывается имя файловой переменной (логическое имя файла) и ее тип.
    Например:
    Var f : file of integer;
    или
    Var f1:text;

    2. Установление соответствия между логическим и физическим именем файла


    Assign(логическое имя, физическое имя)
    Например, assign(f,’data.txt’);

    3. Запись в файл / чтение из файла


    Rewrite(f); - открытие нового файла для записи.
    Reset(f); - открытие существующего файла для чтения или записи.
    Write(f,a); - запись в файл.
    Read(f,a); - чтение из файла.

    4. Закрытие файла


    Close(f);
    Производится после окончания работы с файлом, отсутствие этой операции приведет к неправильной работе программы

    Проверка конца файла


    Eof(f) – логическая функция, ее значение – «истина», если курсор находится в конце файла и «ложно», если это не так.

    ПРИМЕР


    Записать в файл 10 цифр, вводимых пользователем.

    Var F:text;


    Var F:text;
    a,i:integer;
    Begin


    Assign(f,’data.txt’);


    Rewrite(f);


    Writeln(‘введите 10 цифр’);


    For i:=1 to 10 do
    Begin
    Read(a);
    Write(f,a)
    End;


    Close(f);
    end.


    ПРОГРАММА

    ПРИМЕР


    Написать программу сложения 5 чисел, записанных в файле.


    Var a,s,i:integer;
    F:text;
    Begin


    Assign(f,’primer2.txt’);


    Reset(f);


    S:=0;
    While not eof(f) do
    Begin
    Read(f,a);
    S:=S+a;
    End;


    Close(f);
    Writeln(‘Cумма=’,s)
    end.


    ПРОГРАММА

    Задание на работу


    Составить программу, записывающую в файл только четные числа из тех чисел, которые вводит пользователь.
    Составить программу, вычисляющую произведение 5 чисел, записанных в файле.

    Домашнее задание


    Дан файл целых чисел. Перепишите четные элементы файла в один дополнительный файл, а нечетные – в другой.


    написать администратору сайта