Задача на строки!, Помогите написать! Опции

[Akella]

Условие: Дана непустая последовательность слов из строчных латинских букв; слова разделяются запятыми или пробелами (без разницы). Среди всех пар Ai, Bi, где Ai - первая, Bi - последняя буква i-го слова пос-ти, определить наиболее часто встречающуюся пару!

Пример: abcd abd adc bcd Чаще всего встречается пара a и d!

Заранее ОГРОМНОЕ спасибо! А то я в строках не очень разбираюсь!

Сообщение отредактировано: Akella - 9.11.2008 18:01

[Lapp]

А то я в строках не очень разбираюсь!

А чего в них разбираться?
Чтобы слова выделить, вот тут почитай: Разбиение на слова. Все способы.
А потом сделай двумерный массив целых:

n: array['a'..'z','a'..'z']of integer;

Заполни его нулями. А потом пройдись по всем словам (допустим, s[i]) и делай вот такую операцию:

Inc(n[s[i][1],s[i][Length(s[i])]]);

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

[Akella]

эээээ.....не очень понятно... и какие-то длинные способы разбивки на слова...

Сообщение отредактировано: Akella - 9.11.2008 18:32

[Lapp]

эээээ.....не очень понятно...

ыыыыы... совсем непонятно, что именно тебе не очень понятно..


Добавлено через 1 мин.

какие-то длинные способы разбивки на слова...

Ага - уже лучше!
ну, вот этот не очень длинный: Разбиение на слова. Все способы.

[Akella]

можно сказать что все...

Сообщение отредактировано: Akella - 9.11.2008 18:33

[Lapp]

можно сказать что все...

И тем не менее, давай конкретные вопросы. В способе klem4 разбивки на слова что неясно?

[Akella]

так что такое inc ?? мы этого не проходили вроде... что он делает? и что такое copy?

Сообщение отредактировано: Akella - 9.11.2008 18:41

[Lapp]

что такое inc ??

В данном случае - прибавляет единицу к аргументу. От английского increase, увеличивать.


Добавлено через 1 мин.

что такое copy?

Function Copy(S: String; Index, Count: Integer): String
Возвращает подстроку из строки S, начиная с позиции Index и длиной Count символов.

[Akella]

ну с функцией вроде разобрался, теперь собственно сама прога....

[Lapp]

теперь собственно сама прога....

Если ты разобрался с функцией, "собственно сама прога" будет состоять из:
а. описания массива n;
б. заполнения его нулями;
с. разбиения на слова;
д. цикла по всем словам с упомянутым мной оператором в теле;
е. поиска макимума по массиву n.

Собственно, все то, что я уже сказал выше..

[Akella]

как перевести из string в char из строковой переменной в символьную т.е ?

[Lapp]

как перевести из string в char из строковой переменной в символьную т.е ?

Что значит перевести? Как ты собираешься засунуть строку в один символ??
С другой стороны, i-й символ строки s - это символьная переменная, s[i]
Я использовал это в своем первом сообщении. Разбери его внимательно. По косточкам

[Akella]

у меня тут несростаются типы и переменные - ошибки.... например когда я массив n заполняю нулями...

[Lapp]

покажи, как ты это делаешь. Желательно, со всеми объявлениями переменных. Короче, покажи всю прогу.

[Akella]

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

program lab_3_16;

const

   limits = [#0..#32,'.',',',':',';','!','?','"'];
type

   TWords = array[1..40] of string;

var
   text : string;
   words : TWords;
   n:array['a'..'z','a'..'z'] of integer;
   i,j : integer;


function GetWords(s : string; var w : TWords) : byte;
var
   i,back,n : byte;
begin
   i := 1;
   n := 0;
   while(i<=length(s)) do begin
      while(i<=length(s)) and (s[i] in limits) do
       inc(i);
      if i<=length(s) then begin
         back := i;
         while(i<=length(s)) and not(s[i] in limits) do
          inc(i);
         inc(n);
         w[n] := copy(s, back, i-back);
      end;
   end;

   GetWords := n;
end;
begin
  for i:=1 to 60 do
  for j:=1 to 60 do
  n[i,j]=0;

end.

[Lapp]

не так:

  for i:=1 to 60 do
  for j:=1 to 60 do
  n[i,j]=0;

а вот так:

  for c:='a' to 'z' do
    for d:='a' to 'z' do
      n[c,d]:=0;

- где c и d - переменные типа char

[Akella]

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

[Lapp]

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

Вот так:

  m:=GetWords(text,Words);
  for i:=1 to  m do Inc(n[Words[i][1],Words[i][Length(Words[i])]]);

Только я оччень не советую называть переменную text, так как text - это зарезервированное слово Паскаля.

Все, я пошел спать, скоро не жди. Сам думай. Все сказано уже.

[Akella]

я не понимаю почему кампилтору не нравится тип переменной text вот тут

m:=GetWords(text,Words);

вроде бы все должно быть окей!

[Lapp]

кампилтору не нравится тип переменной text вот тут

m:=GetWords(text,Words);

вроде бы все должно быть окей!

Я не знаю, что не нравится твоему "кампилтору", моему компилятору все нравится.
Приводи полную и точную информацию об ошибке, а не свою интерпретацию.