Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
InferernumDeus
7 / 7 / 0
Регистрация: 13.08.2012
Сообщений: 250
#1

Работа со стеком

16.05.2013, 14:28. Просмотров 310. Ответов 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
36
37
38
program lab4;
const n = 2;
type stack = record
       value: array[1..n] of string;
       t: integer;
     end;
 
procedure error(k: integer);
begin
  if k = 1 then writeln('Stack overflow')
  else if k = 2 then writeln('Stack is empty');
end;
 
procedure instack(var Q: stack; x: string);
begin
  if Q.t = n then error(1)
  else begin
    Q.t := Q.t + 1;
    Q.value[Q.t] := x;
  end;
end;
 
procedure outstack(var Q: stack; x: string);
begin
  if Q.t = 0 then error(2)
  else begin
    x := Q.value[Q.t];
    Q.t := Q.t - 1;
  end;
end;
 
var S: stack;
     o: string;
begin
  instack(S,'PUTIS');
  outstack(S,o); writeln(o);
  readln;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.05.2013, 14:28
Ответы с готовыми решениями:

Работа со стеком - не все нечетные элементы удаляются
Приветствую всех форумчан. Хочу научиться работать со стеком. Вот решил написать прогу, которая...

Работа со стеком
Доброго времени суток. Мне нужно создать стек и вывести его на экран. Или что-то с вводом или...

работа со стеком
uses crt; type str=string; uk_stack=^stack; stack=record inf:str; nevt:uk_stack; end; var...

Pascal работа с файлами и стеком. Требуется грамотный совет
Собственно задача с олимпиады Определим правильные скобочные выражения так: Пустое выражение -...

Счетчик операций со стеком
есть код работы сортировки стека и надо сделать счетчик операций со стеком. В принципе смог...

2
Kitayets
338 / 292 / 103
Регистрация: 09.09.2011
Сообщений: 1,038
16.05.2013, 16:25 #2
1. читайте сообщения компилятора
2. инициализируйте все переменные
3. о изучите в чём отличие передачи параметров по ссылке от передачи их по значению


вместо:
Pascal
1
procedure outstack(var Q: stack; x: string);
измените на:
Pascal
1
procedure outstack(var Q: stack;var x: string);
или так:
Pascal
1
procedure outstack(var Q: stack;out x: string);
1
InferernumDeus
7 / 7 / 0
Регистрация: 13.08.2012
Сообщений: 250
17.05.2013, 06:52  [ТС] #3
Точно, совсем забыл.
Благодарю.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.05.2013, 06:52

Программа работы со стеком
Разработайте программу работы со стеком. Программа должна содержать следующие процедуры, вызываемые...

Работа со стеком
Приветствую всех! Я новичок в Ассемблере и столкнулся с проблемой, решение которой не могу найти....

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru