Дан указатель P1 на вершину стека (если стек пуст, то P1 = nil). Извлечь из стека все элементы и вывести их значения

@lavrovgg · Регистрация: 18.12.2018

Author24 — интернет-сервис помощи студентам

Динамические структуры данных

Все числа, используемые в заданиях на динамические структуры данных, являются целыми. Все указатели имеют тип PNode и указывают на записи типа TNode. В заданиях на динамические структуры данных используются поля Data, Next и Prev записей типа TNode. Поэтому при выполнении этих заданий можно считать, что типы PNode и TNode описаны следующим образом:

Pascal

type
 
    PNode = ^TNode;
 
    TNode = record
 
        Data: integer;
 
        Next: PNode;         Prev: PNode;     end;

Во вводных заданиях, а также в заданиях на стек и очередь при работе с записями типа TNode используются только поля Data и Next; в заданиях на списки используются все поля записи TNode.

Так как переменные типа «указатель» предназначены для хранения адресов, в формулировках заданий слова «указатель» (на элемент данных) и «адрес» (элемента данных) используются как синонимы.

В заданиях, в которых идет речь о номерах элементов списка, предполагается, что элементы списка нумеруются от 1.

Динамические структуры данных: стек
В заданиях данной подгруппы структура «стек» (stack) моделируется цепочкой связанных узлов-записей типа TNode. Поле Next последнего элемента цепочки равно nil. Вершиной стека (top) считается первый элемент цепочки. Для доступа к стеку используется указатель на его вершину (для пустого стека данный указатель полагается равным nil). Значением элемента стека считается значение его поля Data.

Вариант 7. Дан указатель P1 на вершину стека (если стек пуст, то P1 = nil). Извлечь из стека все элементы и вывести их значения. Вывести также количество извлеченных элементов N (для пустого стека вывести 0). После извлечения элементов из стека освобождать память, которую они занимали.

Конкретно здесь, нужно все автоматизировать, вот прям так, чтобы только запуск был, чтобы числа рандомно генерировались и потом производилась всё как в задании, а в конце выводилось это всё, (прикрепил, что получилось у меня (Roflyanochka6).

Pascal

program Roflyanochka6;
type
  PNode=^TNode;
  TNode=record
    Data: Integer;
    Next: PNode;
    //Prev: PNode;
  end;
 
procedure CreateStack(var P1:PNode);
var
 p:PNode;
 i,N:integer;
 
begin
 Write('N:');
 Readln(N);
 p1:=nil;
 for i:=1 to N do
  begin
   new(p);
   Write('эл-т: ');
   Readln(P^.Data);
   p^.Next := P1;
   P1:=p;
  end;
end;
 
function pop(var P1:PNode):integer;
var
 head: PNode;
begin
 Result:=p1^.Data;
 head:=P1^.Next;
 Dispose(P1);
 P1:=head;
end;
 
var
 P1:PNode;
 i,N:integer;
begin
 CreateStack(P1);
 N:=0;
 while (p1<>nil) do
  begin
   inc(N);
   Writeln(pop(P1));
  end;
 Writeln('кол-во эл-ов:',N);
 Writeln('Стек очищен');
 writeln('Пуст ли стек: {p1=nil}');
end.

@Sun Serega · 22.12.2018, 16:12

В чём вопрос?

@lavrovgg · 22.12.2018, 21:24 **[ТС]**

Sun Serega, нужно все автоматизировать, вот прям так, чтобы только запуск был, чтобы числа рандомно генерировались и потом производилась всё как в задании, а в конце выводилось это всё

@Sun Serega · 22.12.2018, 22:10

Замените Readln на генерацию рандомного числа.

@lavrovgg · 23.12.2018, 01:46 **[ТС]**

Sun Serega, я не знаю как это сделать, слишком слаб для Паскаля (((

@Sun Serega · 23.12.2018, 02:01

Сколько людей из вашей группы понимают вообще хоть что то в паскале?))) Уже который раз это задание. И каждый раз ТС ничего не понимает в паскале.
Воспользуйтесь поиском, что ли... Правда, я не уверен что предыдущие именно такие как вам надо. Но вы всё равно проверьте.

@lavrovgg · 23.12.2018, 03:01 **[ТС]**

Sun Serega, я искал, находит только для С+, либо для турбопаскаля

@Sun Serega · 23.12.2018, 03:20

1. Ищите в разделе PABC.Net
2. Программа с турбо паскаля должна запускаться на PABC.Net, иногда с небольшими правками. Но совместимость ооочень хорошая.

@Sun Serega 2351 / 1454 / 526 Регистрация: 07.04.2017 Сообщений: 4,785
	22.12.2018, 16:12	2
	В чём вопрос? 0

@lavrovgg 0 / 0 / 0 Регистрация: 18.12.2018 Сообщений: 15
	22.12.2018, 21:24 [ТС]	3
	Sun Serega, нужно все автоматизировать, вот прям так, чтобы только запуск был, чтобы числа рандомно генерировались и потом производилась всё как в задании, а в конце выводилось это всё 0

@Sun Serega 2351 / 1454 / 526 Регистрация: 07.04.2017 Сообщений: 4,785
	22.12.2018, 22:10	4
	Замените Readln на генерацию рандомного числа. 0

@lavrovgg 0 / 0 / 0 Регистрация: 18.12.2018 Сообщений: 15
	23.12.2018, 01:46 [ТС]	5
	Sun Serega, я не знаю как это сделать, слишком слаб для Паскаля ((( 0

@Sun Serega 2351 / 1454 / 526 Регистрация: 07.04.2017 Сообщений: 4,785
	23.12.2018, 02:01	6
	Сколько людей из вашей группы понимают вообще хоть что то в паскале?))) Уже который раз это задание. И каждый раз ТС ничего не понимает в паскале. Воспользуйтесь поиском, что ли... Правда, я не уверен что предыдущие именно такие как вам надо. Но вы всё равно проверьте. 0

@lavrovgg 0 / 0 / 0 Регистрация: 18.12.2018 Сообщений: 15
	23.12.2018, 03:01 [ТС]	7
	Sun Serega, я искал, находит только для С+, либо для турбопаскаля 0

@Sun Serega 2351 / 1454 / 526 Регистрация: 07.04.2017 Сообщений: 4,785
	23.12.2018, 03:20	8
	1. Ищите в разделе PABC.Net 2. Программа с турбо паскаля должна запускаться на PABC.Net, иногда с небольшими правками. Но совместимость ооочень хорошая. 0

Опции темы