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.

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

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

Логотип WordPress.com

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

Google photo

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

Фотография Twitter

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

Фотография Facebook

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

Connecting to %s

This site uses Akismet to reduce spam. Learn how your comment data is processed.

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