Стеки

25.10.2022, 22:33. Показов 260. Ответов 0

Метки нет (Все метки)

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

Создать стек, информационными полями которого являются: монитор, диагональ и его цена. Добавить в стек сведения о новом мониторе. Организовать просмотр данных стека и определить количество мониторов с диагональю более 20 дюймов.

Шаблон:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
type pnode=^node;
     node = record
       data: integer;
       next: pnode;
     end;
     
var top: pnode;
    x, i: integer;
    
procedure push(y:integer; var pp:pnode);
var t:pnode;
begin
  new(t); //writeln(y, t);
  t^.data := y;
  t^.next := pp;
  pp := t;
end;
 
procedure pop(var y:integer; var pp:pnode);
var t:pnode;
begin
  t:=pp^.next; //writeln(t);
  y:=pp^.data;
  dispose(pp);
  pp:=t;
end;
 
function isnil(pp:pnode):boolean;
begin
  if pp <> nil then isnil:=False
    else isnil:=True;
end;
 
begin
  top:=nil;
  push(2,top); push(3,top); push(4,top);
  {if not isnil(top) then begin
    pop(x, top); writeln(x); end;
  if not isnil(top) then begin
    pop(x, top); writeln(x); end;
  if not isnil(top) then begin
    pop(x, top); writeln(x);end;
  if not isnil(top) then begin
    pop(x, top); writeln(x);end;}
  //while top<>nil{not isnil(top)} do begin
    {pop(x,top);
    writeln(x);}
  while (top<>nil) and (top^.data > 3) do begin
    pop(x,top);
    writeln(x);
  end;
end.

IT_Exp

Эксперт

34794 / 4073 / 2104

Регистрация: 17.06.2006

Сообщений: 32,602

Блог

25.10.2022, 22:33

Ответы с готовыми решениями:

Стеки
Создать динамические структуры – основной стек, содержащий максимально 25 вещественных элементов и стек удаленных элементов, содержащий...

Динамические структуры: стеки и очереди
Создать стек строковых значений, для реализации используя односвязные списки. Реализовать операции добавления (push) и удаления (pop)...

Списки, стеки, макмальный и минимальный элемент
Написать программу, которая: 1. Читает последовательность чисел с клавиатуры и формирует связанный список. 2. Печатает эту...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

BasicMan

Эксперт

29316 / 5623 / 2384

Регистрация: 17.02.2009

Сообщений: 30,364

Блог

25.10.2022, 22:33

Помогаю со студенческими работами здесь

Стеки, очереди, деки как прописываются в var и type
Стеки, очереди, деки как прописываются в var и type. срочно нужно

Стеки
даны три стека, в каждом из которых находится по 10 различных чисел. Найти в первом стеке максимальное число, во втором- наименьшее...

Стеки
Всем привет, нужна помощь. А если точнее, то нужна программа, которая выводит слова в строке в обратном порядке. Например: Дано...

Стеки
Помогите плиз.... решить задачу! Дана строка S из элементов которой, стоящих на четных местах, сформирован стек элементов символьного...

Стеки
Задание. Проверить в выражении баланс открывающихся "(" и закрывающихся ")" скобок. Идея алгоритма заключается в следующем. Если...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем

Наверх