Чтение данных из файла

var
    f: file of char;
    c: char;
 
begin
    assign (f, 'c:\file.txt');
    reset (f);
 
    while not eof (f) do begin
        read (f, c);
        writeln (c);
    end;
 
    close (f);
 
readln
end.

Процедура reset открывает файл для чтения. Т.е. мы можем в дальнейшем в программе извлекать данные из файла с помощью процедуры read.

Данные извлекаются «порциями» базового типа. В данном примере – это char (символы).

Чтение данных из файла продолжается до тех пор, пока не будет достигнут конец файла. Функция eof проверяет достигнут ли конец файла, переданного ей в качестве аргумента и, если достигнут, возвращает true. Выражение not eof (f) проверяет обратное – то, что конец файла еще не достигнут.

Комментарии

Помогите написать программу по этой теме .

Дано натуральное число n. Запишите в файл целые числа b1,...,bn, где при i=1,2,...,n значение bi равно: a) i ; б) i^2 ; в) i! ; г) 2^i+(3^i+1). Помогите написать эту задачу на Turbo Pascal пожалуйста.

Помогите пожалуйста! В

Помогите пожалуйста! В операторе Assign, когда мы пишем имя файла можем ли мы в нем использовать переменную? Допустим вот в таком случае: Assign(f1, 'задание ',имя переменной, '.txt); .

Можно!

var s: string;
 
s:='задание '+имя переменной+'.txt;
Assign(f1, s); .

Чтение данных из файла. Помощь в вопросе

НЕТ. Мы не можем так делать. Это неверный формат.
Вот как надо: assign(f,'имя.txt')