Очередь: переписать содержимое одного файла в другой, перенося знаки препинания в конец строки

@lerka1996 · Регистрация: 04.03.2015

Author24 — интернет-сервис помощи студентам

1. Пусть дан текстовый файл А. Перепишите его содержимое в файл В, перенося при этом в конец каждой строки все входящие в нее знаки препинания.

@Constantin Cat · 17.03.2015, 21:22

Последовательность знаков сохранять?

@Constantin Cat · 19.03.2015, 12:42

С сохранением последовательности:

Pascal

var
  a,b:text;
  c:string;
function d(a:string):string;
  var
    b:string;
    i:integer;
  begin
    b:='';
    i:=1;
    while i<length(a) do
      begin
        while pos(a[i],',./?!-:;')>0 do
          begin
            b:=b+a[i];
            delete(a,i,1);
          end;
        inc(i);
      end;
    d:=a+b;
  end;
begin
  assign(a,'inp.txt');
  reset(a);
  assign(b,'out.txt');
  rewrite(b);
  while not eof(a) do
    begin
      readln(a,c);
      writeln(b,d(c));
    end;
  close(a);
  close(b);
  readln;
end.

@lerka1996 2 / 2 / 0 Регистрация: 04.03.2015 Сообщений: 76
		1
	Очередь: переписать содержимое одного файла в другой, перенося знаки препинания в конец строки 17.03.2015, 20:45. Показов 2207. Ответов 2 Метки нет (Все метки) 1. Пусть дан текстовый файл А. Перепишите его содержимое в файл В, перенося при этом в конец каждой строки все входящие в нее знаки препинания. 0

@Constantin Cat 3406 / 1825 / 489 Регистрация: 28.02.2015 Сообщений: 3,696
	17.03.2015, 21:22	2
	Последовательность знаков сохранять? 0

	19.03.2015, 12:42

Очередь: переписать содержимое одного файла в другой, перенося знаки препинания в конец строки

Решение