Реферат Розробка Додатках "Калькулятор"

з основних процедур Додатки - процедура переведення чисел з однієї системи числення в іншу. Алгоритм цієї процедури наведено на рис. 4.2, 4.3. br/>В 

Малюнок 4.1 - Алгоритм решение задачі переведення чисел з однієї СЧ в іншу

4.2 Лістінг програми

uMain;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls

, Math; = class (TForm): TLabel;: TLabel;: TLabel;: TLabel;: TEdit;: TEdit;: TEdit;: TLabel;: TLabel;: TLabel;: TButton;: TEdit;: TEdit; btnTransformClick (Sender: TObject);

{Private declarations}

{Public declarations};: TfrmMain; StrUtils;

{$ R *. dfm}

// Визначаєякацифравідповідаєчислу.

Продовження лістингу програми: (aNum: Byte): String;: String = 'IntToDigit.'; aNum of

.. 9: Result: = IntToStr (aNum);

: Result: = 'A';

: Result: = 'B';

: Result: = 'C';

: Result: = 'D';

: Result: = 'E';

: Result: = 'F'; Exception.Create (SelfName + 'Чіслунезіставлена?? цифра!');;;

// Визначаєякечисловідповідаєцифрі.DigitToInt (aDigit: AnsiChar; aBase: Byte): Byte;: String = 'DigitToInt.'; aBase <2 thenException.Create (SelfName + 'Основасистемичисленнямаєбути> = 2!' )

; aDigit of

'0 '.. '9': Result: = StrToInt (aDigit);

'A', 'a': Result: = 10;

'B', 'b': Result: = 11;

'C', 'c': Result: = 12;

'D', 'd': Result: = 13;

'E', 'e': Result: = 14;

'F', 'f': Result: = 15; Exception.Create (SelfName + 'Невідомийсимволвпредставленнічисла!');; Result> aBase - 1 thenException.Create (SelfName + 'Уданійсистемічисленнянемаєтакоїцифри!' )

;;

// За запису числа всістемі числення з основою aBase, візначає самє це чісло.XcimalStrToNumber (aStrXcimal: String; aBase: Byte): Extended;: String = 'XcimalStrToNumber.';, j: Integer; : String;: String;: Integer;

Продовження лістингу програми :: Extended;: Extended; Length (aStrXcimal) = 0 thenException.Create (SelfName + 'Незаданочісло!')

;

// Шукаємо Десяткова Крапка. Вона у нас позначається знаком кома: ','.: = Pos (',', aStrXcimal);

// Візначаємо підрядок Із записом цілої Частини числа