Дискуссионный математический форумМатематический форум
Математический форум Math Help Planet

Обсуждение и решение задач по математике, физике, химии, экономике

Теоретический раздел
Часовой пояс: UTC + 3 часа [ Летнее время ]
MathHelpPlanet.com RSS-лента Математического форума

Часовой пояс: UTC + 3 часа [ Летнее время ]




Начать новую тему Ответить на тему  [ 1 сообщение ] 
Автор Сообщение
 Заголовок сообщения: Статическая реализация дека (делфи 2006)
СообщениеДобавлено: 21 ноя 2013, 16:26 
Не в сети
Начинающий
Аватара пользователя
Зарегистрирован:
17 мар 2013, 13:01
Сообщений: 22
Cпасибо сказано: 21
Спасибо получено:
0 раз в 0 сообщении
Очков репутации: 1

Добавить очки репутацииУменьшить очки репутации
Доброго времени суток! Не может ли кто-нибудь подсказать, в чем мои ошибки?
Пыталась реализовать добавление, извлечение слева и справа, проверку на пустоту и очистку, но выдаёт лишь ошибку.

▼ Код
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Edit1: TEdit;
Label1: TLabel;
Button6: TButton;
Button7: TButton;
procedure Button5Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
Tdeck = class
deck : array [1..10] of integer;
lev: integer;
prav: integer;
procedure addlev(a:integer);
procedure addprav(b:integer);
function getlev:integer;
function getprav:integer;
function proverka:boolean;
procedure pust;
end;
var
Form1: TForm1;
deck : tdeck;
implementation

{$R *.dfm}

procedure Tdeck.addlev(a:integer);
begin
inc (lev);
Deck[lev]:=a;
end;

procedure Tdeck.addprav(b:integer);
begin
inc (prav);
deck[prav]:=b;
end;

function Tdeck.getlev:integer;
var d: integer;
begin
d:=deck[lev];
dec(lev);
Result :=d;
end;

function Tdeck.getprav:integer;
var e:integer;
begin
e:=deck[prav];
dec(prav);
result:=e;
end;

function Tdeck.proverka:boolean;
begin
if ((lev=0) and (prav=0)) then proverka:=false
else proverka:=true;
end;

procedure Tdeck.pust;
begin
lev:=0;
prav:=0;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
if deck.proverka=false then showmessage('Дек пуст')
else showmessage('Дек не пуст');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
label1.Caption:= IntToStr(deck.getlev);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
deck.addlev(StrToInt(Edit1.Text));
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
deck.pust;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
deck := Tdeck.Create;
end;


procedure TForm1.Button6Click(Sender: TObject);
begin
deck.addprav(StrToInt(Edit1.Text));
end;


procedure TForm1.Button7Click(Sender: TObject);
begin
label1.Caption:= IntToStr(deck.getprav);
end;

end.

Вернуться к началу
 Профиль  
Cпасибо сказано 
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему      Страница 1 из 1 [ 1 сообщение ]

 Похожие темы   Автор   Ответы   Просмотры   Последнее сообщение 
Проблема при записи условия IF в делфи

в форуме Информатика и Компьютерные науки

Francisk

2

264

17 сен 2015, 19:25

Статическая обработка результатов испытаний

в форуме Математическая статистика и Эконометрика

DjoyceGraham

28

2383

24 апр 2011, 09:32

Статическая детерминированная модель управ. запасами с дефиц

в форуме Экономика и Финансы

S-t-u-d-e-n-t

0

177

06 дек 2014, 14:06

На столе лежат 2006 карточек

в форуме Задачи со школьных и студенческих олимпиад

Xenia1996

3

88

05 ноя 2019, 01:41

Ни одного простого числа (Всеросс 2006, модификация)

в форуме Задачи со школьных и студенческих олимпиад

Xenia1996

5

479

28 авг 2017, 16:04

Докажите что Cos1 * Cos2 * Cos4 * ...Cos(2^2006)<1/2^2007Sin

в форуме Задачи со школьных и студенческих олимпиад

TanyaTara

1

512

13 дек 2010, 14:24

Реализация алгоритма на с++

в форуме Информатика и Компьютерные науки

sanechka6

3

620

16 июл 2013, 12:17

Реализация метода прогонки в maple

в форуме Maple

purgin4ik

2

920

23 май 2015, 17:06

Реализация метода Эрмита в мат. пакете

в форуме Maple

Mubat

1

423

09 июн 2011, 00:01

ЧИсленная реализация метода сопряженных градиентов для СЛАУ

в форуме Линейная и Абстрактная алгебра

Mishan_Aviator

0

367

20 апр 2015, 16:08


Часовой пояс: UTC + 3 часа [ Летнее время ]



Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  

Яндекс.Метрика

Copyright © 2010-2019 MathHelpPlanet.com. All rights reserved