сть комп "ютерів'); readln (n);
assign (fl, 'd: computer' );
rewrite (fl); {Відкріємо f1 для запісування в нього даніх)
for i: = l to n do
begin
writeln ('Уведіть марку комп "ютера:'); readln (cl. marka);
writeln ('Уведіть ОБСЯГИ его HDD та RAM:');
readln (cl.hdd, cl.ram);
writeln ('Введіть швідкодію:'); readln (cl.speed);
write (fl, сі); {Запішемо введені дані у файл f1)
end; (fl); {Закріємо файл f1)
writeln ('Марка ОБСЯГИ вінчестера RAM Швідкодія');
reset (f1); {Відкріємо файл для зчітування даніх)
for i: = l to n do {Віведемо Зміст файлу на екран)
begin
read (f1, c1); {Зчітаємо Чергова дяни з файлу)
writeln (cl.marka: 15, cl.hdd: 10, cl.ram: 7, cl.speed: 8)
end;
readln
end.
Окрім файлів послідовного доступу можна створюваті и опрацьовуваті файли прямого доступу. Відмінність така: перед використаних команд read чг write слід Забезпечити доступ до k-го елемента (нумерація від нуля) файлу за помощью відряд
seek (<назва файлу>, k);
. Текстові файли. дані у тіпованіх файлах, описом Вище, ПЄВНЄВ чином кодуються комп'ютером. Ці файлі не можна редагуваті або переглядаті помощью звичайна текстового редактора. Тому, окрім тіпованіх, Використовують текстові файли, Які НЕ мают такого недоліку. p> Елементами Текстову файлів є рядки (послідовності сімволів: літер, цифр, знаків та пропусків). Такий файл можна створюваті та редагуваті помощью текстового редактора. Розмежовувачем между елементами файлу є перепустку. Уведення шкірного рядка закінчується натісканням на клавішу вводу. Для перевіркі чі є символ у рядку Використовують функцію
еоln (<имя файлу>),
яка пріймає Значення true, ЯКЩО знайдено Кінець рядка. Текстові файли опісують у розділі Опису змінніх так:
var <список імен змінніх>: text;
дані з рядка текстового файлу можна зчітаті помощью команд
read (<имя файлу >, <список параметрів>);
readln (<имя файлу >, <список параметрів>);
Дія якіх булу описана Вище. Різніця между цімі командами така: під годину Виконання відряд readln зайві дані у рядку ігноруються и наступна команда read чг readln буде зчітуваті дані з Наступний рядка. p> Рядок текстового файлу можна создать помощью звичайна текстового редактора або програмнного способом за помощью
Команд
write (< имя файлу >, <список віразів>); writeln (<имя файлу >, <список віразів> ;);
На відміну від Звичайний файлів у текстовий файл можна додават...
