подсчитать количество строк в файле, содержащий заданный символ более одного раза Опции

[kill94]

нужно подсчитать количество строк в файле, содержащий заданный символ более одного раза

[kill94]

ну типа таак

program ololo;
uses crt;
var f1,f2:text;
    Name1,Name2,str:string;
    i,q,j:integer;
    c,sim,p:char;
begin
  clrscr;
 q:=0;
 j:=0;
writeln ('Ведите символ'); readln(sim);
Writeln ('Входной файл');
readln (Name1);
Assign (f1, Name1);
writeln('Выходной файл');
readln(Name2);
assign(f2, Name2);
p:=' ';
{$I-}
reset(f1);   rewrite(f2);
if IOResult<>0 then
begin
  Write ('Файл <', Name1, '>не найден'); c:=readkey;
end;

   {$I+}
Writeln;

Writeln ('<<<<Входной файл>>>>');
while not eof(f1) do begin
while not eoln(f1) do begin
     read(f1,c); Write©;
     if c=sim then j:=j+1;
     end;
     readln(f1);
if (c=sim) and (j=2) then
      begin j:=j+1; q:=q+1
      end;
end;
write(f2,q);
writeln;
writeln;
writeln ('<<<<Выходной файл>>>>');
reset(f2);
while not eof(f2) do
 begin
  read(f2,c); write©;
 end;
 c:=readkey;
 Close(f1);
Close(f2);
end.
 

Сообщение отредактировано: kill94 - 12.12.2012 3:11