Будем считать, что предложением является любая последовательность символов, начиная пробелом и заканчивающаяся точкой, восклицательным или вопросительным знаком. Напишите программу, которая определяет кол-во предложений и кол-во слов в текстовом файле.
Я составил задачу, она вроди бы находит кол-во предложений, а принахождении кол-ва слов
она не работает :
Код
uses crt;
var
t,k,i:integer;
f:text;
n:string;
begin clrscr;
assign (f,'c:\1.txt');
reset(f);
read(f,n);
for i:=1 to length(n) do
if (n[i]=' ') and ((n[i-1]='.') or (n[i-1]='!') or (n[i-1]='?')) then
t:=t+1;
{for i:=1 to length(n) do
if (n[1]=' ') or ((n[i-1])=' ') then
k:=k+1;
writeln('iscomih slov: ',k);
writeln;}
writeln('iskomih predlog: ',t);
readln;
close(f);
end.
var
t,k,i:integer;
f:text;
n:string;
begin clrscr;
assign (f,'c:\1.txt');
reset(f);
read(f,n);
for i:=1 to length(n) do
if (n[i]=' ') and ((n[i-1]='.') or (n[i-1]='!') or (n[i-1]='?')) then
t:=t+1;
{for i:=1 to length(n) do
if (n[1]=' ') or ((n[i-1])=' ') then
k:=k+1;
writeln('iscomih slov: ',k);
writeln;}
writeln('iskomih predlog: ',t);
readln;
close(f);
end.