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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 20.04.2010, 22:38   #1
alla _ zip
Пользователь
 
Регистрация: 20.04.2010
Сообщений: 10
По умолчанию слова

как написать прогу которая позволяет вывести слова,которые встречаются в строке по одному разу
alla _ zip вне форума Ответить с цитированием
Старый 21.04.2010, 10:09   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

1) на чём написать то? язык программирования какой?
2) что вызывает трудности? подсказать алгоритм?
3) сами что-нибудь сделали? Если хотите, чтобы за Вас написали - обращайтесь во Фриланс, там за небольшое вознаграждение напишут Вам эту программку...
Serge_Bliznykov вне форума Ответить с цитированием
Старый 21.04.2010, 11:00   #3
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Запросто:
Код:
MODULE Слова;
 IMPORT StdLog,Strings;
 PROCEDURE do*(Строка:ARRAY OF CHAR);
 VAR i,k,res:INTEGER;
  s:ARRAY(255) OF CHAR;
 BEGIN
  i:=0;k:=0;
  StdLog.Clear;
  s:='';
  WHILE (i<LEN(Строка))&(Строка[i]#CHR(0)) DO
   s[k]:=Строка[i];
   INC(k);
   IF Строка[i]=' ' THEN 
    s[k]:=CHR(0);
    Strings.Find(Строка,s,i,res);
    IF res=-1 THEN
     StdLog.String(s);StdLog.Ln;
    END;
    k:=0;
   END;
   INC(i);
  END;
  StdLog.Int(i);
 END do;

END Слова.
"Слова.do('Привет мир мой мир')";
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 21.04.2010, 17:23   #4
alla _ zip
Пользователь
 
Регистрация: 20.04.2010
Сообщений: 10
По умолчанию

привет,спасибо..да я что то тупанула...это надо было на паскале
alla _ zip вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
все слова с нечетным количеством букв подходят для "ёлочной" рекурсии. Все буквы слова расположены в форм no_to Помощь студентам 0 04.01.2010 16:06
слова(Си) Bl@st Помощь студентам 13 26.12.2009 00:18
СИ. Удалить слова, которые содержат все повторяющиеся буквы первого слова nick23 Помощь студентам 7 01.11.2009 14:47
Как удалить текст до слова, потом от слова ? littlecoder Общие вопросы Delphi 7 29.12.2008 00:57
Поиск слова. Gon Паскаль, Turbo Pascal, PascalABC.NET 3 05.10.2008 17:14