Курсовая работа: Системы счисления, переводы чисел

Button1: TButton;

RadioGroup2: TRadioGroup;

Label2: TLabel;

Label3: TLabel;

StatusBar1: TStatusBar;

procedure Edit1Change(Sender: TObject);

procedure RadioGroup1Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure RadioGroup2Click(Sender: TObject);

private

{ Private declarations }

public

{ Publicdeclarations }

end;

В разделе описания идентификаторов внесены следующие пункты:

Form1: TForm1; {форма окна}

vv1 : string; {переменная типа (целое число)stringдля ввода информации в строку «переводимое число»}

m,m1,ch1, i : integer;{переменные строкового типа(string) m, m1 используется для радиогрупп «Исходная система» и «Конечная система», ch1 вспомогательная переменная для перевода чисел, Iпеременная для циклов,}

implementation

{$R *.DFM}

В программе использованы следующие функции и процедуры.

1)Функция переводит данные из типа charв тип integer. Входные данные это переменная «a» типа char, выходные данные типа integer. Принцип работы программы заключается в том, что переменная «а» переводиться в ASCIIкод, и отнимается определённое число(55,48,87), вследствие чего получается число в десятичном виде. 55 - отнимается если символ «а» в диапазоне [‘A’..‘F’], 87 – если диапазон [‘a’..‘f’] и 48 – если диапазон [‘0’..‘9’].

function perevod0(a:char):integer;

var

c: integer;

begin

case a of

'A'..'F': c := ord(a) - 55;

'a'..'f': c := ord(a) - 87;