Господа программисты, не сочтите за наглость... В универе задали написать программу, вот она:
"Вводиться набор слов, разделителями между словами служат пробелы,
распечатать слова отличные от последнего слова, преобразовав их
следующим образом: перенести последнюю букву в начало слова,
оставить в слове только первые вхождения букв."
Не могу придумать, как зделать
Единственное что:
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 марта здавать ....