[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;

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

[artem_lavrenuk]

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

[angvelem]

Решаем:
Y = 1
X = 1
...
Y = 2
X = 0
...
Y = 10
X = 6.4

и т.д.