蓝桥杯 基础练习 BASIC-11 十六进制转十进制 进制转换 字符处理 判断

基础练习 十六进制转十进制
时间限制:1.0s 内存限制:512.0MB
提交此题 锦囊1 锦囊2
问题描述
  从键盘输入一个不超过8位的正的十六进制数字符串,将它转换为正的十进制数后输出。
  注:十六进制数中的10~15分别用大写的英文字母A、B、C、D、E、F表示。
样例输入
FFFF
样例输出
65535

分析:任何进制转十进制都很简单啦( ̄▽ ̄)/
思路:
12 3 16 = 1 × 1 6 2 + 2 × 1 6 1 + 3     = 16 ( 1 × 1 6 1 + 2 ) + 3   = 16 ( 16 ( 1 ) + 2 ) + 3     123_{16} = 1\times 16^2 + 2\times 16^1+3  \\ =16(1\times16^1+2)+3\ \\ =16(16(1)+2)+3\   12316=1×162+2×161+3  =16(1×161+2)+3 =16(16(1)+2)+3  
这个思路适用于任意进制转十进制,代码如下:

#include <iostream>
using namespace std;

unsigned int fun(char *str)
{
	unsigned int num = 0;
	char ch;
	while(*str)
	{
		ch = *str;
		if(ch>='0' && ch<='9')
			num = num*16+ch-'0';
		else
			num = num*16+10+ch-'A';
		str++;
	}
	return num;
}

int main()
{
	char str[8];
	cin >> str;
	cout << fun(str);
	return 0;
}
  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
### 回答1: 可以使用 VBA 的 "DecimalToBinary" 函数将十进制数字换为二进制。示例代码如下: ``` Sub DecimalToBinary() Dim decimals() As Long decimals = Array(10, 15, 20, 25) Dim binary As String For i = LBound(decimals) To UBound(decimals) binary = DecimalToBinary(decimals(i)) MsgBox "十进制数字: " & decimals(i) & " 换为二进制: " & binary Next i End Sub ``` 在上面的代码中,使用了一个名为 "DecimalToBinary" 的函数,用来将十进制数字换为二进制,然后在循环中遍历数组中的每个元素,并将其换为二进制,最后使用 MsgBox 函数显示结果。 ### 回答2: VBA 是 Visual Basic for Applications 的缩写,它是一种用于在应用程序中编写宏的编程语言。要将数组中的十进制数字换为二进制,可以使用 VBA 中的位操作符和循环来实现。 首先,需要定义一个包含十进制数字的数组,可以使用 VBA 中的 Array 函数来创建一个数组。例如: Dim decimalArray() As Integer decimalArray = Array(10, 15, 23, 6) 接下来,需要编写一个循环来遍历数组中的每个元素,并将其换为二进制。可以使用 VBA 中的 For Each 循环来实现。例如: Dim binArray() As String Dim decNum As Integer For Each decNum In decimalArray Dim binNum As String binNum = "" Do While decNum > 0 binNum = (decNum Mod 2) & binNum decNum = decNum \ 2 Loop binArray = VBA.Array(binNum) Next 在这个例子中,使用一个名为 binNum 的字符串变量来存储二进制数字。通过不断地取十进制数的模除以 2,并将结果与 binNum 字符串连接起来,最后得到的就是十进制数的二进制表示。 最后,我们使用 VBA 中的 Array 函数来创建一个包含所有二进制数字的数组 binArray,并输出结果: For Each binNum In binArray Debug.Print binNum Next 这样,就可以将数组内的十进制数字换为二进制,并打印输出结果。 ### 回答3: 在VBA中,可以使用一些简单的步骤将数组内的十进制数字换为二进制。 首先,我们需要定义一个数组并将十进制数字赋值给它。例如,我们可以定义一个名为decimals的数组,并将十进制数字放入其中。 然后,我们可以使用For循环来遍历数组中的每个数字,并使用VBA的内置函数来将其换为二进制。在每次循环中,我们将当前的十进制数字赋值给一个变量,并使用VBA的函数Bin()将其换为二进制。将换后的二进制数字存储在一个新的数组binary中。 最后,我们可以通过输出数组binary的每个元素来显示换后的二进制数字。 下面是一个示例代码: ```vba Sub DecimalToBinary() Dim decimals(1 To 3) As Integer '定义一个包含3个十进制数字的数组 Dim binary() As String '存储换后的二进制数字 Dim i As Integer '计数器 decimals(1) = 10 '赋值给数组元素 decimals(2) = 15 decimals(3) = 7 ReDim binary(1 To UBound(decimals)) '调整binary数组的大小与decimals数组相同 For i = 1 To UBound(decimals) Dim dec As Integer dec = decimals(i) binary(i) = Application.WorksheetFunction.Dec2Bin(dec) '将十进制数字换为二进制并存储在binary数组中 Next i For i = 1 To UBound(binary) Debug.Print binary(i) '输出换后的二进制数字 Next i End Sub ``` 在此示例中,我们定义了一个包含3个十进制数字的数组,并将它们换为二进制数字。最后,我们通过使用Debug.Print语句将换后的二进制数字输出到调试窗口。您可以根据需求更改数组的大小或数字的值。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值