|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
30.12.2008, 10:39 | #1 (permalink) |
Новичок
Регистрация: 30.12.2008
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Паскаль Люди ps срочно надо написать программу со стрингами
|
30.12.2008, 10:39 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Скорее всего в схожих темах вы найдете много полезной информации Паскаль. Помогите срочно Надо срочно собрать системник Написать программу на С++ Срочно нужно написать программу на языке Bash Помогите, очень срочно надо собрать компьютер |
06.01.2009, 15:07 | #3 (permalink) |
Member
Регистрация: 25.04.2008
Сообщений: 238
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Есть текст, нужно из него взять первое и последнее слово (кусок с начала до пробела и кусок с конца после пробела), потом пробежаться по остальным словам, и в случае совпадения любого слова с первым словом заменить это найденное слово (или слова) на последнее слово.
Имхо, так. P.S. В PHP всё это можно написать в 2 строчки кода. |
19.01.2009, 10:10 | #5 (permalink) |
Новичок
Регистрация: 19.01.2009
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
И всего то
это простецкая задачка...
алгоритм решения очен прост!!! примерно так var i,j,k: integer; s,s1,s2,s3: string; begin s:= Edit1.Text; s1:=''; s2:=''; s3:=''; for i:=1 to strlen(PChar(s)) do begin if s[i]=' ' then break; s1:=s1+s[i]; end; for j:= strlen(PChar(s)) downto 1 do begin if s[j]=' ' then break; s2:=s2+s[j]; end; if j=1 then Label1.Caption:='В веденной строке одно слово' else begin for k:=i to j do s3:=s3+s[k]; end; s:=s2+s3+s1; Label1.Caption:=s; end; |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
19.01.2009, 17:04 | #6 (permalink) |
Member
Регистрация: 25.04.2008
Сообщений: 238
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|