Обробка текстів
Обробка текстів
Тип документу: Реферат
Сторінок: 14
Предмет: Компьютерные науки
Автор: Олексій
Розмір: 30.9
Скачувань: 1202
...
end;
procedure outbuff(var f : text);
...
end;
procedure putlex(var f : text; lex : str; nume : integer);
...
end;
begin
assign(f, 'in.txt'); assign(g, 'out.txt');
reset(f); rewrite(g);
while getlex(f, lex, nume) do
putlex(g, lex, nume);
if buff<>'' then outbuff(g);
close(f); close(g);
end.
end;
procedure outbuff(var f : text);
...
end;
procedure putlex(var f : text; lex : str; nume : integer);
...
end;
begin
assign(f, 'in.txt'); assign(g, 'out.txt');
reset(f); rewrite(g);
while getlex(f, lex, nume) do
putlex(g, lex, nume);
if buff<>'' then outbuff(g);
close(f); close(g);
end.