Паскаль. Список с различными элементами

[ProofAlex]

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

думал в качестве списка сделать динамический массив типа pointer. Но возникают проблемы с выводом значений и pointer только указатель на значения. Действующие значения все равно должны быть. Подскажите в каком направлении развивать мысли.

[was3110]

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

[ProofAlex]

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

для ввода For i:=1 to КонецМассива, узначем что именно вводим и вставляем в типовой массив; для вывода проверять на nil и выводить значения уже из типизированных массивов.

[Serge_Bliznykov]

Подумал сделать еще многомерный массив. правда будет много пустых значений.

Это очень плохая мысль!

Перечитайте ответ was3110, имхо, он дело говорит!

т.е. смысл такой - создаёте объект нужного типа. (через New, например), ссылочку на него (Pointer) помещаете в ваш список, ну и ту даже обязательно тип элемента, который создали.
Тогда, проходя по списку можно получить и тип объекта и указатель на этот объект.

[ProofAlex]

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

указатель на этот объект.

сам объект то все равно должен быть.

[mss]

300 руб - и забирай.

[ProofAlex]

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

300 руб - и забирай.

откуда такие деньги у студентов платного обучения. Да и раздел фриланса в другом месте.

[Serge_Bliznykov]

ну раз денег нет - тогда надо самостоятельно учиться!!

вот, для затравки:

{список}
const ArrSize = 10;

type
  ObjectType = (MyInt, MyBool, MyArray, UnknownType);

  MyArrayType= array[1..ArrSize] of real;
  PMyInt = ^Integer;
  PMyBool = ^Boolean;
  PMyArray = ^MyArrayType;

  PMyObjectList = ^TMyObjectList;
  TMyObjectList = record
    TypeObject: ObjectType;
    Link2Object: pointer;
    Next: PMyObjectList;
  end;

var haid, tail, p: PMyObjectList;
  c: char;

procedure InstallSpisok(var golova, hvost: PMyObjectList);
var ObType, BoolInt : word;
  i : integer;
  vMyInt : PMyInt;
  vMyBool: PMyBool;
  vMyArray: PMyArray;
begin
  while true do
  begin
    if golova = nil then
    begin
      new(golova);
      hvost := golova;
      golova^.Next := nil;
    end
    else
    begin
      new(hvost^.Next);
      hvost := hvost^.Next;
      hvost^.Next := nil;
    end;
    write('Введите тип создаваемого объекта: (',
                 ord(MyInt),'-',ord(MyArray),') : ');
    Readln(ObType);

    case ObType of
      ord(MyInt) : begin
                New(vMyInt);
                WriteLn('Введите целое число: ');
                Readln(vMyInt^);
                hvost^.TypeObject := MyInt;
                hvost^.Link2Object :=  vMyInt;
              end;
      ord(MyBool) : begin
                New(vMyBool);
                WriteLn('Введите логическое значение (1-True, 0-False): ');
                Readln(BoolInt);
                vMyBool^ := BoolInt = 1;
                hvost^.TypeObject := MyBool;
                hvost^.Link2Object :=  vMyBool;
              end;
      ord(MyArray) : begin
                New(vMyArray);
                for i:=1 to ArrSize do vMyArray^[i] := i*2.574;
                hvost^.TypeObject := MyArray;
                hvost^.Link2Object :=  vMyArray;
              end;
      else begin
        hvost^.TypeObject := UnknownType;
        hvost^.Link2Object :=  nil;
      end
    end;

    write('Продолжить ввод чисел? Y/N');
    readln(c);
    if (c = 'n') or (c = 'N') then
      break;
  end; {while}
end;

(*
procedure Summa(golova, hvost, p: PMyObjectList);
var summa: integer;
begin
  summa := 0;
  p := golova;

  if p = hvost then {Если в списке один элемент}
    if p^.info > 0 then
    begin
      summa := p^.info;
      writeln('Сумма положительных элементов: ', summa);
    end;

  while p <> hvost do
  begin
    if (p^.info > 0) then
      summa := summa + p^.info;
    p := p^.Next;

    if p = hvost then
    begin
      if (p^.info > 0) then
        summa := summa + p^.info;
      write('Сумма положительных элементов = ', summa);
    end;
  end; {while}


end;
*)


begin

  InstallSpisok(haid, tail);
  readln;
end.

[ProofAlex]

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

Плоды моего самостоятельного обучения с этим списком получились далекими даже от этой затравки.
Спасибо за помощь.

[mss]

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

откуда такие деньги у студентов платного обучения. Да и раздел фриланса в другом месте.

Нет денег - нет стульев)
Да и раздел "Сделайте мне нахаляву" в другом месте.