Редактирование строк в одном файле и перезапись их в другой - Turbo Pascal
Формулировка задачи:
Помогите, пожалуйста, с заданием.
Задание: «Составляющее текстового файла f, поделенное на строки, переписать в текстовый файл g, перенося при этом в конец каждой строки все цифры, которые входят в неё (с сохранением выходного взаимного порядка как среди цирф, так и среди остальных букв строки)».
Пока есть вот такой код, но я не знаю, норм он или нет,а возможности проверить пока нету.
Листинг программы
- var f,g:text; i,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);
- for length(s) downto i:=1 do
- begin
- if (s[i]=’0’) or (s[i]=’1’) or (s[i]=’2’) or (s[i]=’3’) or (s[i]=’4’) or (s[i]=’5’) or (s[i]=’6’) or (s[i]=’7’) or (s[i]=’8’) or (s[i]=’9’) then
- begin
- l1:= length(s);
- s1:=copy(s,i,1);
- delete(s,i,1);
- insert(s,s1,l1);
- end;
- end;
- writeln(g,s);
- end;
- close(f,g); writeln;
- writeln(‘Второй файл содержит строки:’);
- reset(g);
- while not eof(g) do
- begin
- readln(g,s); writeln(s);
- end;
- end.
Решение задачи: «Редактирование строк в одном файле и перезапись их в другой»
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.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д