Вводим с клавиатуры предложение с пробелами, которое должно поменяется местами начало с концом.

[Pashka1]

Пожалуйста, помогите решить задачу
Вводим с клавиатуры предложение с пробелами, которое должно поменяется местами начало с концом.
вводим "Мама мыло раму " а надо "раму мыло мама"

[Stilet]

http://www.programmersforum.ru/showt...369#post398369
Скидываешь строку в массив, а потом массив выводишь на экран в цикле от конца массива до начала.

[Pashka1]

А можно по подробнее хоть часть тела программы написать.

[Stilet]

хоть часть тела

Иди по ссылке - там сердце, руки и почка.

[Niro]

Ну здесь не совсем, как по ссылке, хотя тоже с массивами

uses crt;
   var s1: string;
       mas: array [1..50] of string;
       n,i: byte;
BEGIN
   clrscr;
   writeln('Vvedite stroky');
   readln(s1);
   n:=length(s1);

   for i:=1 to n do {zapominaem poslednee slovo}
   begin
      if s1[i]=' ' then mas[1]:=copy(s1,i+1,n-i+1);
   end;
   for i:=n downto 0 do {zapominaem pervoe slovo}
   begin
      if s1[i]=' ' then mas[2]:=copy(s1,1,i);
   end;

   i:=length(s1)-(length(mas[1])+length(mas[1]));
   mas[3]:=copy(s1,(length(mas[2])),i); {kopiryem iz stroky krome 1 i posl slova}
   mas[4]:=mas[1]+mas[3]+mas[2]; {sobiraem stroky}

   writeln('---------------------------------');
   write(mas[4]);
   readln;
END.

[Pashka1]

Сообщение от Niro

Ну здесь не совсем, как по ссылке, хотя тоже с массивами

uses crt;
   var s1: string;
       mas: array [1..50] of string;
       n,i: byte;
BEGIN
   clrscr;
   writeln('Vvedite stroky');
   readln(s1);
   n:=length(s1);

   for i:=1 to n do {zapominaem poslednee slovo}
   begin
      if s1[i]=' ' then mas[1]:=copy(s1,i+1,n-i+1);
   end;
   for i:=n downto 0 do {zapominaem pervoe slovo}
   begin
      if s1[i]=' ' then mas[2]:=copy(s1,1,i);
   end;

   i:=length(s1)-(length(mas[1])+length(mas[1]));
   mas[3]:=copy(s1,(length(mas[2])),i); {kopiryem iz stroky krome 1 i posl slova}
   mas[4]:=mas[1]+mas[3]+mas[2]; {sobiraem stroky}

   writeln('---------------------------------');
   write(mas[4]);
   readln;
END.

что то она не работает

[Niro]

Что конкретно не работает?

Я ввожу - mama mila ramy
на выходе -ramy mila mama
----------------------
ввожу aaa bbb ccc
на выходе ccc bbb aaaa

[Stilet]

что то она не работает

Воспользуйся примером что дал я по ссылке.
и допиши

 while count>0 do begin write(a[count]+' ');dec(count);end;
 readln;

Niro

И все же есть недочеты. Я ввожу:

Vvedite stroky
1 2 3 4 5
---------------------------------
5 2 3 4 1

[Niro]

И все же есть недочеты.

Насколько я понял задание нужно в строке первое слово поставить на последнее место, а последнее на первое. Так в чём ошибка?

Хотя да, перечитал заново задание.
Тогда понятнее было написать не

которое должно поменяется местами начало с концом

, а "вывести предложение в обратном порядке". А из примера и моё решение правильное.
Хотя не спорю мой косяк тоже есть

[Pashka1]

А если предложение состоит не из трех слов а больше то не выходит