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

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

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

Помогите, пожалуйста, с заданием. Задание: «Составляющее текстового файла f, поделенное на строки, переписать в текстовый файл g, перенося при этом в конец каждой строки все цифры, которые входят в неё (с сохранением выходного взаимного порядка как среди цирф, так и среди остальных букв строки)». Пока есть вот такой код, но я не знаю, норм он или нет,а возможности проверить пока нету.
Листинг программы
  1. var f,g:text; i,n,l:integer; s,s1:string;
  2. begin
  3. assign(f, filef.txt’);
  4. rewrite(f);
  5. readln(n);
  6. for i:=1 to n do
  7. begin
  8. readln(s); writeln(f,s);
  9. end;
  10. close(f);
  11. reset(f);
  12. assign(g, fileg.txt’);
  13. rewrite(g);
  14. while not eof(f) do
  15. begin
  16. readln(f,s);
  17. for length(s) downto i:=1 do
  18. begin
  19. 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
  20. begin
  21. l1:= length(s);
  22. s1:=copy(s,i,1);
  23. delete(s,i,1);
  24. insert(s,s1,l1);
  25. end;
  26. end;
  27. writeln(g,s);
  28. end;
  29. close(f,g); writeln;
  30. writeln(‘Второй файл содержит строки:’);
  31. reset(g);
  32. while not eof(g) do
  33. begin
  34. readln(g,s); writeln(s);
  35. end;
  36. end.

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

textual
Листинг программы
  1. var f,g:text; i,j,n,l:integer; s,s1:string;
  2. begin
  3.     assign(f, 'filef.txt');
  4.     rewrite(f);
  5.     readln(n);
  6.     for i:=1 to n do
  7.     begin
  8.         readln(s); writeln(f,s);
  9.     end;
  10.     close(f);
  11.     reset(f);
  12.     assign(g, 'fileg.txt');
  13.     rewrite(g);
  14.        while not eof(f) do
  15.     begin
  16.        readln(f,s);
  17.        s1:='';
  18.        j:=Length(s);
  19.        i:=1;
  20.         repeat
  21.            if s[i] in ['0'..'9']
  22.             then
  23.              begin
  24.                s1:=s1+s[i];
  25.                Delete(s,i,1);
  26.              end
  27.             else
  28.              Inc(i);
  29.         until i>j;
  30.        s:=s+s1;
  31.        Writeln(g,s);
  32.     end;
  33.     close(f);
  34.     close(g); writeln;
  35.     writeln('‘Второй файл содержит строки:’');
  36.     reset(g);
  37.     while not eof(g) do
  38.     begin
  39.         readln(g,s); writeln(s);
  40.     end;
  41.     close(g);
  42.    Readln;
  43. end.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

8   голосов , оценка 4.125 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы