Кнопка для калькулятора из 10-й в 16-ую систему счисления.

[iron_cross]

Поблема такая, калькулятор зделал еле как. Теперь нужно добавить кнопку или же сразу две, чтоб одна переводила в 10-ую, а другая в 16-ую. Если так не получится, то хотя бы создать одну кнопку чтоб она переводила из 10-й в 16-й сист.счисления, есть код программы которая переводит из 10-й в 16-ую. А теперь как этот код вставить в кнопку для перевода и что нужно подправить. Например на калькуляторе вводим 10-е число и чтоб при нажатии кнопки это число переводила в 16-ую сист.счисления.

{$APPTYPE CONSOLE} 

uses 
SysUtils; 
const z:array[0..15] of char = (′0′,′1′,′2′,′3′,′4′,′5′,′6′,′7′,′8′,′9′,′A′,′B′,′C′,′D′,′E′,′F′); 

var x,a: integer; 
s:string; 

begin 
readln(a); 
readln(x); 
s:=′′; 
if a=0 then s:=′0′ else 
if x<=16 then begin 
while a>0 do begin 
s:=z[(a mod x)]+s; 
a := a div x; 
end; 
end; 
write(s); 
readln; 
end.

Помогите люди добрые. Заранее все спасибо за помощь.

[Stilet]

Примерно так:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
const z:array[0..15] of char = ('0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F');

var x,a: integer; 
s:string; 

begin
a:=StrToIntDef(Edit1.Text,0);
x:=StrToIntDef(Edit2.Text,0);
s:='';
if a=0 then s:='0' else
if x<=16 then begin
while a>0 do begin
s:=z[(a mod x)]+s;
a := a div x;
end;
end;
Caption:=s;

end;

end.

А вот теперь твое домзадание - разобраться в коде. Взять из него слова и почитать в книге что они означают.

[iron_cross]

Вобщем Stilet ваша программа оказалась глючная. Я сделал калькулятор, добавил кнопку с вашим кодом но она не переводит из 10-й в 16-ую. Люди помогите, надо зделать так чтоб например ввел число, а потом нажимаешь кнопку и она переводит в 16-у сист.счисления. Вот код моего калькулятора.

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Digit1: TButton;
    Digit2: TButton;
    Digit3: TButton;
    Digit4: TButton;
    Digit5: TButton;
    Digit6: TButton;
    Digit7: TButton;
    Digit8: TButton;
    Digit9: TButton;
    Digit0: TButton;
    Zap: TButton;
    Button12: TButton;
    Button13: TButton;
    Button14: TButton;
    Button15: TButton;
    Button16: TButton;
    Button17: TButton;
    Button1: TButton;
    Edit2: TEdit;
    procedure DigitClick(Sender: TObject);
    procedure ZapClick(Sender: TObject);
    procedure ZeroClick(Sender: TObject);
    procedure ActionClick(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  r:integer;
  m:real;
  n:string;
  a:real;
  swt:integer;

implementation

{$R *.dfm}

procedure TForm1.DigitClick(Sender: TObject);
var
  kn:TButton;
begin
  Kn:=Sender as TButton;
  If Kn.Caption<>'0' then
    if r=0 then
      begin
        Edit1.Text:=Kn.Caption;
        r:=1;
      end
   else Edit1.Text:=Edit1.Text+Kn.Caption;
   If Kn.Caption='0' then
    if Edit1.Text<>'0'then  
        if r=0 then
      begin
        Edit1.Text:=Kn.Caption;
        r:=1;
      end
   else Edit1.Text:=Edit1.Text+Kn.Caption;
end;

procedure Deistv;
begin
  a:=StrToFloat(Form1.Edit1.Text);
  If n='=' then
    begin
     If swt=1 then m:=Exp(a*Ln(Abs(m)))
       else
        m:=a;
       end;
  If n='+' then m:=m+a;
  If n='*' then m:=m*a;
  If n='-' then m:=m-a;
  If n='/' then
     begin
       if a<>0 then m:=m/a
       else begin
              Form1.Edit1.Text:='Делить на 0 нельзя!!!';
              r:=0;
              Exit;
            end;
     end;
  Form1.Edit1.Text:=FloatToStr(m);
end;

procedure TForm1.ZapClick(Sender: TObject);
begin
  If Edit1.Text='0' then
    begin
      Edit1.Text:='0,';
      r:=1;
    end
   else if pos(',',Edit1.Text)=0 then Edit1.Text:=Edit1.Text+',';
end;

procedure TForm1.ZeroClick(Sender: TObject);
begin
  Edit1.Text:='0';
  r:=0;
  m:=0;
  swt:=0;
end;

procedure TForm1.ActionClick(Sender: TObject);
var Kn:TButton;
begin
  Kn:=Sender as TButton;
  If r=0 then n:=Kn.Caption
  else
  Deistv;
  n:=Kn.Caption;
  r:=0;
end;



procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  Case key of
  '1':Digit1.Click;
  '2':Digit2.Click;
  '3':Digit3.Click;
  '4':Digit4.Click;
  '5':Digit5.Click;
  '6':Digit6.Click;
  '7':Digit7.Click;
  '8':Digit8.Click;
  '9':Digit9.Click;
  '0':Digit0.Click;
  ',':Zap.Click;
  '.':Zap.Click;
  '/':Button15.Click;
  '+':Button12.Click;
  '*':Button14.Click;
  '-':Button13.Click;
  #13:Button16.Click;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Button16.Click;
  swt:=0;
end;

procedure TForm1.Button1Click(Sender: TObject);
const z:array[0..15] of char = '0123456789ABCDEF';
var x,a: integer; 
s:string;

begin
a:=StrToIntDef(Edit1.Text,0);
x:=StrToIntDef(Edit1.Text,0);
s:='';
if a=0 then s:='0' else
if x<=16 then begin
while a>0 do begin
s:=z[(a mod x)]+s;
a := a div x;
end;
end;
Caption:=s;

end;

end.

[unbanned]

или я туплю... или действительно всё просто...
закинуть на форму tedit, кнопку, лэйбл...

на кнопку обработчик примерно такого содержания:

begin
label1.caption:=strtoint('$'+edit1. text);
end;

ну вывод и ввод данных можно изменить, но суть то не меняется... strtoint переводит строку в десятичное число, ну а шестнадцатиричные числа начинаются с $ или 0х

а если из 16 в 10 то можно использовать hextoint
hextoint(strtoint(edit1.text));

[Stilet]

ваша программа оказалась глючная.

А она не моя. Она твоя. Я просто ее вставил в обработчик клика кнопки.

или действительно всё просто...

Злой преподаватель не оценит

[unbanned]

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

Злой преподаватель не оценит

хм)) возможно

[iron_cross]

Вот еще код для перевода из 10 в 16. Я хотел сделать консольную прогу на Делпхи под ДОС и скопировал этот код:

USES CRT;

function IntToHex(N : integer):string;
const
Hex : array[0..15] of char = '0123456789ABCDEF';
var i, j, k : integer;
Result, s : string;
begin
Result := '';
k := n;
repeat
j := k div 16;
i := k mod 16;
Result := Result + Hex[i];
k := j;
until j = 0;
S := Result;
for i := 1 to Length(Result) do
S[Length(S)-i+1] := Result[i];
IntToHex := S;
end;

var n : integer;

BEGIN
clrscr;
Write('Введите целое десятичное число: ') ;
Readln(n);
Write('Число в шестнадцатеричной системе счисления: ', IntToHex(n), 'h');
readln;
END.

В чем моя ошибка, и что нужно сделать.