Паскаль Люди ps срочно надо написать программу со стрингами
Все вхождения первого слова текста заменить последним его словом
|
Не понимаю. Сформулируйте более внятно и развернуто.
P.S. Ничего не обещаю - момент, сами понимаете... |
Есть текст, нужно из него взять первое и последнее слово (кусок с начала до пробела и кусок с конца после пробела), потом пробежаться по остальным словам, и в случае совпадения любого слова с первым словом заменить это найденное слово (или слова) на последнее слово.
Имхо, так. P.S. В PHP всё это можно написать в 2 строчки кода. |
Можно попробовать. Только пусть заказчик подтвердит актуальность.
|
И всего то
это простецкая задачка...
алгоритм решения очен прост!!! примерно так 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; |
Цитата:
|
Часовой пояс GMT +4, время: 08:46. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.