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


Ответ
 
Опции темы Опции просмотра
Старый 14.12.2009, 10:47   #1 (permalink)
Ins1s
Member
 
Регистрация: 14.12.2009
Сообщений: 53
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
Exclamation Обработка строк символов

здравствуйте. помогите пожайлуста!
Дана строка,слова в которой разделены хотя бы одним пробелом. Найти самое короткое слово в строке и поменять местами первую и последние буквы в нем. помогите пожайлуста на Паскале.!
Ins1s вне форума   Ответить с цитированием

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

Советую вам прочитать обсуждаемые темы, которые схожи с вашей

Автоматическа нумерация строк
Обработка строк,массивов,записей
Замена символов в строке
Обработка строк с использованием множественного типа данных
Обработка строк. Использование множеств. Данные типа String.
Кодировка символов

Старый 14.12.2009, 12:23   #2 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,853
Сказал(а) спасибо: 317
Поблагодарили 542 раз(а) в 183 сообщениях
Репутация: 101510
По умолчанию

Цитата:
Сообщение от Ins1s Посмотреть сообщение
здравствуйте. помогите пожайлуста!
Дана строка,слова в которой разделены хотя бы одним пробелом. Найти самое короткое слово в строке и поменять местами первую и последние буквы в нем. помогите пожайлуста на Паскале.!
Пожалуйста. Ввод обрабатываемой строки и ее содержимое поправьте сами. У меня там строка вбита просто для примера и отладки:
Код:
VAR
 S,Smin,Sinv:STRING;
 i,j,Number_of_Words,Min:INTEGER;
 WRDS:ARRAY[1..200] of STRING;
BEGIN
 S:='Long ago there were three pigs';
 FOR j:=1 TO 200 DO
  WRDS[j]:='';
 i:=0;
 j:=0;
 Number_of_Words:=0;
 REPEAT
  INC(i);
  IF S[i]<>' ' THEN
   BEGIN
    INC(Number_of_Words);
    REPEAT
     WRDS[Number_of_Words]:=WRDS[Number_of_Words]+S[i+j];
     INC(j);
    UNTIL (S[i+j]=' ') OR ((i+j-1)=Length(S));
    i:=i+j-1;
    j:=0;
   END;
 UNTIL i=Length(S);
 Min:=255;
 FOR j:=1 TO Number_of_Words DO
  IF Length(WRDS[j])<Min THEN
   BEGIN
    Min:=Length(WRDS[j]);
    Smin:=WRDS[j];
   END;
 Sinv:=Smin[Length(Smin)];
 FOR j:=2 TO Length(Smin)-1 DO
  Sinv:=Sinv+Smin[j];
 Sinv:=Sinv+Smin[1];
 WriteLn(S);
 Writeln(Smin);
 WriteLn(Sinv);
 ReadLn;
END.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума   Ответить с цитированием
Старый 17.12.2009, 23:32   #3 (permalink)
Ins1s
Member
 
Регистрация: 14.12.2009
Сообщений: 53
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Спасибо тебе большое!)
Ins1s вне форума   Ответить с цитированием
Ads

Яндекс

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

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

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

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




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

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