Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 30.12.2008, 10:39   #1 (permalink)
AndreiKA_FoReX
Новичок
 
Регистрация: 30.12.2008
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
Post Паскаль Люди ps срочно надо написать программу со стрингами

Все вхождения первого слова текста заменить последним его словом
AndreiKA_FoReX вне форума   Ответить с цитированием

Старый 30.12.2008, 10:39
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Скорее всего в схожих темах вы найдете много полезной информации

Паскаль. Помогите срочно
Надо срочно собрать системник
Написать программу на С++
Срочно нужно написать программу на языке Bash
Помогите, очень срочно надо собрать компьютер

Старый 30.12.2008, 10:57   #2 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,853
Сказал(а) спасибо: 317
Поблагодарили 542 раз(а) в 183 сообщениях
Репутация: 101510
По умолчанию

Не понимаю. Сформулируйте более внятно и развернуто.
P.S. Ничего не обещаю - момент, сами понимаете...
Vladimir_S вне форума   Ответить с цитированием
Старый 06.01.2009, 15:07   #3 (permalink)
Darkcosinus
Member
 
Регистрация: 25.04.2008
Сообщений: 238
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

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

Имхо, так.

P.S. В PHP всё это можно написать в 2 строчки кода.
Darkcosinus вне форума   Ответить с цитированием
Старый 06.01.2009, 15:17   #4 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,853
Сказал(а) спасибо: 317
Поблагодарили 542 раз(а) в 183 сообщениях
Репутация: 101510
По умолчанию

Можно попробовать. Только пусть заказчик подтвердит актуальность.
Vladimir_S вне форума   Ответить с цитированием
Старый 19.01.2009, 10:10   #5 (permalink)
SYVA
Новичок
 
Регистрация: 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;
SYVA вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Старый 19.01.2009, 17:04   #6 (permalink)
Darkcosinus
Member
 
Регистрация: 25.04.2008
Сообщений: 238
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Цитата:
Сообщение от SYVA Посмотреть сообщение
примерно так
Мне кажется, в школах-институтах изучают не Object Pascal (который Delphi), а обычный досовский Turbo Pascal.
Darkcosinus вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




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

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.