код программы
var chislo : integer;
osnovanie : byte;
function Dec2OtherSS(chisl : integer; osn: byte) : string;
const hash_table : string = '0123456789abcdefghijklmnopqrstuvwxyz';
var otvet : string;
begin
otvet := '';
if osn>36 then
WriteLn('[ERROR] Dannaya funkcia mojet rabotat tolko s osnovaniyami menee 37!')
else
begin
while chisl >= osn do
begin
otvet := hash_table[(chisl mod osn)+1] + otvet;
chisl := chisl div osn;
end;
if chisl=osn then
otvet := hash_table[chisl] + otvet
else
otvet := hash_table[chisl + 1] + otvet;
end;
Dec2OtherSS := otvet;
end;
begin
chislo:=22;
//osnovanie:=2;
for osnovanie:=2 to 22 do begin
WriteLn;
WriteLn('Chislo ',chislo,' v ', osnovanie,' sisteme schisleniya = ', Dec2OtherSS(chislo, osnovanie),'.');
WriteLn;
end;
Write('Press any key for continue...'); ReadLn;
end.
Chislo 22 v 2 sisteme schisleniya = 10110.
Chislo 22 v 3 sisteme schisleniya = 211.
Chislo 22 v 4 sisteme schisleniya = 112.
Chislo 22 v 5 sisteme schisleniya = 42.
Chislo 22 v 6 sisteme schisleniya = 34.
Chislo 22 v 7 sisteme schisleniya = 31.
Chislo 22 v 8 sisteme schisleniya = 26.
Chislo 22 v 9 sisteme schisleniya = 24.
Chislo 22 v 10 sisteme schisleniya = 22.
Chislo 22 v 11 sisteme schisleniya = 20.
Chislo 22 v 12 sisteme schisleniya = 1a.
Chislo 22 v 13 sisteme schisleniya = 19.
Chislo 22 v 14 sisteme schisleniya = 18.
Chislo 22 v 15 sisteme schisleniya = 17.
Chislo 22 v 16 sisteme schisleniya = 16.
Chislo 22 v 17 sisteme schisleniya = 15.
Chislo 22 v 18 sisteme schisleniya = 14.
Chislo 22 v 19 sisteme schisleniya = 13.
Chislo 22 v 20 sisteme schisleniya = 12.
Chislo 22 v 21 sisteme schisleniya = 11.
Chislo 22 v 22 sisteme schisleniya = 10.
Другие языки программирования и технологии
Укажите через запятую в порядке возрастания все основания систем счисления в которых запись числа 22 оканчивается на 4?
Похожие вопросы
- Укажите через запятую в порядке возрастания все основания систем счисления, в которых запись числа 23 оканчивается на 2
- кажите через запятую в порядке возрастания все основания систем счисления, в которых запись числа 75 оканчивается на 13
- на что классифицируются системы счисления по способу изображения чисел?
- Существует ли система счисления, в которой можно делить на ноль?
- аскаль. Написать программу которая переводит число из одной системы счисления в другую
- Переведите число 111 из десятичной системы счисления в двоичную систему счисления.
- Число 10 (в десятичной системе счисления) в двоичной системе счисления имеет вид???
- Напишите программу, которая выводит запись переданного ей числа в римской системе счисления. Используйте процедуру. С++
- Помогите перевести числа в разные системы счисления. HELP!!!
- перевод чисел в двоичную,восьмеричную системы счисления