procedure TForm1.SpeedButton1Click(Sender: TObject);
var str,s,v:string;
l,k,i:integer;
begin
str:=edit1.Text;
 
for i:=1 to length(str) do
if (str[i]=' ') or (str[i]='.') then k:=k+1;
 
for i:=1 to k do begin
l:=pos(' ',str);
v:=copy(str,1,1);
s:=copy(str,1,l);
delete(str,1,l);
insert(v,s,length(s));
delete(s,1,1);
 
end;
edit2.Text:=s;
end;
end.

запутался
помогите решить
чет вьехать не могу.
благодарен за помощь !

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

19.05.2011, 20:52

Ответы с готовыми решениями:

Напечатать все слова, отличные от последнего, предварительно удалив из слова все предыдущие вхождения первой
Напечатать все слова, отличные от последнего, предварительно удалив из слова все предыдущие...

Напечатать все слова текста, отличные от последнего, предварительно удалив все гласные буквы
напечатать все слова отличные от последнего , предварительно удалив все гласные буквы.. желательно...

Напечатать все слова строки, предварительно удалив из каждого слова все предыдущие вхождения последней буквы
дана последовательность слов разделенных пробелами .Напечатать все слова предварительно удалив из...

Напечатать все слова, отличные от последнего, удалив из слова все последующие вхождения первой буквы
Дана последовательность, содержащая от 2 до 30 слов, в каждом из которых от 2 до 10 латинских...

	19.05.2011, 20:52

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

19.05.2011, 20:52

Помогаю со студенческими работами здесь

Напечатать все слова, отличные от последнего, удалив из слов все последующие вхождения первой буквы
Дана последовательность, содержащая от 2 до 30 слов, в каждом из которых от 2 до 10 латинских букв,...

Напечатать все слова, которые отличаются от последнего, но предварительно надо уничтожить из них все последующие вхождения первой буквы
Дано рядок символів,який складається з окремих слів,відокремлених пробілом. Після останнього слова...

Напечатать все слова, отличные от последнего слова строки, предварительно удалив из них гласные латинские буквы
Задана строка, содержащая не менее двух слов, разделенных одним или более пробелами. Напечатать все...

Напечатать все слова, предварительно оставить в слове только первые вхождения каждой буквы
8.Составить программу для розвязання задачи. Дана последовательность, содержащая от 1 до 30 слов, в...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Наверх