Задача на строки Опции

[Denonika]

[font=Arial][font=Arial]
Господа программисты, не сочтите за наглость... В универе задали написать программу, вот она:
"Вводиться набор слов, разделителями между словами служат пробелы,
распечатать слова отличные от последнего слова, преобразовав их
следующим образом: перенести последнюю букву в начало слова,
оставить в слове только первые вхождения букв."
Не могу придумать, как зделать
Единственное что:

Procedure GetWords(st:string; var mas:TArray);
var
i,j:integer;
begin
while pos(' ',st)<>0 do delete(st,pos(' ',st),1);
if st[1]=' ' then delete(st,1,1);
if st[length(st)]=' ' then delete(st,length(st),1);
i:=1;
for j:=1 to length(st) do
if st[j]<>' ' then mas[i]:=mas[i]+st[j] else if i<>high(mas) then inc(i);
end;

Теги!
klem4


Процедура для создание массива.... все...
Умоляю, помогите, надо 15 марта здавать ....

Сообщение отредактировано: volvo - 6.11.2006 17:44

[klem4]

Подобные задачи уже решались и не разб пользуйся поиском +

FAQ : Строки
FAQ : Разбиение строки на слова, все способы