Дана строка (прочитать из файла). Удалить из неё все знаки препинания (. ; : , ! ?)....

Question

Дана строка (прочитать из файла). Удалить из неё все знаки препинания (. ; : , ! ?). Результат вывести на экран.

Comments

Паскаль

Answer 1

Var f: text;
    s,st: string;
    i: integer;
begin 
   st:='.:;,!?';
   assign (f,'C:\input.txt');
   reset (f);
   read (f,s);
   close(f);
   writeln('считана строка:  ',s);
   i:=1;
   repeat
     if pos(s[i],st)>0 then
     begin
       delete(s,i,1);
       i:=i-1;
    end;
    i:=i+1;
  until i>length(s);
  writeln('новая строка:  ',s);
  readln;
end.

Comments

забыл дописать нужно вывести это в отдельный файл (условие и итог)

---

Обе строки, или последнюю выводить в файл?

---

Обе

---

var f: text;
    s,st: string;
    i: integer;
begin 
   st:='.:;,!?';
   assign (f,'C:\input.txt');
   reset (f);
   read (f,s);
   close(f);
   writeln('считана строка:  ',s);
   assign(f,'C:\output.txt');
   rewrite(f);
{запись в файл исходной строки}   
   writeln(f,s);
{цикл по строке}   
   i:=1;
   repeat
     if pos(s[i],st)>0 then
     begin
       delete(s,i,1);
       i:=i-1;
    end;
    i:=i+1;
  until i>length(s);
  writeln('новая строка:  ',s);
{ запись в файл новой строки}  
  

---

Немного не вошло     { запись в файл новой строки}  
  writeln(f,s);
  close(f);
  readln;
end.