Мужики, работа с рядками - Turbo Pascal!!))

[FDCastro]

Найти количество слов и если она нечетная, то подать звуковой сигнал...
Роюсь в инете, но там находят только слова, которые заканчиваются на ту или иную букву. Помогите, пожалуйста, очень прошу))

Вот сдесь считает слова

uses crt;
var s: string;
    i,k: byte;
begin
write('s='); readln(s);
for i:=1 to length(s)-1 do
    if (s[i]=' ') and (s[i+1]<>' ') then inc(k);
writeln('Kolichestvo slov ',k+1);
readln;
end.

Но как дописать код, чтобы не выводило на экран к-во слов, а проверяло на непарность и пикало?)))
Спасибо

[Wizard#2277]

Вместо вывода слов надо прописать проверку типа if k/2 <> 0 then beep();...

[Utkin]

if k/2 <> 0

Наверно лучше будет:

if k mod 2=1 ...

и почему

Мужики, работа с рядками

? Я знаю, что на данном форуме имеются как минимум три программиста-девушки, которые могут утереть нос многим мужикам . Поэтому это разделение по половому признаку надо как-то прекращать...

[Izobara]

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

Наверно лучше будет:

if k mod 2=1 ...

При непарном количестве слов пробелов будет n-1, то есть парное.

uses wincrt;
var
 ch:char;
 i:integer;
  begin
   While not eoln do
    begin
	 read(ch);
	 if ch=' ' then inc(i);
	end;
           Writeln(i+1);
	if i mod 2 = 0 then sound(880);
  end.

[FDCastro]

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

При непарном количестве слов пробелов будет n-1, то есть парное.

uses wincrt;
var
 ch:char;
 i:integer;
  begin
   While not eoln do
    begin
	 read(ch);
	 if ch=' ' then inc(i);
	end;
           Writeln(i+1);
	if i mod 2 = 0 then sound(880);
  end.

Странно, но звуковой сигнал не подается... Может из-за того, что я меняю wincrt на crt (потому что мой ТП wincrt что-то не понимает) Пишет кол-во слов, но звука нет((

[Izobara]

Попробуй sound заменить на
Beep(330,2);
Турбо может не дружить с дровами винды.

[Человек_Борща]

Вот так правильнее будет:

program words;

uses crt;

var
  s:string;
  i,j,c:Integer;
  sLen:Integer;
begin
  WriteLn('s=');
  ReadLn(s);
  sLen:=Length(s)-1;
  for i:=0 to sLen do
  begin
    j:=i+1;
    if j <= sLen then
    begin
      if (s[i] <> ' ') and (s[j] = ' ') then
      begin
        Inc(c);
      end;
    end else
    begin
     if (i = sLen) and (s[i] <> ' ') then
     Inc(c);
    end;
  end;
  WriteLn('c=',c);
  if ((c mod 2) <> 0) then WriteLn('LOL!');
  WriteLn('Press eny key to exit...');
  ReadLn;
end.

Пробел никогда не значит окончание слова. Я введу "Маша петя<тут 3-5 пробелов>вася" и у вас выдаст неверный результат. В моём варианте это не прокатывает.