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

[ducky]

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

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

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

[ducky]

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
    name=array [1..10] of Char;
    p=^elem;
    elem=record CC:p;
    end;

   var
   slovo:name;
   i:Integer;
   nachalo, tek, ob:p;

begin
  { TODO -oUser -cConsole Main : Insert code here }
  New (nachalo);
  Readln;
  writeln ('первый элемент списка: ');
  for i:=1 to 10 do read (slovo [i]);
  Readln;
  nachalo^.CC:=nil;
  nachalo^.data:=slovo;

  while slovo<> ' ' do
  begin
    tek:=nachalo;
    New(ob);
    Writeln ('следующее слово');
    for i:=1 to 10 do read (slovo[i]);
    Readln;
  end;

end.

 

Добавлено через 18 мин.
только я единственного не пойму, этот список в итоге как список группы/класса будет выглядить или как набор слов в строчку?

Добавлено через 7 мин.
а где я слова беру, они где-то уже должны быть записаны?
ужас

Сообщение отредактировано: ducky - 13.04.2011 5:00

[Lapp]

Спасибо, ducky, это уже лучше ))

Опиши запись правильно.
ВСЕ названия типов начинай с t, например tName.
Почему ты делаешь массив of char? делай string[10], с ним удобнее работать (см. выше, пост Казначея и далее мой)
Оформи как unit.
Вот тебе заготовка:

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
  // тут код добавления элемента
end;

begin
end.

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

только я единственного не пойму, этот список в итоге как список группы/класса будет выглядить или как набор слов в строчку?

Список - это список.. Не надо заботиться о том, как он выглядит. Это распределенная структура данных.

а где я слова беру, они где-то уже должны быть записаны?

В файле )). Либо по слову на строчке, либо просто текстом (тогда надо делать процедуру распознавания отдельных слов).

ужас

кайф!!!!