VPF::[Pascal] задание, строки и символы

diablist

Дата 13.10.2009, 20:06 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 29
Регистрация: 6.12.2007

Репутация: нет
Всего: нет

Помогите с решением задачи пожайлуста:

Цитата

Дана строка символов “Odessa, Kiev, Lvov, Nikopol, Alushta, Nikolaev”, число X=65. Разработать модуль, который содержит процедуру или функцию, реализующую задачу, согласно номера варианта:
Вывести все слова строки в столбик и определить слово максимальной длины.

Заранее благодарен.

ИванМ

Дата 13.10.2009, 20:19 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1260
Регистрация: 19.6.2006
Где: СПб

Репутация: 13
Всего: 23

А причем тут число X=65?

diablist

Дата 13.10.2009, 20:31 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 29
Регистрация: 6.12.2007

Репутация: нет
Всего: нет

ИванМ
Это не надо, просто вопрос общий и там 8 вариантов, в данном случае это число не играет роли smile

ИванМ

Дата 13.10.2009, 21:05 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1260
Регистрация: 19.6.2006
Где: СПб

Репутация: 13
Всего: 23

Код


uses crt;

var
word: string;

function execute(s: string): string;
var
i, start, len, maxlen: integer;
comma: boolean;
maxstr, str: string;
begin
     start:=1;
     comma:=false;
     len:=0;
     maxlen:=0;
     for i:=1 to length(s) do
     begin
          if s[i]=',' then
          begin
             writeln;
             comma:=true;
             if len>maxlen then
             begin
                  maxlen:=len;
                  maxstr:=str;
             end;
             len:=0;
             str:='';
          end
          else if ((s[i]<>',') and (s[i]<>' ')) or
                  ((s[i]=' ') and (not comma)) then
          begin
               comma:=false;
               write(s[i]);
               str:=str+s[i];
               inc(len)
          end;
     end;
     if len>maxlen then
     begin
          maxlen:=len;
          maxstr:=str;
     end;
     writeln;
     execute:=maxstr;
end;

begin
     clrscr;
     word:=execute('Odessa, Kiev, Lvov, Nikopol, Alushta, Nikolaev');
     write('max word=', word);
     readkey;
end.

diablist

Дата 13.10.2009, 21:51 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 29
Регистрация: 6.12.2007

Репутация: нет
Всего: нет

Спасибо большое за помощь smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »