eg6_2fil.pas

关于课件 好多种结构的算法 等等 大家自己看吧

program removecomments(input,output,intext,outtext);
{  example6-2 P130}
var
 f,g:text;
 ch:char;
 state:(copy,comment);
procedure outtext(var t:text);
var
 ch:char;
begin
 while not eof(t) do
  begin
   while not eoln(t) do
    begin
     read(t,ch);
     write(ch);
    end;
   readln(t);
   writeln;
  end;
end;
begin
 assign(f,'intext');
 reset(f);
writeln;
writeln('intext::::');
 outtext(f);
 assign(g,'outtext');
 rewrite(g);
 reset(f);
 state:=copy;
 while not eof(f) do
  begin
   while not eoln(f) do
    begin
     read(f,ch);
     case state of
      copy:if ch='{' then state:=comment
           else write(g,ch);
      comment:if ch='}' then state:=copy
      end
     end;
   readln(f);
   writeln(g);
  end;
reset(g);
writeln;
writeln('outtext::::');
outtext(g);
close(f);
close(g);
end.