Файлы в языке Паскаль

1. Файлы в языке Паскаль • Что такое файл? • Для чего нужны файлы? • Данные из файла поступают куда? • Откуда осуществляется запись в файл?

2. Работа с файлами Компилятор Turbo Pascal поддерживает три типа файлов:

3. Текстовый файл • Хранит информацию в символьном виде (кодов кодировочной таблицы ASCII) • это совокупность строк, разделенных метками конца строки • Сам файл заканчивается меткой конца файла.

4. Работа с файлами

5. 1ma • 2mb • Read(f,a,b) • Readln(f,a) • Readln(f,b) Иванов 5 4 Петров 3 5

6. Пример 1. Создать текстовый файл, содержащий случайные целые числа (N строк по К чисел в строке). Program P1; Var f:Text;i,k,n,j,x:integer; Begin Assign(F, ‘c:\temp\file.txt’); Randomize; Readln(n,k); Rewrite(f); For i:=1 to n do Begin For j:=1 to k do begin x:=Random(1000); Write (F,x:4); end; writeln(F) End;Close(f)End. Как просмотреть содержимое файла? N=3 k=2 995 894 123 562 N=3 k=2 995 894 123 562

7. Пример 2. Вы имеете файл, в котором только числа. Найти сумму чисел в данном файле. Найти количество строк в файле. Program P2; Var f:Text; x1,s:integer; x:char; Begin Assign(F, ‘c:\temp\file.txt’); max:=0; Reset(F); While not eof(F) do Begin s:=0; While not eoln(F) do begin read(F,X); if (x>=’0’) and (x<=‘5’) then begin x1:= ord(x)- ord(‘0’); s:=s+x1; end end; readln(F); if s>max then max:=s; End; Writeln(s); Close(f)End. N=3 k=2 995894 123562 Иванов 5 4 Петров 3 5

8. Решение задач • Подсчитать количество строк в тексте из файла Note.txt (тип информации символьный) • Определить самуюдлинную строку в текстовом файле Note.txt • В двух файлах находятся числа по одному в строке.Вывести в третий файл сумму двух соответствующих чисел