доброй ночи !!! попрошу у вас помощи....Я вот сам написал прогу, но не знаю, где поставить счётчик, чтобы считывать количтво строк....Вот задание....Дан текстовый файл. определить сколько раз в заданном файле встречаются заданные строки, используя метод прямого поиска строки...я привёл текст проги и ниже текст в виде песни
Program LR8; Uses Crt;
VAR
I, J, N, M, k : integer;
S, P : string;
t : char;
Fi, Fr : text;
{----- ОСНОВНАЯ ПРОГРАММА -----}
Begin CLRSCR;
Assign (Fi, 'lr8.txt'); Reset (Fi);
p := ''; i := 0;
writeln ('Исходные данные:',#10#13);
while not eof(Fi) do begin
read (Fi, t); write (t);
end;
Writeln(#10#13, 'Введите строку из песни:'); Readln(P);
I := -1; k := 0;
Repeat I := I+1; J := 0; While (J < M) and (S[I + J] = P[J]) do
J := J+1;
Until (j = M) Or (I = N-M);
Writeln('Количество одинаковых предоложений: ', k);
Repeat Until KeyPressed
end.
Вот, как-то так:
Program LR8;
Uses Crt;
VAR
i, k : integer;
P, t : string;
Fi : text;
{----- ОСНОВНАЯ ПРОГРАММА -----}
Begin
Assign (Fi, 'lr8.txt');
Reset (Fi);
writeln ('Исходные данные: ');
WriteLn;
while not eof(Fi) do begin
ReadLn(Fi,t);
WriteLn(t);
end;
WriteLn;
Writeln('Введите строку из песни: ');
Readln(P);
ReSet(Fi);
k := 0;
while not eof(Fi) do begin
ReadLn(Fi,t);
if t=P then Inc(k)
end;
Writeln('Количество одинаковых предоложений: ', k);
Close(Fi);
Repeat Until KeyPressed
end.
Спасибо большое......там последовательный поиск должен быть по заданию