Поменять местами первое и последнее слово. Паскаль

[Flower2]

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

[Stilet]

не знаю нужен ли он

Так спроси у преподавателя.

[Flower2]

Program prac;
uses crt;
var a: array [1..100] of string;
    s, sl: string;
    i, j, k: integer;
begin
write ('s='); readln (s);
s:=s+' ';
sl:='';
j:=1;
for i:=1 to length (s) do
   if s[i]<>' ' then
      sl:=sl+s[i]
      else
          begin
          a[j]:=sl;
          inc(j);
          sl:='';
          end;
k:=j-1;
write ('s=');
write (a[k],' ');
for j:=2 to k-1 do
    write (a[j],' ');
write (a[1]);
end.

Вот программа работающая, только я тут почти ничего не понимаю

[Stilet]

Вот моя версия:

var
  s:string;i,j:integer;
begin
  //Наша строка
  s:='hello my world';

  // Вычисляем место первого слова
  for i:=1 to length(s) do if s[i]=' ' then break;

  //Вычисляем место последнего слова
  for j:=length(s) downto 1 do if s[j]=' ' then break;

  // Выводим сначал последнее
  write(copy(s,j,length(s)));

  // Потом то что между ними
  write(copy(s,i,j-i+1));

  //Потом первое
  write(copy(s,1,i));

  readln;
end;

[Flower2]

А что за оператор break?

[Stilet]

Прерывает цикл. Если нашли пробел - выйти из цикла.

[Flower2]

Спасибо огромное, разобралась

[Stilet]

Наздоровье )

[Poma][a]

Вот моя версия:

Абаладеть..я бы точно менял без вот таких вот фишек.. красота.. Автор пиши еще! (а не играй в таймшифт )
Но позволю вставить свои 5 копеек.. в своё время (в этом учеб году), мне однажды снизили оценку на балл, за то, что задача была составить число, а я вывел его (в виде n mod 10, n div 10, etc).. так что предлагаю поступить именно так, как этого требует задание..

s := copy(s,j,length(s)) + copy(s,i,j-i+1) + copy(s,1,i);

[ViktorR]

И ещё небольшое замечание.
В Паскале использование переменной цикла в не тела цикла проходит, в силу принципа объявления переменных до исполняемого кода.
Но например, в том же С++, когда переменная цикла объявляется в самом теле:

for (int i = 1; i < 50; i++)  ...

использовать переменную цикла вне цикла не прокатит.
Так думаю, что хотя и немного накладнее, но все же лучше заводить отдельные переменные.
Но это ...


Как-то так, ...