Технический форум

Технический форум (http://www.tehnari.ru/)
-   Помощь студентам (http://www.tehnari.ru/f41/)
-   -   Паскаль Люди ps срочно надо написать программу со стрингами (http://www.tehnari.ru/f41/t19239/)

AndreiKA_FoReX 30.12.2008 10:39

Паскаль Люди ps срочно надо написать программу со стрингами
 
Все вхождения первого слова текста заменить последним его словом

Vladimir_S 30.12.2008 10:57

Не понимаю. Сформулируйте более внятно и развернуто.
P.S. Ничего не обещаю - момент, сами понимаете...

Darkcosinus 06.01.2009 15:07

Есть текст, нужно из него взять первое и последнее слово (кусок с начала до пробела и кусок с конца после пробела), потом пробежаться по остальным словам, и в случае совпадения любого слова с первым словом заменить это найденное слово (или слова) на последнее слово.

Имхо, так.

P.S. В PHP всё это можно написать в 2 строчки кода.

Vladimir_S 06.01.2009 15:17

Можно попробовать. Только пусть заказчик подтвердит актуальность.

SYVA 19.01.2009 10: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;

Darkcosinus 19.01.2009 17:04

Цитата:

Сообщение от SYVA (Сообщение 167450)
примерно так

Мне кажется, в школах-институтах изучают не Object Pascal (который Delphi), а обычный досовский Turbo Pascal.


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

Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.