Строки.

[Златачка]

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

[spein]

число слов = количество пробелов + 1;

str:= 'Какая-то строка с каким-то текстом';
for i:=1 to length(str)-1 do
if(str[i]=' ') then l:=l+1;
writeln('В строке ', l + 1, ' слов');

[Stilet]

Было: http://www.programmersforum.ru/showt...369#post398369
count - кол-во слов.

[spein]

Stilet, мой пример чем-то хуже?

[Leshii]

Если в предложении есть ещё другие знаки пунктуации и не только то можна так ...

Program slovo;
Uses crt;
const
symbols = [ ' ', ';', ':', '-','?','!','.',','];
var
s: string;
i: byte;
m, k: integer;
begin
clrscr;
writeln('...');
readln(s);
m:=length(s);
for i:=1 to m do begin
if (s[i] in Symbols) and not (s[i-1] in Symbols) then k:=k+1;
end;
writeln(k);
readln;
end.

[spein]

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

[Leshii]

А в конце предложения ты пробел перед точкой ставиш?) Или когда пишеш тоже отступ делаеш?

Без обид.

[Златачка]

Ребята а как блок схему составить по этой задаче???

[s-andriano]

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

Stilet, мой пример чем-то хуже?

Попробуй с таким:

str:= '  Какая-то    строка   с  каким-то   текстом   ';

[Stilet]

мой пример чем-то хуже?

Ничем. Когда я постил свой ответ, твоего еще не было.

Попробуй с таким:

А мой пример тоже не идеален.