matrus
|
|
1 | |
Произведение чисел в шестнадцатеричной системе25.01.2012, 17:00. Показов 1457. Ответов 0
Метки нет (Все метки)
Помогите пожалуйста! Вообщем, программа должна переводить 2 числа из десятичной системы в шестнадцатеричную, а затем находит произведение, вообщем есть только кусок программы, которая переводит числа из десятичной системы в шестнадцатеричную.
program algoritm; uses crt; var i,ost,des,n,l:integer; s,s1,sbox:string; begin {Алгоритм перевода} Writeln('Введите десятичное число:'); read(des); n:=0; i:=0; s:=''; repeat inc(n); inc(i); ost:=des mod 16;//остаток des:=des div 16;//целая часть if ost>=10 then begin if ost=10 then s:=s+'A'; if ost=11 then s:=s+'B'; if ost=12 then s:=s+'C'; if ost=13 then s:=s+'D'; if ost=14 then s:=s+'E'; if ost=15 then s:=s+'F'; end else begin s:=s+IntToStr(ost); end; until des=0; {Переворачиваем содержимое} n:=1; l:=length(s); for i:=1 to (l div 2) do begin sbox:=s[n]; s[n]:=s[l+1-n]; s[l+1-n]:=sbox[1]; inc(n); end; begin {Алгоритм перевода 2} Writeln('Введите десятичное число:'); read(des); n:=0; i:=0; s1:=''; repeat inc(n); inc(i); ost:=des mod 16;//остаток des:=des div 16;//целая часть if ost>=10 then begin if ost=10 then s1:=s1+'A'; if ost=11 then s1:=s1+'B'; if ost=12 then s1:=s1+'C'; if ost=13 then s1:=s1+'D'; if ost=14 then s1:=s1+'E'; if ost=15 then s1:=s1+'F'; end else begin s:=s+IntToStr(ost); end; until des=0; {Переворачиваем содержимое} n:=1; l:=length(s1); for i:=1 to (l div 2) do begin sbox:=s1[n]; s1[n]:=s1[l+1-n]; s1[l+1-n]:=sbox[1]; inc(n); end; end; writeln(s,' ',s1); end. |
25.01.2012, 17:00 | |
Ответы с готовыми решениями:
0
Вводятся два числа в десятичной системе Найти их произведение и вывести результат на экран в шестнадцатеричной Таблица сложения и умножения натуральных чисел в шестнадцатеричной системе Составьте список слов из записи чисел в шестнадцатеричной системе счислении Нужно найти суму двух чисел в шестнадцатеричной системе счисления |
25.01.2012, 17:00 | |
25.01.2012, 17:00 | |
Помогаю со студенческими работами здесь
1
Составить программу,которая печатает таблицу умножения и сложения натуральных чисел в шестнадцатеричной системе счисления Составить программу,которая печатает таблицу умножения и сложения натуральных чисел в шестнадцатеричной системе счислени Решить уравнение в двоичной системе счисления и в шестнадцатеричной системе 11 в шестнадцатеричной системе Искать еще темы с ответами Или воспользуйтесь поиском по форуму: |