Технический форум - Обработка строк. Использование множеств. Данные типа String.

Технический форум (http://www.tehnari.ru/)

- Delphi, Kylix and Pascal (http://www.tehnari.ru/f43/)

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

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

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

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

Цитата:

Сообщение от Svetlanka (Сообщение 418257)

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

Пжл:

Код:

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.

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

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

VAL(St[i],Num,Code);

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

Цитата:

Сообщение от Svetlanka (Сообщение 418860)

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

VAL(St[i],Num,Code);

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

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

Цитата:

Сообщение от Svetlanka (Сообщение 419143)

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

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