Калькулятор Систем Счисления Delphi
Калькулятор Систем Счисления Delphi
Нужно перевести число с десятичной системы счисления в 2 и до 16. Function FromDec(n,r: longint): string; var. Delphi site: daily Delphi. Proel kdc 1803 коды. 20 'Обычный калькулятор' Delphi. Спавн меню для сталкер народная солянка оп 2.1. Из десятичной системы счисления в двоичную.
Цитата: USES CRT; function IntToHex(N: integer):string; const Hex: array0.15 of char = 'ABCDEF'; var i, j, k: integer; Result, s: string; begin Result:= '; k:= n; repeat j:= k div 16; i:= k mod 16; Result:= Result + Hexi; k:= j; until j = 0; S:= Result; for i:= 1 to Length(Result) do SLength(S)-i+1:= Resulti; IntToHex:= S; end; var n: integer; BEGIN clrscr; Write('Введите целое десятичное число: '); Readln(n); Write('Число в шестнадцатеричной системе счисления: ', IntToHex(n), 'h'); readln; END. Теперь я понил. Но смотрите, в ем вопрос. Мы уже вписываем в нитри самой программе какое число перевести в 16 сист.счисления. А точнее говоря уже у нас в Edit2 уже вписано число и при запуске программы мы видим, что уже перевод готов. А нельзя ли сделать так что при запуке программы было так: Программа запустилась, но ничего там нет(пустые Edit), и мы вводим число в Edit1 и сразу появляется перевод в 16-ную в Edit2. А то постоянно менять в корне программу числа это как то затруднительно.
Калькулятор Систем Счисления С Решением
Заранее спасибо.