Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 10.03.2012, 13:34   #1
IvanSect
Новичок
Джуниор
 
Регистрация: 10.03.2012
Сообщений: 1
По умолчанию [PascalABC]Строки. Отделение слов пробелами.

Приветствую! Требуется помощь в написании программы, задача такова:
"Составить программу на языке Паскаль для решения следующей задачи: дана последовательность из 40 символов русского алфавита. В ней есть слова, которые отделяются друг от друга пробелами. Длина слов от 3 до 7 символов, считается, что длиннее 7 символов слов нет, между словами может быть от одного до трех пробелов. Напечатать те слова последовательности, которые имеют минимальную длину."
Я о строках ничего не знаю, все лекции пропустил, а сейчас лабы сдавать надо, выручайте(
IvanSect вне форума Ответить с цитированием
Старый 10.03.2012, 13:45   #2
Duha666
 
Регистрация: 10.03.2012
Сообщений: 5
По умолчанию

Как-нибудь вот так:

Код:
var
  answer: array[1..15] of string;
  str: string;
  len, ansc: byte;
begin
  readln(str);
  str := str + ' ';
  for i := 1 to length(str) do
    if (str[i] = ' ') then
    begin
      if (len >= 3)
      begin
        ansc := ansc + 1;
        for j := i - len to i - 1 do
          ans[ansc][j - i + len + 1] := str[j];
      end;
      len := 0;
    end
    else
        len := len + 1;
end.

Последний раз редактировалось Duha666; 10.03.2012 в 15:08.
Duha666 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Дана последовательность слов разделенных пробелами, удалить из нее повторные вхождения слов.С++ Bullrock Помощь студентам 4 01.03.2012 13:16
Строка из слов, разделённых пробелами. Найти среднее количество символов в словах четной длины (Паскаль) marystupidyeah Помощь студентам 5 24.05.2011 16:55
Как прочитать несколько слов разделённых пробелами SeRhy Общие вопросы C/C++ 3 20.10.2009 15:02
Чтение строки с пробелами phpcreator Помощь студентам 5 15.10.2009 18:13
Ввод строки с пробелами Сергей089 Помощь студентам 15 24.04.2009 23:01