Реализация класса на С++

[danekne]

Ребят, вообщем-то проблема в следующем... Есть задача - описать класс, который реализует основные операции над стеком... я описал подобный - на Паскале. Может кто нить в С++ перевести? А то ради одного зачета лезть в эти дебри времени нет. Собственно наработки:

type
  ptr:=^stack;
  stack=record
    val:real;
    pnt:ptr;
var r, l:ptr;

procedure push (x:real;var r:ptr);{включение элемента}
var p: ptr;
begin
new (p);
p^.val:=x;
p^.pnt:=r;
r:=p;
end;

function pop (var r:ptr):real; {Снять с вершины}
var 
p:ptr;
begin
if r:=nill then writeln('... ')
else
begin
p:=r;
pop:=p^.val;
r:=p^.pnt;
dispose (p);
end;
end;

function empty (r:ptr):boolean;{выработка на пустоту}
begin
empty:=r=nill;
end;

procedure clear(var r:ptr);{очистка стека}
var p:pnt;
begin
while p<>nil do
begin
p:=r;
r:=r^.pnt;
dispose(p);
end;
end;

Если кто нить поможет хоть чем - буду очень благодарен

[Namolem]

class Node{
public:
			double val;
			Node *prev;
};
class stack{
	Node *node;
	public:
	stack(){
		Node *p = new Node;
		p->val = 0.0;
		p->prev = node;
		node = p;
	}
	stack(double d){
		Node *p = new Node;
		p->val = d;
		p->prev = node;
		node = p;
	}
	void push(double d){
		Node *p = new Node;
		p->val = d;
		p->prev = node;
		node = p;
	}
	double pop(){
		if (node==NULL) cout <<'... ';
		else{
			register double vl = node->val;
			node = node->prev;
			return vl;
		}
	}
	int empty(){
		return (node==NULL);
	}
	void clear(){
		Node *p = node;
		while (p){
			delete p;
			p=p->prev;
		}
	}
};

[Пепел Феникса]

сотрите пост

[danekne]

Спасибо большое! Проверим)

[Alex_FF]

struct stack
{
	stack *top;
	float val;
};
typedef stack *sptr;

bool empty(const sptr S)
{
	return S == NULL;
}

void push(const float x, sptr &S)
{
	sptr t = new stack;
	t -> top = S;
	t -> val = x;
	S = t;
}

float pop(sptr &S)
{
	if (S == NULL)
	{
		puts("underflow");
		return -1;
	}
	float r = S -> val;
	sptr t = S;
	S = S -> top;
	delete(t);
	return r;
}

void clear(sptr &S)
{
	sptr t;
	while (S)
	{
		t = S -> top;
		delete S;
		S = t;
	}
}

[danekne]

В итоге:

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include <memory>
#include <string>
#include <stdexcept>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
 class stack{
 class node{
 public:
        int d;
        node *next;
        node (int dat=0){d=dat;next=0;}
 };
 node *_root;
 public:
 stack(){_root=0;}
 ~stack();
 void push(int d);
 int pop();
 bool isempty() const;
 };

   stack::~stack()
{
    while (!isempty()) {
        pop();
    }
}

  void stack::push(int d)
 {
 node *pv=new node (d);
 if (_root==0)
 _root=pv;
 else
 {
 pv->next= _root;
 _root=pv;
 }
 }

 int stack::pop()
 {
 int temp=_root->d;
 node *pv = _root;
 _root=(_root)->next;
 delete pv;
 return temp;
 }

 bool stack::isempty() const {
    return _root == 0;
}

TForm1 *Form1;
 __fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button8Click(TObject *Sender)
{
stack L;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
//stack L;
L.push(StrToInt(Edit1->Text));
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)
{
stack L;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button3Click(TObject *Sender)
{
stack L;
Edit2->Text=IntToStr(L.pop());
}
//---------------------------------------------------------------------------

Система ругается на L.push(StrToInt(Edit1->Text));
Говорит, что не знает, что такое L. Но мне нужно, чтобы при нажатии на кнопку - просто добавлялись данные в стек уже созданный... что делать? Среда - билдер 6.0