Обработка строк. Использование множеств. Данные типа String.

[Svetlanka]

Обработка строк. Использование множеств. Данные типа String.

Дана строка символов, состоящая из нулей, единиц и пробелов. Группы нулей и единиц, разделенные пробелами (одним или несколькими) и не содержащие пробелы внутри себя, будем называть словами. Требуется подсчитать количество слов в данной строке. Рассматривая слова как числа, определить количество слов, делящихся на 5 без остатка.

Желательно с блок-схемой.

 

[Svetlanka]

помогите пжл!!!!!!!!

 

[Vladimir_S]

помогите пжл!!!!!!!!

Пжл:

VAR
 S,SS:String;
 St:ARRAY[1..127] of String;
 Cnt,N,N5:Byte;
 i,pos:Integer;
 Code:Word;
 Num:LongInt;

BEGIN
 WriteLn('Enter the string:');
 ReadLn(S);
 N:=0;
 i:=0;
 pos:=1;
 Cnt:=0;
 REPEAT
  Inc(N);
  Repeat
   Inc(i);
   If S[i]<>' ' then Inc(Cnt);
  Until (S[i]=' ') or (i=Length(S));
  St[N]:=Copy(S,pos,Cnt);
  If i<Length(S) then
   begin
    Repeat
     Inc(i);
    Until S[i]<>' ';
    pos:=i;
    Cnt:=1;
   end;
 UNTIL i=Length(S);
 WriteLn('There are ',N,' words in the string');
 N5:=0;
 For i:=1 to N do
  begin
   VAL(St[i],Num,Code);
   If (Code=0) and ((Num mod 5)=0) then
    Inc(N5);
  end;
 WriteLn('There are ',N5,' numbers divisible by 5');
 ReadLn;
END.

 

[Vladimir_S]

Так, внимание - поправка!
Вчера как-то не обратил внимание, что пробелов может быть больше одного. Сейчас поправки в код (#3) внесены.

 

[Svetlanka]

не могу понять... что не так с этой строчкой???!!!

VAL(St,Num,Code);

 

[Svetlanka]

все испробовала, все равно что-то не так!!

 

[Vladimir_S]

не могу понять... что не так с этой строчкой???!!!

VAL(St,Num,Code);

Света, давайте конкретнее! В чем проявляется это "не так"? Попытаемся разобраться, хотя, конечно, перед выкладыванием программа была тщательно оттестирована и у меня всё "так".

 

[Svetlanka]

"Процедура VAL с параметрами указанных типов не найдена"

 

[Vladimir_S]

"Процедура VAL с параметрами указанных типов не найдена"

Так, ну это уже кое-что. Очевидно, гримасы разных реализаций Паскаль-транслятора.
По сути:
1. Процедура VAL (преобразование строки в число) - стандартная процедура Паскаля.
2. Попробуйте в Вашем Паскале вызвать Help, найти там этот VAL и посмотреть, какие типы параметров для него предусмотрены. Возможно, Вашему Паскалю не понравился тип LongInt для искомого числа и Word для Code, а хочет, например, чтобы и то и другое было Integer, ну или еще что-нибудь в этом роде (проблем с первым параметром - строковой переменной - быть не должно). Тогда нужно просто в списке глобальных переменных поправить тип параметра.

 

[Дашка Шалахан]

......

 

[Svetlanka]

Значит так-с:
Val(s,v,code) процедура
s - string,
v - integer, real,
code - integer

Вот теперь все работает!! Спасибо за помощь!!!

 

[Vladimir_S]

Ну-с, так я и знал. А вот мой ТР требует v:LongInt; Code:Word. Но главное - разобрались и заработало. Вот-с.
P.S. Словоерсы - какая прелесть! Сейчас их уже не встретишь - а жаль. Обидно-с.

 

[Svetlanka]

Ну почему ж? Хоть и редко, но встречаются.=)