Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 15.12.2010, 20:15   #1 (permalink)
sergikшщ
Новичок
 
Регистрация: 15.12.2010
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Строки

разбить строку на слова и вывести те слова, которые отличны от последнего и первая буква слова входит в него ещё раз
sergikшщ вне форума   Ответить с цитированием

Старый 15.12.2010, 20:15
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Как вы уже поняли - это темы которые имеют сходства с вашей

Строки в С
Строки
Строки
Строки

Старый 15.12.2010, 22:06   #2 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,977
Сказал(а) спасибо: 322
Поблагодарили 543 раз(а) в 184 сообщениях
Репутация: 102235
По умолчанию

И Вам добрый вечер.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S на форуме   Ответить с цитированием
Старый 16.12.2010, 20:43   #3 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,977
Сказал(а) спасибо: 322
Поблагодарили 543 раз(а) в 184 сообщениях
Репутация: 102235
По умолчанию

Так, сударь - намеков Вы не понимаете. Ладно. Своим прошлым ответом я попытался деликатно дать Вам понять, что нужно, обращаясь за помощью, соблюдать хотя бы элементарную вежливость. А прислуги, тем более халявной, здесь нет. И не надо нам тут отдавать распоряжения.
Тема-дубликат удалена. А еще вздумаете клонировать топики - пойдете в бан. Это я Вам уже как модератор обещаю.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S на форуме   Ответить с цитированием
Старый 16.12.2010, 21:54   #4 (permalink)
sergikшщ
Новичок
 
Регистрация: 15.12.2010
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

прошу прощения, пожайлуста решите на паскале сессия поджимает, заранее огромное спасибо
sergikшщ вне форума   Ответить с цитированием
Старый 16.12.2010, 22:36   #5 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,977
Сказал(а) спасибо: 322
Поблагодарили 543 раз(а) в 184 сообщениях
Репутация: 102235
По умолчанию

Цитата:
Сообщение от sergikшщ Посмотреть сообщение
прошу прощения, пожайлуста решите на паскале сессия поджимает, заранее огромное спасибо
Да пожалуйста - нет проблем:
Код:
uses crt;
VAR
 S:string;
 SS:ARRAY[1..255] of String;
 cnt,i,j,N,Ns:byte;
 b:boolean;
BEGIN
 Clrscr;
 WriteLn('Enter the string:');
 ReadLn(s);
 Ns:=0;
 Repeat
  cnt:=pos(' ',S);
  if cnt>0 then
   begin
    Inc(Ns);
    SS[Ns]:=copy(s,1,cnt);
    S:=copy(S,cnt+1,length(S));
   end;
 Until cnt=0;
 Inc(Ns);
 SS[Ns]:=S;
 N:=0;
 For i:=1 to Ns-1 do
  If SS[i]<>S[Ns] then
   begin
    b:=false;
    for j:=2 to Length(SS[i]) do
     if SS[i][j]=SS[i][1] then b:=true;
    If b then
     begin
      WriteLn(SS[i]);
      Inc(N);
     end;
   end;
 If N=0 then WriteLn('No such words!');
 ReadLn;
end.
Здесь предполагается, что строка состоит из слов, разделенных ОДНИМ пробелом. Кроме того, есть непонятки в условии задачи. Я исходил из того, что:
1. Выводу подлежат слова, не повторяющие последнее И (а не ИЛИ!) имеющие в своем составе букву, повторяющую первую.
2. Первая буква может входить в слово и более одного раза (напр. "агава"), такое слово тоже выводится.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S на форуме   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Старый 16.12.2010, 23:56   #6 (permalink)
sergikшщ
Новичок
 
Регистрация: 15.12.2010
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

спасибо большое
sergikшщ вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 19:41.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.