Как сделать графическую оболочку к программе?

[ЕвгениуS]

мне по курсовой надо сделать калькулятор-аналог калькулятора в Винде..
Вот нашел рабочий код... как же теперь сделать графическую оболочку?
вот код программы

Begin Gr;
type
  TypeTok = (_num, _plus, _minus, _mul, _div, _lparent, _rparent, _stop);
var
  S: string;
  TTok: TypeTok;
  RTok: real;
  STok: string;
  _pos: byte;

procedure Expression(var x: real); forward;

procedure Get;
var
  e: integer;
begin
  if _pos>length(S) then begin
    TTok:=_stop;
    exit;
  end;

  STok:='';

  while S[_pos] in [' ', #9] do inc(_pos);
  case S[_pos] of
    '0'..'9': begin
                while S[_pos] in ['0'..'9'] do begin
                  STok:=STok+S[_pos];
                  inc(_pos);
                end;
                if S[_pos]='.' then begin
                  STok:=STok+S[_pos];
                  inc(_pos);
                  while S[_pos] in ['0'..'9'] do begin
                    STok:=STok+S[_pos];
                    inc(_pos);
                  end;
                end;
                TTok:=_num;
                val(STok, RTok, e);
              end;
    '+':      begin TTok:=_plus; inc(_pos); end;
    '-':      begin TTok:=_minus; inc(_pos); end;
    '*':      begin TTok:=_mul; inc(_pos); end;
    '/':      begin TTok:=_div; inc(_pos); end;
    '(':      begin TTok:=_lparent; inc(_pos); end;
    ')':      begin TTok:=_rparent; inc(_pos); end;
    else
      {error}
  end;
end;


procedure Factor(var x: real);
var
  e: integer;
begin
  case TTok of
    _num:     begin
                x:=RTok;
                Get;
              end;
    _lparent: begin
                Get;
                Expression(x);
                if TTok=_rparent then
                  Get
                else
                  {error};
              end;
  end;
end;

procedure Term(var x: real);
var
  y: real;
  op: TypeTok;
begin
  Factor(x);
  while TTok in [_mul, _div] do begin
    op:=TTok;
    Get;
    Factor(y);
    case op of
      _mul: x:=x*y;
      _div: x:=x/y;
    end;
  end;
end;

procedure Expression(var x: real);
var
  y:  real;
  op: TypeTok;
begin
  Term(x);
  while TTok in [_plus, _minus] do begin
    op:=TTok;
    Get;
    Term(y);
    case op of
      _plus:  x:=x+y;
      _minus: x:=x-y;
    end;
  end
end;

procedure init;
begin
  STok:='';
  RTok:=0.0;
  _pos:=1;
  Get;
end;

var

  x: real;
begin
  write('> ');
  readln(S);
  while S<>'' do begin
    init;
    expression(x);
    writeln('   result = ', x:0:5);
    write('> ');
    readln(S);
  end;
end.

помогите плиз...

[Rozalinda]

А в чем, собственно, проблема? Кидаешь кнопочки, создаешь меню, TEdit для ввода циферок...
Это код под консоль, отсюда только процедуры понадобятся, хотя я бы и их брать на стала )))
какие вообще знания в этой области?

[ЕвгениуS]

Сообщение от Rozalinda

А в чем, собственно, проблема? Кидаешь кнопочки, создаешь меню, TEdit для ввода циферок...
Это код под консоль, отсюда только процедуры понадобятся, хотя я бы и их брать на стала )))
какие вообще знания в этой области?

в том то и проблема.. никогда с графикой не работал((( а тут понадобилось.. возможно тут ничего сложного, но все равно хотелось бы чтобы кто-то подсказал...

[Rozalinda]

графики тут никакой и нет. Просто приложение с кнопочками.
Под "с графикой никогда не работал" имеется ввиду, что только под консоль (console application)?

[Тупой]

да не проще набрать в поиске "калькулятор delphi"?

[ЕвгениуS]

Сообщение от Тупой

да не проще набрать в поиске "калькулятор delphi"?

нее, не проще... я хочу разобраться во всем )))

[ЕвгениуS]

Сообщение от Rozalinda

графики тут никакой и нет. Просто приложение с кнопочками.
Под "с графикой никогда не работал" имеется ввиду, что только под консоль (console application)?

кнопочки с помощью модуля граф я например нарисую, а дальше что? как сделать привязку к формулам? чтобы человек мышкой нажимал на кнопочку как в виндоусовском калькуляторе

[Rozalinda]

Тупой, ну, может, человек разобраться хочет?
это действительно вполне возможно в интернете найти.
http://articles.org.ru/docum/calculator.php например...
готового у меня нет, писать - не две минуты. могу только подсказать, как делать )

[Rozalinda]

с помощью модуля граф Это что имеется ввиду??
На вкладке standart есть компонента TButton. двойное нажатие на ней создает в модуле программы обработчик события. там и пишете, что должно произойти при нажатии.

[ЕвгениуS]

Сообщение от Rozalinda

с помощью модуля граф Это что имеется ввиду??
На вкладке standart есть компонента TButton. двойное нажатие на ней создает в модуле программы обработчик события. там и пишете, что должно произойти при нажатии.

мне надо в Паскале это написать..
модуль граф позволяет рисовать линии. круги.. цветами закрашивать... задавая всему этому координаты

а TButton это вероятно в дельфи?