Заменить в файле все элементы, равные lit, на пробел

@Amigo31 · Регистрация: 23.05.2016

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

Люди добрые помогите пожалуйста)

Задан текстовой файл и некоторая литера lit. Написать программу, которая заменяет в файле все элементы, равные lit, на пробел.

есть кое-какие наработки,

Pascal

Program lab08;
Var f:file of char;
    s:char;
    i:integer;
    m:string;
Begin
    Assign(f,'1.txt');Reset(f);
    While not Eof(f) do
     Begin
     readln(m);
      readln(f,s);
      For i:=1 to Length(s) do
       if s[i]=m then s[i]:=' ';
      write(f,s);
     End;
    Close(f);
End.

Заранее, спасибо!

@ZX Spectrum-128 · 24.05.2016, 18:59

Pascal

program lab08;
 
var
  f, g: text;
  lit: char;
  i: integer;
  s: string;
 
begin
  write('Lit?');
  readln(lit);
  
  Assign(f, '1.txt');
  Reset(f);
  Assign(g, '2.txt');
  Rewrite(g);
  while not Eof(f) do
  begin
    readln(f, s);
    for i := 1 to Length(s) do
      if s[i] = lit then 
        s[i] := ' ';
    writeln(g, s);
  end;
  Close(f);
  Close(g);  
  erase(f);
  rename(g, '1.txt');  
end.

Опции темы