Здравствуйте, уважаемые эксперты
Помогите пожалуйста с задачей на С (си): через файл открыть текст и удвоить в тексте каждую литеру. В приложении прикрепляю файл такой же уже решённой задачи, но на ЯП Pascal (не знаю, может чем-то это поможет). Заранее благодарен
Приложение:
uses crt;
const lt=[65..90,97..122,168,184,192..255];{коды букв по ANSI}
var f,g:text;{2 текстовых файла}
s:string;{строка}
i:byte;{счетчик цикла}
begin
clrscr;
assign(f,'text1.txt');{связываем переменную с существующим файлом}
reset(f);{открываем для чтения}
assign(g,'text2.txt');{создаем новый файл}
rewrite(g);{открываем для записи}
while not eof(f) do{пока не конец файла}
begin
readln(f,s);{читаем построчно}
i:=1;
while i<=length(s) do{идем по строке}
begin
if ord(s[i]) in lt then insert(s[i],s,i+1);{если литера, вставляем еще одну такую же}
inc(i,2);{увеличиваем счетчик на 2}
end;
writeln(g,s);{записываем строку в новый файл}
end;
close(f);{закрываем оба файла}
close(g);
readln
end.