Написать процедуру DelComment(f)

@Silverain14 · Регистрация: 10.08.2010

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

Написать процедуру DelComment(f), которая удаляет из файла, содержащего текст программы на Паскале, все комментарии вида { .... }.

@Puporev · 24.08.2010, 18:36

Pascal

Uses Crt;
procedure DelComment(var f,g:text);
var c:char;
begin
while not eof(f) do
 begin
  read(f,c);
  if c<>'{' then write(g,c)
  else while c<>'}' do read(f,c);
 end;
close(f);
close(g);
write('Комметарии удалены!');
readln
end;
var f,g:text;
    nf,ng:string;
begin
clrscr;
write('Имя файла для чтения: ');
readln(nf);
nf:=nf+'.pas';
assign(f,nf);
{$I-} reset(f);  {$I+}
if IOResult <> 0 then
 begin
  writeLn('Файл ',nf,' не найден!');
  writeLn('Работа программы завершена. Нажмите ENTER');
  readln;
  exit;
 end;
write('Имя файла для записи: ');
readln(ng);
ng:=ng+'.pas';
assign(g,ng);
rewrite(g);
DelComment(f,g);
end.

@Silverain14 0 / 0 / 0 Регистрация: 10.08.2010 Сообщений: 16
		1
	Написать процедуру DelComment(f) 24.08.2010, 18:04. Показов 1036. Ответов 1 Метки нет (Все метки) Написать процедуру DelComment(f), которая удаляет из файла, содержащего текст программы на Паскале, все комментарии вида { .... }. 0

	24.08.2010, 18:36

Написать процедуру DelComment(f)

Решение