Задача со строками

← →
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]

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

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