Массив указателей (паскаль)

[Stilet]

А почему вы не говорите, правильно или нет,

Может быть потому что считаю тебя неглупой )

Процедура действительно на первый взгляд неверная.
Что это за AddQ такой? Где оно описано?

[diliana]

Stilet
Может быть потому что считаю тебя неглупой )

очень приятно

Процедура действительно на первый взгляд неверная.
Что это за AddQ такой? Где оно описано?

Она описана ранее, вот полный вариант
Вствьте в Делфи и попробуйте компилировать,
откомпилиться нормально, но будет вылетать при работе с массивом...

program Project_MQ_4;

[Stilet]

Ясно. Все банально.
Запомни и заруби себе... в записнокй книжке - если работаешь с указателями как можно чаще делай проверки на правильность указателя.
В твоем случае виновником был вывод последнего элемента массива в AddMasQ.

Поставь туда банальную проверку на мусор и будет тебе счастье:

        if  mass[i]<>NIL then
         write( mass[i]^.data);

А так прога работает отлично.

[diliana]

Stilet
Serge_Bliznykov
Спасибо вам.
Сейчас исправлю. И выложу, то что получилось

[diliana]

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

очередь 1 -> 1 5 9 6 6
очередь 2 -> 2 2 5 4 4
.............

Я вот написала код для этой процедуры, но где-то ошибка, т.к. при попытке вывести элементы очереди, программа вылетает....
Посмотрите пожалуста.

{просмотр массива}
Procedure ScanMasQ(var mass: TMassQu);

Вот листинг прог-мы

program Project_MQ_4a;

[Stilet]

diliana

А зачем ты при просмотре просишь ввести число элементов массива?
Пусть весь массив проходит до последнего неинициализированного элемента

Это раз.
Второе: У тебя почему-то массив когда я ввожу число элементов массива
не наполняется ими. Записывается только в первый элемент и все.

У тя неверно отрабатывает эта функа:

Function Add_Mass_Last (var mass: TMassQu; LastA:integer): pQueue;
const
  N = 100;
begin
  if lastA = N then WriteLn ('Massiv zapolnen')// если больше_нет_места_для очередей
  else
   begin // иначе выделяем память для новой очереди
    lastA:=lastA+1;
    new(mass[LastA]);// выделить память для новой очереди
    Add_Mass_Last := mass [LastA]; // возвращаем результат функции
  end;
end;

А все потому что ты LastA некоректно изменяешь
Если решила изменять глобальную переменную, передавая ее как параметр, то и указывай ее соответственно:

Function Add_Mass_Last (var mass: TMassQu; var LastA:integer): pQueue;

[diliana]

Stilet
У тебя почему-то массив когда я ввожу число элементов массива не наполняется ими. Записывается только в первый элемент и все.

не поняла?
Сначала программа запррашивает число элементов массива - т.е очередей
а потом запрашивает число элементов очереди

У меня вот так программа выглядит.


таким образом я представляю все это так

[Stilet]

diliana

Я пост свой подредактировал
Дописал:

Если решила изменять глобальную переменную, передавая ее как параметр, то и указывай ее соответственно:

Function Add_Mass_Last (var mass: TMassQu; var LastA:integer): pQueue;

Обрати на это внимание.

[diliana]

Stilet спасибо

Если решила изменять глобальную переменную, передавая ее как параметр, то и указывай ее соответственно:

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

[Serge_Bliznykov]

diliana, анализировать весь вышеприведённый код нет пока времени (да, думаю, что Вы лучше меня справитесь с этим...).
но вот мимо этого утверждения пройти не смог:

Function Add_Mass_Last (var mass: TMassQu; var LastA:integer): pQueue;

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

diliana, Вы путаете некоторые важные вещи. Передавать переменную в процедуру как раз таки правильное решение! А вот использовать (а тем паче изменять) переменную в процедуре, которая не описана как входной параметер - это и плохой тон, и повод для написания нестабильного и трудносопровождаемого кода!!
сравните:

 var AAA, BBB : integer;
 procedure Mult(var A : integer); 
 begin
   A := A * BBB;
   BBB := BBB + 1   
 end;
 ... 
  AAA := 10;
  BBB := 20;
  Mult(AAA);
  WriteLn(AAA:10, BBB:10);

и

 var AAA, BBB : integer;
 procedure Mult(var A, B : integer); 
 begin
   A := A * B;
   B := B + 1   
 end;
  AAA := 10;
  BBB := 20;
  Mult(AAA,BBB);
  WriteLn(AAA:10, BBB:10);