Обробка текстів, Детальна інформація
Обробка текстів
Тип документу: Реферат
Сторінок: 14
Предмет: Комп`ютерні науки
Автор: Олексій
Розмір: 30.9
Скачувань: 945
...
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.
The online video editor trusted by teams to make professional video in
minutes
© Referats, Inc · All rights reserved 2021