ЗАПИС ФАЙЛУ.

Під записом файлу розуміють виведення результатів програми із оперативної пам'яті машини на диск, тобто створення нового файлу на зовнішньому пристрої.

В програмі необхідно:

1. Відкрити файл для запису,

2. Вивести дані;

3. Закрити файл для запису.

Зовнішній файл, в якому записуються дані з програми називається вихідним.

Загальна форма запису має наступний вигляд:

Rewrite(ім’я);

Write(ім’я, параметри);

Close(ім’я);

Оператор виведення для запису даних у файл володіє усіма властивостями звичайного оператору Write. Якщо записано Write(napaм);, то дані виводяться на екран дисплею. А якщо записано Write (ім'я, парам);, то дані записуються у файл, який зберігається на диску. Rewrite в деяких версіях має ті ж параметри, що й Reset.

Приклад:дано type рядок = array [1..100] of char;

Текст=file of char;

Описати процедуру цифри (s,t), яка записує у текст t всі цифри з рядку s.

Procedure цифри (var t: text; s:рядок);

Var і: integer;

Begin

Rewrite (t);

For i:=1 to 100 do

If s[i] in [‘0’..’9’] then

Write(t,s[i]) ;

Close(t);

End;

Приклад:a=150; b=12.6. Записати у файл dl.dat рядок у вигляді:

а=150_ _ _ _ _b=12.6

program рr;

type k:file of real;

var s:k;

a, b: real;

12: integer;

chislo:real;

begin

12: =1;

Write(‘Введіть a і b’);

readln(a ,b) ;

rewrite(s, ‘dl^’, ‘dat’, 12);

write(s, ‘a=’',а:5, ‘_’:5, ^‘b= ‘, b:4:1);

close (s);

end.

Оператор Rewrite відкриває файл для запису в нього даних, так як для запису одного рядку цілком досить одного блоку, то змінній 12 присвоюється значення рівне 1 (1блок=256 байтів).

<== попередня сторінка	\|	наступна сторінка ==>
ЧИТАННЯ ФАЙЛІВ.	\|	ЧИТАННЯ ТА ЗАПИС ФАЙЛІВ.

Не знайшли потрібну інформацію? Скористайтесь пошуком google:

Генерація сторінки за: 0.005 сек.