[Очередь] Помогите найти ошибку...программа после компиляции и ввода значения не выдает ответ

[Калючка]

Помогите найти ошибку...туплю по страшному.... программа после компиляции и ввода значения не выдает ответ....

[FPaul]

А как бы увидеть программу?
Я не буду скачивать docx с форума из-за возможности поймать вирус в скрипте. А о случае, когда на форуме попросили отладить скрипт, а тот у тестеров отформатировал винчестер - я совсем молчу.

[Lektorfuja]

А покороче у вас есть программы?

[Калючка]

program o4ered;
const maxsize=7;
type prioritet=integer;
priorityQ=record
M:array [1..maxsize] of prioritet;
lt:integer;
end;
var
B:priorityQ;
x,y:prioritet;
i:integer;
procedure makenull(var G:priorityQ);
begin
G.lt:=0;
end;
procedure insert(x:prioritet;G:priorityQ);
var
i:integer;
temp:prioritet;
begin
if G.lt>=maxsize then
begin
writeln ('o4ered zapolnena');
end
else
begin
G.lt:=G.lt+1;
G.M[G.lt]:=x;
i:=G.lt;
while (i>1) and (G.M[i]<G.M[i div 2]) do
begin
temp:=G.M[i];
G.M[i]:=G.M[i div 2];
G.M[i div 2]:=temp;
i:=i div 2;
end;
end;
end;
function deletemin (var G:priorityQ):prioritet;
var
i,j:integer;
temp:prioritet;
minimym:prioritet;
begin
if G.lt=0 then
begin
writeln('o4ered pysta');
deletemin:=0;
end
else
begin
minimym:=G.M[i];
G.M[i]:=G.M[G.lt];
G.lt:=G.lt-1;
i:=1;
while i<=(G.lt div 2) do
begin
if (G.M[2*i]<G.M[2*i+1]) or (2*i=G.lt) then
j:=2*i
else
j:=2*i+1;
if (G.M[i]>G.M[j]) then
begin
temp:=G.M[i];
G.M[i]:=G.M[j];
G.M[j]:=temp;
i:=j;
end
else
deletemin:=minimym;
end;
end;
end;
begin
makenull(B);
writeln ('o4ered iz 7 eleventov');
for i:=1 to maxsize do
begin
write ('vvedite prioritet ');
readln(x);
insert(x,B);
end;
writeln ('o4ered');
for i:=1 to maxsize do write (' ',B.M[i],' ');
writeln;
writeln ('ydalenie s prioritetom');
y:=deletemin(B);
writeln ('y=',y);
writeln ('min prioritet iz o4eredi');
for i:=1 to maxsize do write (' ',B.M[i],' ');
writeln;
end.

[Калючка]

увы...но мне надо довести до ума эту программу...(((

[FPaul]

1. В процедуре insert сделайте параметр G - параметром-переменной (добавьте var).
2. В процедуре deletemin в ветке else сразу идёт строка minimym := G.M[i]; но значение i - не определено, что приводит к ошибке.
3. В основной программе при выводе элементов очереди цикл не до maxsize, а до B.lt.

[ViktorR]

Было бы хорошо еще немного потрудиться и отформатировать программу ...
Но вот кажется нашел ...

procedure insert(x:prioritet;G:priorityQ);
...
else
begin
G.lt:=G.lt+1;
G.M[G.lt]:=x;
i:=G.lt;
while (i>1) and (G.M[i]<G.M[i div 2]) do
begin
temp:=G.M[i];
G.M[i]:=G.M[i div 2];
G.M[i div 2]:=temp;
...

Так понимаю, что значения должны меняться в G, но этот параметр передается в процедуру по значению, а должен передаваться по адресу ...
Предлагаю почитать Т.А. Павловская, Программирование на ЯВУ (в перечне имеется).

PS: А вот и ещё одна подсказка ...
Как-то так, ...

[FPaul]

Воспользовался автоформаттером и устранил п.1 и п.3. Что делать с п.2 - не знаю, надеюсь, топикстартер разберётся.

program o4ered;

const
  maxsize = 7;
type
  prioritet = integer;

  priorityQ = record
    M:  array [1..maxsize] of prioritet;
    lt: integer;
  end;

  procedure makenull(var G: priorityQ);
  begin
    G.lt := 0;
  end;

  procedure insert(x: prioritet;var G: priorityQ);
  var
    i: integer;
    temp: prioritet;
  begin
    if G.lt >= maxsize then
    begin
      writeln('o4ered zapolnena');
    end
    else
    begin
      G.lt := G.lt + 1;
      G.M[G.lt] := x;
      i := G.lt;
      while (i > 1) and (G.M[i] < G.M[i div 2]) do
      begin
        temp := G.M[i];
        G.M[i] := G.M[i div 2];
        G.M[i div 2] := temp;
        i := i div 2;
      end;
    end;
  end;

  function deletemin(var G: priorityQ): prioritet;
  var
    i, j: integer;
    temp: prioritet;
    minimym: prioritet;
  begin
    if G.lt = 0 then
    begin
      writeln('o4ered pysta');
      deletemin := 0;
    end
    else
    begin
      minimym := G.M[i];
      G.M[i] := G.M[G.lt];
      G.lt := G.lt - 1;
      i := 1;
      while i <= (G.lt div 2) do
      begin
        if (G.M[2 * i] < G.M[2 * i + 1]) or (2 * i = G.lt) then
          j := 2 * i
        else
          j := 2 * i + 1;
        if (G.M[i] > G.M[j]) then
        begin
          temp := G.M[i];
          G.M[i] := G.M[j];
          G.M[j] := temp;
          i := j;
        end
        else
          deletemin := minimym;
      end;
    end;
  end;

var
  B: priorityQ;
  x, y: prioritet;
  i: integer;
begin
  makenull(B);
  writeln('o4ered iz 7 eleventov');
  for i := 1 to maxsize do
  begin
    Write('vvedite prioritet ');
    //readln(x);
    x:=11*i;
    insert(x, B);
  end;
  writeln('o4ered');
  for i := 1 to B.lt do
    Write(' ', B.M[i], ' ');
  writeln;
  writeln('ydalenie s prioritetom');
  y := deletemin(B);
  writeln('y=', y);
  writeln('min prioritet iz o4eredi');
  for i := 1 to B.lt do
    Write(' ', B.M[i], ' ');
  writeln;
end.

[Калючка]

всем большое спасибо за помощь...)))