Пусть в файле содержится следующая информация:
| -32
|
|
|
|
|
|
|
|
|
|
|
|
| -5
| -8
|
|
| -8
|
| -12
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| -1
| -2
| -4
|
|
|
|
|
| -1
| -2
|
|
|
|
|
|
Этот файл можно создать в среде Турбо Паскаль следующим образом:
¨ создайте новый файл посредством командыNewменю File;
¨ запишите все числа, разделяя их пробелами, и разбейте на строки, как указано в задании;
¨ сохраните файл, например, под именем INT1.DAT. Этот файл используется в программе, которая приведена ниже.
Program Example_85;
Var F: Text;
х, k: Integer;
Begin
Assign(F, 'INT1.DAT'); {Связываем
файловую переменную с файлом на диске}
Reset(F); {Открываем файл для чтения}
While Not Eof (F) Do
{Пока не достигнут конец файла}
Begin
k:=0; {Счетчик элементов строки}
While Not Eoln(F) Do
{Пока не достигнут конец строки}
Begin
Read(F, x);
{Считываем очередное число}
Write(х, ' ');
{Выводим его на экран}
Inc(k); {Увеличиваем счетчик }
End;
Writeln('В строке ', k,' элементов');
Readln(F);
{Переходим к следующей строке файла}
End;
Close(F); {Закрываем файл}
Readln;
End.
Пример 2
Дан текстовый файл, содержащий программу на языке Паскаль. Проверить эту программу на соответствие числа открывающих и закрывающих круглых скобок. Считать, что каждый оператор программы занимает не более одной строки файла.
