[tristan]

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

[tristan]

Поблема стала тепер такая, калькулятор зделал еле как. Теперь нужно добавить кнопку или же сразу две, чтоб одна переводила в 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.

Помогите люди добрые.

[tristan]

Написал программу перевода из 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.

[NumLock]

Код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    EditHex: TEdit;
    EditDec: TEdit;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  EditHex.Text:=IntToHex(1234567890123456789, 16);
  EditDec.Text:=IntToStr(StrToInt64('$'+EditHex.Text));
end;

end.

[tristan]

Извините меня NumLock, ваша програма почемута ругается. Особенно на два слова EditHex, EditDec. Я бы хотел уточнить это програ под DOS или нет то откуда мне взять EditHex, EditDec или их надо переименовать в Edit1 и Edit 2. На каких они вкладках находятся? Что то я отупел в конец

[NumLock]

это едиты на форме:

Код:

type
  TForm1 = class(TForm)
    EditHex: TEdit;
    EditDec: TEdit;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

они нужны только для этого примера, чтобы было куда результат увидеть.

[tristan]

Я все понимаю, но смотрите, как я делал по вашему примеру. Я на формул кинул из вкладки стандартные Edit1 и Edit2. И они прописываются так:

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
private
{ Private declarations }

А у вас на примере написано так:

type
TForm1 = class(TForm)
EditHex: TEdit;
EditDec: TEdit;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }

а если я добавлю так:

TForm1 = class(TForm)
EditHex: TEdit;
EditDec: TEdit;
Edit1: TEdit;
Edit2: TEdit;

то после компиляции и запуска проги, он выдает разные сообщения, и начинает стирать EditHex: TEdit, EditDec: TEdit. Скажите пожалуста с какой вкладки вы взяли EditHex и EditDec. Я конечно понимаю детский вопрос их там конечно нету. Но как сделать чтоб всё таки прога заработала.

[v1s2222]

В чем собственно вопрос? Edit1 и EditHex - это один и тот же компонент, с разными именами...

Код:

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

...
  Edit1.Text:=IntToHex(1234567890123456789, 16);
  Edit2.Text:=IntToStr(StrToInt64('$'+EditHex.Text));

[tristan]

Теперь он ругается на другое, посотрите на код где подчеркнуто на то и ругается:

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

...
Edit1.Text:=IntToHex(1234567890123456789, 16);
Edit2.Text:=IntToStr(StrToInt64('$'+EditHex.Text));

Заранее всем спасибо за помощь.

[v1s2222]

Ну что сложно догадаться? Вы ж сами поменяли имя компоненту едиту...

Код:

...
Edit2.Text:=IntToStr(StrToInt64('$'+Edit1.Text));

[tristan]

Теперь я понил. Но смотрите, в ем вопрос. Мы уже вписываем в нитри самой программе какое число перевести в 16 сист.счисления. А точнее говоря уже у нас в Edit2 уже вписано число и при запуске программы мы видим, что уже перевод готов. А нельзя ли сделать так что при запуке программы было так: Программа запустилась, но ничего там нет(пустые Edit), и мы вводим число в Edit1 и сразу появляется перевод в 16-ную в Edit2. А то постоянно менять в корне программу числа это как то затруднительно. Заранее спасибо.

[NumLock]

Код:

program Project1;

{$APPTYPE CONSOLE}

uses SysUtils;

var
  s: String;

begin
  while True do
  begin
    Write('Enter number (prefix $ for hex): ');
    Readln(s);
    if s='' then Exit;
    if s[1]='$' then
    begin
      Writeln('hex number='+s);
      Writeln('dec number='+IntToStr(StrToInt64Def(s, 0)));
    end else
    begin
      Writeln('dec number='+s);
      Writeln('hex number=$'+IntToHex(StrToInt64Def(s, 0), 16));
    end;
  end;
end.

[tristan]

Большое человеческое спасибо вам NumLock и v1s2222, за помощь .

[artem_lavrenuk]

сделаєш одну копку и одно поле Edit1 и все
begin
nn:=strtoint(edit1.Text);
Edit1.Text:=inttohex(nn, 8);

end;

[artem_lavrenuk]

Y+4/Y-4=X решите очень нужно