0 / 0 / 0
Регистрация: 01.02.2018
Сообщений: 5
1

Написать процедуру удаления полного стэка к программе

01.03.2018, 11:50. Показов 682. Ответов 2
Метки нет (Все метки)

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
type
  ptr = ^stack;
  stack = record
    inf: integer;
    next: ptr
  end;
  
var
  kon, top: ptr;
  value: integer;
 
procedure makestack;
var
  ok: boolean;
begin
  ok := true;
  top := nil;
  while ok do
  begin
    writeln('Введите число');
    readln(value);
    if value = 999 then  ok := false
    else
    begin
      new(kon);
      kon^.inf := value;
      kon^.next := top;
      top := kon;
    end;
  end;
end;
 
begin
  makestack;
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.03.2018, 11:50
Ответы с готовыми решениями:

Написать процедуру удаления из строки всех кратных символов
Всем доброго времени суток. Давно просматриваю ваш форум по Паскалю, но вот только сейчас решил...

Написать процедуру удаления из типизированного файла повторные вхождения одного и того же числа
Написать процедуру удаления из типизированного файла повторные вхождения одного и того же числа. ...

Найти ошибку в программе. Написать процедуру или функцию, которая вычисляет значение выражения f(x).
1. Найти область допустимых значений аргумента x. 2. Написать процедуру или функцию, которая...

Написать функцию полного удаления списка на основе связного хранения
Помогите составить такую функцию! Добавлено через 14 минут *связного

2
5020 / 2607 / 2332
Регистрация: 10.12.2014
Сообщений: 9,928
01.03.2018, 12:01 2
„… удаления полного стека…“ — это очистить что ли?
Дык:
Pascal
1
procedure clearstack; begin kon:=nil; top:=nil; end;
0
0 / 0 / 0
Регистрация: 01.02.2018
Сообщений: 5
01.03.2018, 12:05  [ТС] 3
спасибо
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.03.2018, 12:05
Помогаю со студенческими работами здесь

Написать процедуру удаления
Написать процедуру удаления из строки S всех вхождений подстроки Subs.

Написать процедуру удаления записи из файла
Program Term_paper; Uses Crt; Type programma=record {Zapis, sootvetstvuyushaya programme}...

Написать процедуру удаления максимального элемента очереди
Написать процедуру удаления максимального элемента очереди лабораторная помогите

Написать процедуру удаления из текстового файла каждого второго символа
Здравствуйте. Помогите решить задание. Дан файл произвольных символов. Написать процедуру удаления...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru