[РЕШЕНО][Pascal] поменять местами найденный максимальный элемент в очереди и первый элемент очереди

[Mishka_M]

Добрый день . Заранее благодарен откликнувшимся.
В данной программе необходимо поменять местами найденный максимальный элемент в очереди и первый элемент очереди.

program Ochered2_2;
uses crt;
type
  Element = Integer; {Тип основных данных.}
  T_adres = ^TElem;  {Тип указателя на элемент очереди.}
  TElem = record     {Тип элемента очереди.}
    Data : Element;   {Основные данные.}
    P_Sled : T_adres; {Указатель на следующий элемент очереди.}
          end;
  {Тип, определяющий очередь.}
  Ochered = record
    P_perv, P_posl : T_adres; {Указатели на первый и на последний элементы очереди.}
           end;
 
{Начальная инициализация очереди.  Эту процедуру можно выполнять
только в отношении пустой очереди. Иначе будут утечки памяти.}
procedure Inicializacia(var z : ochered);
  begin
    z.P_perv := nil;
    z.P_posl := nil;
  end;
 
{Добавление элемента в конец очереди.}
procedure Dobavlenie (var z : ochered; const znach1 : Element);
var
  D_Elem : T_adres;
  begin
    New(D_Elem);           {Выделение памяти для элемента.}
    D_Elem^.Data := znach1; {Записываем основные данные.}
    D_Elem^.P_Sled := nil;  {Т. к., элемент добавляется в конец очереди,
    то указатель на следующий элемент = NIL.}
    if z.P_perv = nil then {Если очередь пуста, то новый элемент становится первым элементом очереди.}
    z.P_perv := D_Elem
  else                    {Если очередь непустая, то новый элемент прикрепляем к последнему элементу очереди.}
    z.P_posl^.P_Sled := D_Elem;
    z.P_posl := D_Elem; {Добавленный элемент становится последним элементом очереди.}
  end;
 
{Изъятие элемента из начала очереди}
function Ubrat(var z : ochered; var aData : Element) : Boolean;
  var
  U_Elem : T_adres;
  begin
  Result := False;
    U_Elem := z.P_perv;
    if U_Elem <> nil then
      begin
        aData := U_Elem^.Data;      {Читаем данные первого элемента очереди.}
        z.P_perv := U_Elem^.P_Sled; {Первым элементом очереди становится тот элемент, который раньше был вторым.}
      if z.P_perv = nil then    {Если очередь оказалась пустой, то инициализируем её.}
        Inicializacia(z);
      Dispose(U_Elem); {Освобождаем память, занятую для элемента.}
      Result := True;
      end;
  end;
 
{очистка очереди}
procedure ochistka(var z : ochered);
var
  Data : Element;
begin
  while Ubrat(z, Data) do;
end;
 
{Распечатка очереди в направлении: начало - конец.}
procedure Pechat(const z: ochered);
var
  P_Elem : T_adres;
begin
  P_Elem := z.P_perv;
  if P_Elem <> nil then
  repeat
    if P_Elem <> z.P_perv then {Если это не первый элемент очереди, то ставим перед ним запятую.}
      Write(', ');
    Write(P_Elem^.Data);    {Распечатка основных данных элемента.}
    P_Elem := P_Elem^.P_Sled; {Указатель на следующий элемент.}
  until P_Elem = nil
  else
    Write('Очередь пуста.');
  Writeln;
end;
 
{основная программа}
var
  max,FindMax:integer;
  tmp_max,k,l:t_adres;
  och1: ochered;
  Data, DFind, DNew : Element;
  i,M : Integer;
  S : String;
begin
  Write('Введите количество элементов очереди :    ');
  Read(M);
  Writeln;
  {Начальная инициализация очереди.}
  Inicializacia(och1);
 
 
  repeat
    {Добавление элементов в очередь.}
    Randomize;
    for i := 1 to M do
      Dobavlenie(och1, Random(100)-50); {Целые числа из диапазона -50..50.}
    Writeln('Составлена исходная очередь (начало - конец):');
    Pechat(och1);
    
    {находим максимальный элемент}
    tmp_max:=och1.P_perv;
    Max:=tmp_max^.Data;
    while tmp_max<>nil do
      begin
        if tmp_max^.data>Max then Max:=tmp_max^.data;
        tmp_max:=tmp_max^.P_Sled;
      end;
    FindMax:=Max;
    writeln;
    writeln ('максимальный элемент = ',findmax);
    writeln;
    
    {меняем местами максимальный элемент и первый элемент}
   { k:=och1.P_perv;
    l:=tmp_max;
    och1.P_perv:=l;
    tmp_max:=k;}

    {Ответ.}
    Writeln('Очередь после замены максимального на первый (начало - конец):');
    Pechat(och1);
 
    {Освобождение памяти, выделенной для элементов очередей.}
    ochistka(och1);
    Writeln('Память, выделенная для очередей, освобождена.');
 
    Writeln('Повторить - Enter, выход - любой символ + Enter.');
    readln;
    Readln(S);
  until S <> '';
end.

Решение:
http://www.programmersforum.ru/showp...69&postcount=2
с оговоркой http://www.programmersforum.ru/showp...89&postcount=4

[Serge_Bliznykov]

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

В данной программе необходимо поменять местами найденный максимальный элемент в очереди и первый элемент очереди.

тут есть два варианта решения.
1) быстрый и не очень "честный" - не трогать ссылки, а поменять местами только информационную часть.
это будет как-то так:

    if och1.P_perv<>nil then begin
      {находим максимальный элемент}

      p_max:=och1.P_perv;
      k :=  och1.P_perv;
      while k<>nil do
        begin
          if p_max^.data>k^.data then p_max := k;
          k:=k^.P_Sled; {Указатель на следующий элемент.}
        end;
      writeln ('максимальный элемент = ', p_max^.data);
      writeln;

      {меняем местами информационную часть у максимального элемента и первого элемента}
      if p_max <> och1.P_perv then begin
        M := p_max^.data;
        p_max^.data := och1.P_perv^.data ;
        och1.P_perv^.data := M
      end;

      {Ответ.}
      Writeln('Очередь после замены максимального на первый (начало - конец):');
      Pechat(och1);      
      
   end
   else
     WriteLn('Очередь Пуста!');

2) поиск максимального производится точно так же.
но замена элементов осуществляется как положено - с корректировкой ссылок.
Это намного сложнее.
Но, разумеется, при желании и необходимости можно и это реализовать.

[Mishka_M]

Спасибо, вроде бы как замена работает отлично , подойдет и первый вариант ) , я и пытался просто поменять местами значения .
Эмм... только как то поиск максимального значения в очереди как то не совсем корректно работает ...

[Mishka_M]

Поменял знак > в

if p_max^.data>k^.data then p_max := k;

и , как ни странно , все заработало )
почему так , только не могу понять ...
в любом случае , очень признателен за помощь , оперативность у вас просто невероятная )

[Serge_Bliznykov]

ну и правильно поменяли.

так

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

f p_max^.data>k^.data then p_max := k;

это поиск МИНИМУМА.