подсчет количества слов списка. Опции

[ducky]

Подскажите, пожалуйста, с чего начать писать эту программу.

type слово= array [1..10] of char;
ТЭ=слово;

Описать функцию, подсчитывающую количество слов списка L, которые начинаются и оканчиваются одной и той же буквой.

[ducky]

так?

unit WordList;

interface

type
  tWord= string[10];
  tpElem= ^tElem;
  tElem= record
    wrd: tWord;
    next: tpElem
  end;

  procedure AddElem(l: tElem; w: tWord);


implementation

procedure AddElem(l: tElem; w: tWord);
begin
 First: = nil; 
  While n>0 do 
    begin
      New®; 
      r^.Next:=first; 
      r^.Number:=n;
      First:=r; 
      n := n-1 
end;

begin
end.

Сообщение отредактировано: ducky - 7.05.2011 1:34