Редактирование строк в одном файле и перезапись их в другой - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

Помогите, пожалуйста, с заданием. Задание: «Составляющее текстового файла f, поделенное на строки, переписать в текстовый файл g, перенося при этом в конец каждой строки все цифры, которые входят в неё (с сохранением выходного взаимного порядка как среди цирф, так и среди остальных букв строки)». Пока есть вот такой код, но я не знаю, норм он или нет,а возможности проверить пока нету.

Решение задачи: «Редактирование строк в одном файле и перезапись их в другой»

textual
Листинг программы
var f,g:text; i,j,n,l:integer; s,s1:string;
begin
    assign(f, 'filef.txt');
    rewrite(f);
    readln(n);
    for i:=1 to n do
    begin
        readln(s); writeln(f,s);
    end;
    close(f);
    reset(f);
    assign(g, 'fileg.txt');
    rewrite(g);
       while not eof(f) do
    begin
       readln(f,s);
       s1:='';
       j:=Length(s);
       i:=1;
        repeat
           if s[i] in ['0'..'9']
            then
             begin
               s1:=s1+s[i];
               Delete(s,i,1);
             end
            else
             Inc(i);
        until i>j;
       s:=s+s1;
       Writeln(g,s);
    end;
    close(f);
    close(g); writeln;
    writeln('‘Второй файл содержит строки:’');
    reset(g);
    while not eof(g) do
    begin
        readln(g,s); writeln(s);
    end;
    close(g);
   Readln;
end.

Оцени полезность:

8   голосов , оценка 4.125 из 5
Похожие ответы