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

var

FileIn:Text; {Файл исходных данных }

FileOut:Text; {Файл результатов выполнения программы}

Int1,Int2:integer; {исх. данные из файла }

Hex1,BIN1:String; {Число в различных системах счисления}

Hex2,BIN2:String; {Число в различных системах счисления}

ResMin,ResPlus:string; {Результат выполнения ар. действий}

begin {тело}

Logo; {Показываем лого нашей работы }

GotoXY(23,25);

WriteLn(’Для продолжения нажмите любую клавишу...’);

repeat

until KeyPressed;

{Читаем из файла необходимые данные}

Assign(FileIn,InFileName);Reset(FileIn);

ReadLn(FileIn,Int1); {читаем первое число }

ReadLn(FileIn,Int2); {читаем второе число }

Close(FileIn);

{Создаем условия для работы программы}

HEX1:=DecToBase(int1,16); {Переводим первое число в HEX}

HEX2:=DecToBase(int2,16); {Переводим второе число в HEX}

BIN1:=DecToBase(BaseToInt(HEX1,16),2);{переводиз 16 вдвоичнуюс-му}

BIN2:=DecToBase(BaseToInt(HEX2,16),2);{переводиз 16 вдвоичнуюс-му}

ResPlus:=BINPlus(BIN1,BIN2); {Выполняемсложение2йс-ме}

{приводим р-т сложения к заданному виду, т.е. в 16ю с-му}

ResPlus:=DecToBase(BaseToInt(ResPlus,2),16);

ResMin:=BINMinus(BIN1,BIN2); {Выполняемвычитание2йс-ме}

{приводим р-т вычитания к заданному виду, т.е. в 16ю с-му}

ResMin:=DecToBase(BaseToInt(ResMin,2),16);