|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
28.01.2018, 00:37 | #1 |
Новичок
Джуниор
Регистрация: 28.01.2018
Сообщений: 1
|
Паскаль. Стеки. Очередь
Прошу помочь исправить ошибку в программе.
необходимо установить "Размер очереди должен быть ограничен только размером доступной оперативной памяти" type queue = array[0..30000] of longint; var n, b, e, code: longint; s: string; a: queue; procedure push(var x: queue; var z: longint; y: longint); begin x[z] := y; inc(z); writeln('ok'); end; procedure pop(var x: queue; var z: longint); begin writeln(x[z]); inc(z); end; procedure size(z: longint;p: longint); begin writeln(p-z); end; procedure front(x: queue; z: longint); begin writeln(x[z]); end; procedure clear(var z: longint; var p: longint); begin z:=1; p:=1; writeln('ok'); end; begin b:=1; e:=1; repeat readln(s); if copy(s, 1, 4) = 'push' then begin delete(s, 1, 5); val(s, n, code); push(a, e, n); end; if copy(s, 1, 3) = 'pop' then begin if b-e=0 then writeln('error') else pop(a, b); end; if copy(s, 1, 4) = 'size' then size(b,e); if copy(s, 1, 5) = 'front' then begin if b-e=0 then writeln('error') else front(a,b) end; if copy(s, 1, 5) = 'clear' then clear(b,e); if copy(s, 1, 4) = 'exit' then begin writeln('bye'); exit; end; until s = ''; end. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
очередь и стеки (на си) | Qrom | Помощь студентам | 3 | 14.12.2016 23:10 |
Стеки в Паскаль | mishammm | Помощь студентам | 4 | 07.04.2014 09:47 |
вводим 15 элементов в очередь, затем выводим на экран эту очередь и добавил в очередь еще один элемент. Потом удаляем любой элемен | Xumera | C++ Builder | 2 | 07.12.2013 13:56 |
Паскаль.Стеки | Viwwna | Помощь студентам | 1 | 28.06.2012 21:33 |