Форум программистов, компьютерный форум CyberForum.ru

Стек на основе массива (Pascal -> Си++) - C++

Восстановить пароль Регистрация
 
Faoxis
6 / 6 / 0
Регистрация: 11.04.2012
Сообщений: 114
15.06.2014, 22:45     Стек на основе массива (Pascal -> Си++) #1
Здравствуйте! Язык pascal не знаю совсем! Пробовал сам переводить - получилось не очень. Может у кого-нибудь найдется немного времени ?


Delphi
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
unit Stack_Static;
 
interface
 
type
NameStr=string[25];
Procedure Push_S(Name:NameStr; Mark:integer);
Procedure Pop_S(Var Name:NameStr; Var Mark:integer);
Function Empty_S: Boolean;
 
Implementation
 
{Описываем внутреннюю изолированную структуру данных}
Const StackSize=100;
Type
    Student=record
         Name: NameStr;
         Mark: integer;
    End;
Var
    List: array[1..StackSize]of Student;
    SP: integer;
 
Procedure Push_S; {добавление элемента}
Begin
     If SP>StackSize then Exit;
     List[SP].Name:=Name;
     List[SP].Mark:=Mark;
     SP:=SP+1;
End;
 
Function Empty_S;  {проверка пустоты стека}
Begin
      If SP=1 then Empty_S:=true
      Else Empty_S:=false
End;
 
 
Procedure Pop_S;    {извлечение элемента}
Begin
      If Empty_S then Exit;
      SP:=SP-1;
      Name:=List[SP].Name;
      Mark:=List[SP].Mark;
End;
 
{инициализация}
begin
   SP:=1
end.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.06.2014, 22:45     Стек на основе массива (Pascal -> Си++)
Посмотрите здесь:

Стек на основе динамического массива C++
Создать стек целых чисел на основе статического массива. C++
Стек записи на основе статического массива типа запись C++
Стек на основе статического массива C++
Стек на основе массива структур - эт как понять читаю литературу и не могу понять! C++
C++ Помогите реализовать стек на основе массива
C++ Стек на основе массива
C++ Шаблон класса "Стек" на основе массива

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать тему
Опции темы

Текущее время: 14:09. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru