Считывание информации из файла в целочисленную или вещественную переменную.

Считывание информации из файла в целочисленную или вещественную переменную аналогично описанному в предыдущем уроке способу. Например, если в файле записаны числа: 10 25 63 42 58, то в целочисленную переменную будет записано только число 10. Для того чтобы все числа были считаны из файла и выведены на экран также используют цикл с признаком конца файла.

Напишем программу, которая подсчитывает количество положительных чисел, хранящихся в текстовом файле. Для этого в директории, где хранятся наши программы необходимо создать текстовый файл. Я создал текстовый файл «chislo.dat» и поместил туда несколько чисел.

Обратите внимание, что данному файлу я присвоил расширение «.dat». Дело в том, что текстовые файлы не обязательно должны иметь расширение «.txt». В файле формата «.dat» также могут храниться текстовые данные и такие файлы можно открыть любым текстовым.

Считывание информации из файла в целочисленную или вещественную переменную.

program file4;
uses crt;
var f:text;
a:integer;
k:integer;
begin
clrscr;
assign(f,'programs/chislo.dat');
reset(f);
k:=0;
while not eof(f) do
begin
read(f,a);
if a>0 then inc(k);
end;
close(f);
writeln('k=',k);
readln
end.

Строка №3. Создаем файловую переменную «f», для доступа к файлу.

Строка №4. Целочисленную переменную «a» будем использовать в качестве буферной переменной. В нее мы будем считывать числа из файла для определения, являются ли эти числа положительными или отрицательными.

Строка №5. Переменную «k» будем использовать для хранения количества положительных чисел.

Строка №8. Связываем файловую переменную «f» с файлом «chislo.dat», хранящемся на жестком диске «С» в директории «FPC\2.2.2\bin\i386-win32\Programs».

Строка №9. Открываем этот текстовый файл для чтения.

Строка №10. Обнуляем переменную для подсчета количества положительных чисел.

Строка №11. Указываем условие. Пока нет конца файла, должны выполняться действия в строках №13–№14.

Строка №13. Читаем из файла число и записываем его в буферную переменную «a».

Строка №14. Проверяем условие. Если значение переменной «a» (т.е. число, считанное из файла) больше 0, тогда увеличиваем переменную «k» на единицу.

Строка №17. Выводим на экран количество положительных чисел.

Предыдущая статья : Файлы в Паскаль (часть 2).

Оглавление : Уроки Паскаль. Файлы.

Следующая статья : Текстовые файлы.