Помощь - Поиск - Пользователи - Календарь
Полная версия: Строки
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
vadim(b)
Задание:
Напишите программу, которая для любого входного текстового файла создаёт текстовый файл с повторением каждой строки.
Программа вроде рабочая да вот я не могу её вывести в текстовый файл как-то криво получается, выдаёт ошибку. Объясните, подскажите в чём ошибка
 const
n = 1000;
var
txt: array[1 .. n] of string;
s,t,y: string;
i, curr, prev: integer;
f,g:text;
begin
assign(f,'gg.txt');
reset(f);

s := '';
for i := 1 to n do
begin
readln(f,txt[i]);
curr := 1;
s := s + txt[i];
while true do
begin
prev := curr;
curr := prev + pos(#32, copy(s, curr, 255));
if curr = prev then break
else
if curr > 20 then
begin
assign(g,'1.txt');
reset(g);
curr := prev;
delete(s, 1, pred(curr)); curr := 1;
t:=(copy(s, 1, pred(curr)));
y:=(copy(s, 1, pred(curr)));
writeln(g,t);
writeln(g,y);
end
end;
s := s + ' ';


end;
readln;
end.
мисс_граффити
а зачем такие сложности? (или я задание не поняла...)
пока не конец файла делать
считать строку из первого файла
записать во второй
записать во второй
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.