Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=9334&view=findpost&p=91129 Mon, 26 May 2003 08:35:47 +0000 Очень простой вопрос. https://forum.sources.ru/index.php?showtopic=9334&view=findpost&p=91129
Вход: массив р, содержащий элементы любого типа;
     N размер массива р

    Procedure Reverse(m:integer);<br>var i,j:integer;<br>begin<br>  i:=1;j:=m;<br>  while i<j do<br>    begin<br>      b:=p[i];p[i]:=p[j];p[j]:=b;<br>      i:=i+1;j:=j-1;<br>    end;<br>end;<br>Procedure AntiLex(m:integer);<br>var i:integer;<br>begin<br>  if m=1<br>  then вывод р<br>  else for i:=1 to m do<br>        begin<br>         AntiLex(m-1);<br>         if i<m<br>         then begin<br>               b:=p[i];p[i]:=p[m];p[m]:=b;<br>               Reverse(m-1)<br>              end;<br>        end;<br>end;<br>begin<br>  AntiLex(N);<br>end.

зы надеюсь, что правильно понял вопрос]]> @Hgpeu Алгоритмы https://forum.sources.ru/index.php?showtopic=9334&view=findpost&p=91128 Mon, 26 May 2003 06:27:37 +0000 Очень простой вопрос. https://forum.sources.ru/index.php?showtopic=9334&view=findpost&p=91128 ter Алгоритмы https://forum.sources.ru/index.php?showtopic=9334&view=findpost&p=91127 Mon, 26 May 2003 05:00:56 +0000 Очень простой вопрос. https://forum.sources.ru/index.php?showtopic=9334&view=findpost&p=91127 Заранее благодарен.  
]]> Stasyn Алгоритмы