Реализовать стековый массив pop push

@Cluqie · Регистрация: 05.03.2017

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

Реализовать стек , очень простой с процедурами pop и push

@Hitoku · 06.03.2017, 16:05

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
var
 a : array[1..100] of integer;
 size,x,i,n: integer;
 
procedure push(c : integer);
 begin
  size := size + 1;
  a[size] := c; 
 end;
 
procedure vivod;
 begin
  write('Массив:');
  for var i:=1 to n do
    write(' ',a[i]);
  writeln('. Размер стека - ',size);
 end;
 
 procedure pop;
 begin
  size := size - 1;
 end;
 
 function top : integer;
 begin
  top := a[size];
 end;
 
 begin
  size := 0;
  write('Введите количество элементов: '); readln(n);
  writeln('Введите элементы массива:');
  for i := 1 to n do begin
    readln(x);
    Push(x);
  end;
  
  vivod();
  
  while size > 0 do
  pop();
  writeln('Размер стека после Pop - ',size);
  
 end.

@Cluqie · 06.03.2017, 16:12 **[ТС]**

Pascal
1
2
3
4
5
6
7
procedure vivod;
 begin
  write('Массив:');
  for var i:=1 to n do
    write(' ',a[i]);
  writeln('. Размер стека - ',size);
 end;

у var пишет ожидался идентификатор

@Hitoku · 06.03.2017, 16:40

Вы точно в ABC запускаете?

@Cluqie · 06.03.2017, 16:46 **[ТС]**

Если здесь можно скинуть скрин могу скинуть

Добавлено через 1 минуту
Всё, я всё исправил , спасибо)

@Hitoku · 06.03.2017, 16:46

Что изменили?

@Cluqie · 06.03.2017, 17:59 **[ТС]**

Убрал var как вы , только сделал это до того как вы написали) спасибо ещё раз

@Cyborg Drone · 07.03.2017, 14:43

Hitoku, в простом ABC (не в ABC.NET) нет внутриблочно объявления переменных. Все переменные необходимо объявлять в секции var.

Я несколько обеспокоен: не путаете ли Вы ABC и ABC.NET? Это совершенно разные диалекты, несмотря на их общее происхождение. Если ABC - это учебный диалект, причём по сути - интерпретатор, а не транслятор, в котором ампутировано всё, что можно и нельзя (нет динамичеких массивов, нет некторых операторов, например, xor, нельзя создать исполняемый файл (в принципе, можно, но нужны танцы с бубном, да и то, результат камлания может на другом компьютере и не запуститься), всё достоинство которого - в простоте изучения, а вот ABC.NET... Ну, Вы меня поняли...

@Hitoku · 07.03.2017, 14:44

Cyborg Drone, я всё время об этом забываю и на автомате пишу

спасибо

@Cyborg Drone · 07.03.2017, 15:03

После того, как дописал ообщение, беспокоиться перестал: судя по Вашему ответу, различие упомянутых диалектов для Вас не новость.

@Hitoku · 07.03.2017, 16:32

Cyborg Drone, я описал i в var,

Pascal
3
size,x,i,n: integer

а потом по привычке ещё в циклах лепил

Pascal
14
for var i:=1 to n do

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .
Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	Влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .

@Cluqie 0 / 0 / 0 Регистрация: 05.03.2017 Сообщений: 30

	Реализовать стековый массив pop push 06.03.2017, 15:38. Показов 2317. Ответов 10 Метки pop, push, массив, с, стек (Все метки) Реализовать стек , очень простой с процедурами pop и push 0

@Hitoku 1755 / 1347 / 1407 Регистрация: 28.10.2016 Сообщений: 4,267
	06.03.2017, 16:40
	Вы точно в ABC запускаете? 0

@Cluqie 0 / 0 / 0 Регистрация: 05.03.2017 Сообщений: 30
	06.03.2017, 16:46 [ТС]
	Если здесь можно скинуть скрин могу скинуть Добавлено через 1 минуту Всё, я всё исправил , спасибо) 0

@Hitoku 1755 / 1347 / 1407 Регистрация: 28.10.2016 Сообщений: 4,267
	06.03.2017, 16:46
	Что изменили? 0

@Cluqie 0 / 0 / 0 Регистрация: 05.03.2017 Сообщений: 30
	06.03.2017, 17:59 [ТС]
	Убрал var как вы , только сделал это до того как вы написали) спасибо ещё раз 0

@Cyborg Drone Модератор 10419 / 5707 / 3401 Регистрация: 17.08.2012 Сообщений: 17,364
	07.03.2017, 14:43
	Hitoku, в простом ABC (не в ABC.NET) нет внутриблочно объявления переменных. Все переменные необходимо объявлять в секции var. Я несколько обеспокоен: не путаете ли Вы ABC и ABC.NET? Это совершенно разные диалекты, несмотря на их общее происхождение. Если ABC - это учебный диалект, причём по сути - интерпретатор, а не транслятор, в котором ампутировано всё, что можно и нельзя (нет динамичеких массивов, нет некторых операторов, например, xor, нельзя создать исполняемый файл (в принципе, можно, но нужны танцы с бубном, да и то, результат камлания может на другом компьютере и не запуститься), всё достоинство которого - в простоте изучения, а вот ABC.NET... Ну, Вы меня поняли... 0

@Hitoku 1755 / 1347 / 1407 Регистрация: 28.10.2016 Сообщений: 4,267
	07.03.2017, 14:44
	Cyborg Drone, я всё время об этом забываю и на автомате пишу спасибо 0

@Cyborg Drone Модератор 10419 / 5707 / 3401 Регистрация: 17.08.2012 Сообщений: 17,364
	07.03.2017, 15:03
	После того, как дописал ообщение, беспокоиться перестал: судя по Вашему ответу, различие упомянутых диалектов для Вас не новость. 0

Реализовать стековый массив pop push

Решение