массивы в паскале

[Regina]

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

[Maxs]

Сообщение от Regina

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

За слова программа считает любые символы разделенные пробелом, запятой, точкой, ; , ? , ! . Если делать чтобы программа считала именно слова, то тут её нужно подключать к БД слов Русского языка... Надо поточнее описывать задание. Какие знаки должна обрабатывать программа?

Program asdfsdg;
var
i,k:integer;
s:string;
begin
Writeln('Vvedite predlogenie');
Read(s);
k:=0;
For i:=1 to Length(s) do
begin
if i<Length(s) then begin
if (s[i]=',') or (s[i]='.') or (s[i]=':') or (s[i]=';') or (s[i]='?') or (s[i]='!') then if s[i+1]=' ' then begin
i:=i+2;
k:=k+1;
end
else
k:=k+1;
if (s[i]=' ') then k:=k+1;
end
else
k:=k+1;
end;
Writeln(k);
end.

[.Phoenix]

Program asdfsdg;
var
i,k:integer;
s:string;
begin
Writeln('Vvedite predlogenie');
Read(s);
k:=0;
For i:=1 to Length(s) do
begin
if i<Length(s) then begin
if (s[i]=',') or (s[i]='.') or (s[i]=':') or (s[i]=';') or (s[i]='?') or (s[i]='!') then if s[i+1]=' ' then begin
i:=i+2;
k:=k+1;
end
else
k:=k+1;
if (s[i]=' ') then k:=k+1;
end
else
k:=k+1;
end;
Writeln(k);
end.

Зачем здесь писать

if i<Length(s) then begin

*********

i:=i+2;

когда в цикле по параметру i будет по любому увеличиваться вплоть до указанного конечного значения?

[Maxs]

Сообщение от .Phoenix

Program asdfsdg;
var
i,k:integer;
s:string;
begin
Writeln('Vvedite predlogenie');
Read(s);
k:=0;
For i:=1 to Length(s) do
begin
if i<Length(s) then begin
if (s[i]=',') or (s[i]='.') or (s[i]=':') or (s[i]=';') or (s[i]='?') or (s[i]='!') then if s[i+1]=' ' then begin
i:=i+2;
k:=k+1;
end
else
k:=k+1;
if (s[i]=' ') then k:=k+1;
end
else
k:=k+1;
end;
Writeln(k);
end.

Зачем здесь писать

if i<Length(s) then begin

*********

i:=i+2;

когда в цикле по параметру i будет по любому увеличиваться вплоть до указанного конечного значения?

Вот это

if i<Length(s) then begin

для того чтобы он посчитал конечное слово. Смотри else относящееся к этому if . i:=i+2 это для того, чтобы, если стоит пробел после знака (запятой, ...) перескочить его и не считать этот пробел как конец слова. Знаю, что прога вадаст ошибку выхода из рамок массива, если предложение(текст) закончится 1 буквой. Но я таких предложений нигде не встречал. Если все-таки надо от этой ошибки обезопаситься, то можно еще проверить не является ли эта буква предпоследним символом.