h1

Стирание текста при наличии в нем заданного символа

Июль 2, 2009

Стирание текста из файла, в случае нахождения заданного символа в тексте файла.

Program zam_per_sim_t;
uses crt;
var f: text;
i,n: integer; k,x,g,s,m: string;
begin
clrscr;
assign(f,’text.txt’);
reset(f);
writeln(‘vvedite zadannii simvol’);
readln(k);
while not eof(f) do begin
read(f,s);
end;

n:=pos(k,s);
if n=0 then writeln(‘ydaleniya ne proizshlo’) else
rewrite(f);
close(f);
readkey; end.

Advertisements

Добавить комментарий

Заполните поля или щелкните по значку, чтобы оставить свой комментарий:

Логотип WordPress.com

Для комментария используется ваша учётная запись WordPress.com. Выход / Изменить )

Фотография Twitter

Для комментария используется ваша учётная запись Twitter. Выход / Изменить )

Фотография Facebook

Для комментария используется ваша учётная запись Facebook. Выход / Изменить )

Google+ photo

Для комментария используется ваша учётная запись Google+. Выход / Изменить )

Connecting to %s

%d такие блоггеры, как: