Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Прочее";
Текущий архив: 2006.06.04;
Скачать: [xml.tar.bz2];

Вниз

Задача со строками   Найти похожие ветки 

 
Nic ©   (2006-05-08 10:35) [0]

Допустим, дана строка. Как можно заменить в самом длинном слове все буквы "а" на "б"?
Подскажите пожалуйста, какие нужно использовать функции в Паскале, чтобы решить такую задачу.


 
Lamer@fools.ua ©   (2006-05-08 10:40) [1]

>Допустим, дана строка. Как можно заменить в самом длинном слове все буквы "а" на "б"?
Подскажите пожалуйста, какие нужно использовать функции в Паскале, чтобы решить такую задачу.


Никакие. Достаточно двух невложенных циклов.


 
begin...end ©   (2006-05-08 10:45) [2]

> Lamer@fools.ua ©   (08.05.06 10:40) [1]

А как же Length? :-)


 
Lamer@fools.ua ©   (2006-05-08 10:54) [3]

>>begin...end ©   (08.05.06 10:45) [2]

В Паскале?
Byte(s[0])
:P
;o)


 
Nic ©   (2006-05-08 11:39) [4]

var
 old, new, s : string;
 p, l: integer;
begin
 new := "";
 old := Edit1.Text;
 old := Concat(old, " ");
 while old <> "" do
 begin
   p := Pos(" ", Old);
   s := Copy(old, 1, p);
   new := s + new;
   Delete(old, 1, p);
 end;
end;

Строка new содержит все слова в порядке возрастания, как теперь в конечном слове поменять одну букву на другую? Плиз, хотя бы намекните :)


 
mike-d ©   (2006-05-08 11:57) [5]


> Строка new содержит все слова в порядке возрастания

Неправда ваша. Строка new содержит слова из входной строки в обратном порядке и еще плюс пробел в конце


 
Nic ©   (2006-05-08 12:19) [6]


> mike-d ©   (08.05.06 11:57) [5]

Действительно, я торможу .. Простуда сказывается :(


 
Некто ©   (2006-05-08 15:39) [7]

Помню нас затерзали подобными задачками, только на ассемблере. Убрать лишние пробелы, "развернуть" нечётные слова, поднять регистр в чётных & etc. Или что-нить из таких извращений: Убрать лишние пробелы (оставить по одному между словами), если количество слов в предложении нечётное, то "развернуть" чётные слова, иначе поменять местами пары первых и последних букв в нечётных словах, длина которых больше 4-х символов. В каждом 3-ем слове инвертировать регистр чётных букв..... Мозгодробительно это было :)


 
palva ©   (2006-05-08 15:42) [8]

> Мозгодробительно это было :)
Зато каждая задачка уникальна и ее приходилось делать самому.


 
Привидение Хозяина   (2006-05-08 15:43) [9]

Некто ©   (08.05.06 15:39) [7]

Обожаю такой парсинг.
:)


 
vidiv ©   (2006-05-08 15:51) [10]


> Некто ©   (08.05.06 15:39) [7]

нас такое на матлогике заставляли делать с помощью машины Тьюринга...


 
Некто ©   (2006-05-08 15:51) [11]

Ага, тем более, что запрещали использовать LODS, STOS, MOVS, SCAS, CMPS и т.д. После это даже мозги как-то по-другому работают. Привыкаешь к минимализму в использовании ресурсов, так сказать, и после такого парсинг чего-то_там_сложного_и_ужасного не вселяет ужас абсолютно. :)



Страницы: 1 вся ветка

Форум: "Прочее";
Текущий архив: 2006.06.04;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.47 MB
Время: 0.052 c
2-1148011660
Rubey
2006-05-19 08:07
2006.06.04
Ввод через DBGRID


3-1144992872
gvv
2006-04-14 09:34
2006.06.04
коннект к ДБФ файлам при помощи АДО D5


2-1147693593
LaDaN
2006-05-15 15:46
2006.06.04
Линейные односвязные списки


15-1146884834
dancer
2006-05-06 07:07
2006.06.04
aDSL


4-1141718189
Handle
2006-03-07 10:56
2006.06.04
Иконка в ListView





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский