Мета: навчитись використовувати текстові файли та працю­вати з ними за допомогою засобів мови програмування Pascal.

Мета: навчитись використовувати текстові файли та працю­вати з ними за допомогою засобів мови програмування Pascal.

Завдання: Дано рядок S і текстовий файл. Додати рядок S у початок файла.

Текст програми (процедури):

Program laba7;

uses crt;

const n=255;

var name:string;

procedure ReadFile(file_name:string);

var f:text;

s1:array[1..n] of string;

i:integer;

begin

assign(f,'file.txt');

reset(f);

while not eof(f) do

begin

for i:=1 to n do

readln(f,s1[i]);

end;

close(f);

end;

procedure WriteFile(file_name:string);

var f:text;

s1:array[1..n] of string;

s:string;

i:integer;

begin

writeln('vvedit ryadok:');readln(s);

assign(f,'file.txt');

rewrite(f);

writeln(f,s);

for i:=1 to n do

writeln(f,s1[i]);

close(f);

end;

begin

ReadFile(name);

WriteFile(name);

end.

Висновок: в ході виконання лабораторної роботи навчився основних алгоритмів роботи з рядками.

Дата добавления: 2015-09-29