В текстовом файле удалить все символы "+" и "-", а так же все буквы "б" перед которыми находится буква "с".

@vanya1234 · Регистрация: 18.03.2015

Дан текстовый файл. В нем удалить все символы "+" и "-", а так же все буквы "б" перед которыми находится буква "с".

Pascal

program filetext;
uses crt;
var f:text;
    c:char;
begin
clrscr;
assign(f,'f.txt');
reset(f);
 while (not eof(f)) do begin
readln(f,s);
 
...
 
readln;
end.

@ZX Spectrum-128 · 19.03.2015, 12:32

Pascal

program filetext;
uses
  crt,dos;
var
  f,g:text;
  s:string;
  i:integer;
begin
  clrscr;
  assign(f,'f.txt');
  assign(g,'g.txt');
  reset(f);
  rewrite(g);
  while not eof(f) do
    begin
      readln(f,s);
      for i:=length(s) downto 1 do
        begin
          if (s[i]='+') or (s[i]='-') or ((s[i]='б') and (s[i-1]='с')) then
            delete(s,i,1);
        end;
      writeln(g,s);
    end;
  close(f);
  close(g);
 
  erase(f);
  rename(g,'f.txt');
 
  readln;
end.

Опции темы