17、十进制转换成N进制 题目描述 将一个由键盘输入的十进制数转换为N进制数并输出。（1<N<10）。 可以考虑使用列表 输入 正整数 输出 该数转换成的N进制数 样例输入 18 7 95 9 样例输出 24 115用python实现

好的，我可以帮你写这个程序。以下是代码实现：

def decimal_to_n(decimal, n):
    # 定义数字0~9和字母A~Z对应的字符列表
    characters = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
    # 初始化结果字符串
    result = ""
    # 当十进制数不为0时，进行进制转换
    while decimal != 0:
        # 取余数
        remainder = decimal % n
        # 将余数对应的字符加入结果字符串的最左侧
        result = characters[remainder] + result
        # 更新十进制数
        decimal = decimal // n
    return result

# 输入十进制数和目标进制数
decimal = int(input())
n = int(input())
# 调用函数进行转换并输出结果
result = decimal_to_n(decimal, n)
print(result)

你可以将此代码保存为一个.py文件，在命令行或者IDE中运行。例如，输入18和7，程序将输出24。

相关问题

用汇编语言编写程序：从键盘输入10个无符号十进制数(小于256)，将其转换为二进制数并存放在NUM字节型变量中，找出其中的最大数，并将找出的最大数在屏幕上显示出来。 要求： ① 在屏幕上显示字符串提示信息的功能由宏指令DSTRING实现； ② 将键盘输入的十进制数转换成二进制数由子程序DTOB实现； ③ 在N个无符号字节型二进制数中找出最大数的功能由子程序FMAX实现； ④ 将一个无符号字节型二进制数转换为十进制数并在屏幕上显示的功能由子程序BTOAD实现。

这是一道比较典型的汇编语言编程题目，下面是代码实现：

.MODEL SMALL
.STACK 100H
.DATA
    NUM DB 10 DUP(0) ; 存放二进制数
    MAX DB 0        ; 存放最大值
    STR1 DB "请输入10个小于256的十进制数，以空格分隔：$"
    STR2 DB "转换为二进制数后为：$"
    STR3 DB "最大值为：$"
.CODE
    MAIN PROC
        MOV AX, @DATA
        MOV DS, AX

        DSTRING STR1 ; 显示输入提示信息

        ; 读取键盘输入的10个十进制数，并进行转换
        MOV CX, 10
        MOV SI, 0
    READ_INPUT:
        MOV AH, 01H  ; 读取键盘输入
        INT 21H
        CMP AL, ' '  ; 判断是否输入结束
        JE INPUT_FINISH
        SUB AL, '0'  ; 将字符转换为数字
        MOV BL, AL
        CALL DTOB    ; 转换为二进制数
        MOV NUM[SI], BL
        INC SI
        JMP READ_INPUT
    INPUT_FINISH:

        DSTRING STR2 ; 显示转换后的二进制数

        ; 找出最大值
        CALL FMAX
        MOV MAX, AL

        DSTRING STR3 ; 显示最大值
        CALL BTOAD

        MOV AH, 4CH
        INT 21H
    MAIN ENDP

; 子程序: 将一个十进制数转换成二进制数
; 输入: BL - 十进制数
; 输出: BL - 二进制数
DTOB PROC
        MOV CL, 8
        XOR BH, BH  ; 清空高位
    CONVERT:
        SHR BL, 1   ; 右移一位，相当于除以2
        RCL BH, 1   ; 将余数加到高位
        LOOP CONVERT
        MOV BL, BH
        RET
DTOB ENDP

; 子程序: 在N个二进制数中找出最大值
; 输入: NUM - 存放二进制数的数组
;       CX - 数组长度
; 输出: AL - 最大值
FMAX PROC
        MOV AL, NUM[0]
        MOV BX, CX
        DEC BX      ; 设置循环次数
    FIND_MAX:
        CMP AL, NUM[BX]
        JGE NOT_MAX
        MOV AL, NUM[BX]
    NOT_MAX:
        DEC BX
        LOOP FIND_MAX
        RET
FMAX ENDP

; 子程序: 将一个二进制数转换为十进制数并在屏幕上显示
; 输入: BL - 二进制数
; 输出: 无
BTOAD PROC
        MOV CL, 8
        MOV AH, 2   ; 显示字符
    CONVERT:
        SHL BL, 1   ; 左移一位，相当于乘以2
        JC ADD_ONE  ; 判断是否需要加1
        MOV DL, '0'
        JMP DISPLAY
    ADD_ONE:
        MOV DL, '1'
    DISPLAY:
        INT 21H     ; 显示当前位的字符
        LOOP CONVERT
        RET
BTOAD ENDP

END MAIN

perl将一个小于256的十进制正整数转换成八位二 进制，具体要求: 1)十进制数从键盘输入，在输入前输出提示信息 “Input a data:”; 2)若转换后的二进制不够八位，则在前面补“0” 3)输出格式为:十进制数 => 二进制数

在Perl中，你可以使用内置函数`oct`或`pack`来将十进制数转换为八位二进制，然后按照题目要求处理。这里是一个简单的示例程序来实现这个功能：

#!/usr/bin/perl
use strict;
use warnings;

print "Input a data: ";
my $decimal_num = <STDIN>;
chomp $decimal_num;  # 移除末尾换行符

# 将十进制转换为8位二进制，并在前面补0，不足8位
my $binary_num = sprintf "%08b", oct $decimal_num;

# 输出结果
printf "%d => %s\n", $decimal_num, $binary_num;

在这个程序中：
- `print` 用于显示提示信息让用户输入。
- `<STDIN>` 用于从标准输入读取用户输入的十进制数值。
- `chomp` 删除输入的末尾空白或换行符。
- `oct` 函数将十进制转换为八进制，因为Perl的`oct`默认为3位，所以这里再通过`sprintf`的格式化字符串"%08b"将其扩展到8位，不足部分用0填充。
- `printf` 显示最终的结果。