Помогите с задачей, задача на строки Опции

[Точьичка]

Вот текст задачи:

Дана строка символов. Определить количество слов, начиная с буквы "а", вывести на печать самое длинное слово, начинающееся с буквы "а"

помогите пожалуйста

Сообщение отредактировано: Точьичка - 25.11.2007 20:54

[klem4]

Точьичка все просто:

uses crt;

const
  letters = [' ', '.', ',']; { символы, которые могут разделять слова }

var
  s, s_max: String;
  i, start, count: Byte;

begin
  clrscr;

  write('s = '); readln(s);

  count := 0;

  s_max := '';

  i := 1;

  while i <= length(s) do begin

    while (i <= length(s)) and (s[i] in letters) do
      inc(i);

    if i <= length(s) then begin

      start := i;

      if s[i] = 'a' then
        inc(count);

      while (i <= length(s)) and not (s[i] in letters) do
        inc(i);


      if (s[start] = 'a') and (i - start > Length(s_max)) then
        s_max := Copy(s, start, i - start);

    end;
  end;

  writeln('count = ', count);
  writeln('s_max = "', s_max, '"');

  readln;
end.

в следующий раз используй поиск: Разбиение на слова. Все способы.

Сообщение отредактировано: klem4 - 26.11.2007 18:58