давно
Старший Модератор
31795
6196
08.02.2008, 23:02
общий
это ответ
Здравствуйте, Потеренный!
В приложении Ваша программа.
Удачи!
Приложение:
program q122294;
var
a,b:text;{перменные фaйлового типа}
c:char;{один символ, т.к. будем читать и записывать файл посимвольно}
d:integer;{счетчик записей}
e:boolean;{флаг записи}
begin
assign(a,‘a.txt‘);{открываем файлы}
assign(b,‘b.txt‘);
reset(a);{для чтения}
rewrite(b);{для записи}
d:=0;{сбрасываем счетчик}
e:=false;{сбрасываем флаг}
while not(eof(a))do{повторяем пока не закончится файл}
begin
read(a,c);{читаем один символ}
if e and (c<>‘"‘) then write(b,c);{проверяем флаг записываем если истина}
if c=‘"‘ then{если это кавычка то меняем флаг на противоположный}
begin
e:=not e;{меняем флаг}
if e then inc(d);{увеличиваем счетчик}
end;
end;
close(a);{закрываем файлы}
close(b);
write(‘record:‘,d:6);{выводим результат - колтчество фрагментов}
end.
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.