Перевод числа из десятичной системы счисления в шестнадцатеричную систему счисления

программа на Turbo Pascal (Паскаль) + описание

Язык программирования:	Turbo Pascal
Название работы:	Перевод числа из десятичной системы счисления в шестнадцатеричную систему счисления
Объем программы:	2 файла (*.exe, *.pas)
Ключевые слова:	шестнадцатеричная десятичная непозиционные системы счисления представление числа целое число позиционные системы счисления перевод из одной системы счисления в другую
Описание программы:	Пользователь вводит целое десятичное число, а результатом работы программы является представление этого числа в шестнадцатеричной системе счисления
Блок-схема программы:	нет

.......................................................................................................................................................

Текст программы

USES CRT;

function IntToHex(N: integer):string;
{функция IntToHex() преобразует n в строку,
содержащую шестнадцатеричное представление n}
const
Hex: array[0..15] of char =
'0123456789ABCDEF';
var i, j, k: integer;
Result, s: string;
begin
Result:= '';{исходное значение}
k:= n;
repeat {цикл определения значения числа в 16-ой системе счисления}
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.

Результаты работы программы

Ввод исходных данных

	Введите целое десятичное число: 10

Вывод результата

Число в шестнадцатеричной системе счисления: Ah

Задание:

Ввести 2 действительных числа с и d. Найти число х, соответствующее целому от делении с и d. Определить символ, порядковый номер которого равняется аргументу х. В данном задании нужно вывести букву.

Выбор алгоритма:

Данное задание можно решить следующими способами: разделить 2 числа, а затем применить условие с командой сase. Но более лучший вариант решения этой задачи будет увеличение х на число 64 и написать Writeln(char(x)), тогда выведется буква соответствующая данному числу. Потом поставить условие, если х >91, то такой буквы нет, в английском алфавите всего 26 букв. Этот метод проще и уменьшается объъем программы. И время ее выполнения.

Дата добавления: 2015-07-10