一道公式区的竞赛题。

cnmlgb9998

没有太好的思路。不知道，不用 递归 怎么去解决。


题意：把数字转换成 excel 的列号。比如： 3 ---C，27---AA

渡渡orz

cnmlgb9998

渡渡orz 发表于 2024-10-1 14:52

老师，牛逼 。我先学一下。

飞天篮球猪

26进制，但能被26整除的时候，余数0对应不到字母，所以有两种方法：
1、数减去1之后再和26除，商进入下一个循环，此时余数加1后转换为字母。或者，
2、数直接同26除，但要判断余数，当余数为0时，商要减去1后进入下一个循环，余数为0时算成26对应的字母，否则直接按余数转换字母。
不用递归，用迭代也可以，迭代次数就是以26为底的对数加1的次数。

cnmlgb9998

PQ 里，高手云集啊！都很厉害！

cnmlgb9998

飞天篮球猪 发表于 2024-10-1 16:30
26进制，但能被26整除的时候，余数0对应不到字母，所以有两种方法：
1、数减去1之后再和26除，商进入下一 ...

大神，厉害。对数都用上了。我把初中数学都快忘光了。就会因式分解了

zpy2

=WEBSERVICE("https://e.anyoupin.cn/eh3/?ConvertR1C1ToA1~1" & A2)

<?php

function funConvertR1C1ToA1($number) {
    $result = '';

    while ($number > 0) {
        // Calculate the position for the current letter
        $number--; // Adjust for 0-indexing
        $result = chr($number % 26 + ord('A')) . $result;
        $number = intval($number / 26);
    }

    return $result;
}

// Example usage:
echo funConvertR1C1ToA1(1) . "\n";  // Outputs: A
echo funConvertR1C1ToA1(26) . "\n"; // Outputs: Z
echo funConvertR1C1ToA1(27) . "\n"; // Outputs: AA
echo funConvertR1C1ToA1(52) . "\n"; // Outputs: AZ
echo funConvertR1C1ToA1(53) . "\n"; // Outputs: BA
echo funConvertR1C1ToA1(702) . "\n"; // Outputs: ZZ
echo funConvertR1C1ToA1(703) . "\n"; // Outputs: AAA

?>

cnmlgb9998

zpy2 发表于 2024-10-1 22:29
=WEBSERVICE("https://e.anyoupin.cn/eh3/?ConvertR1C1ToA1~1" & A2)

这个是 fortrun  还是pascal ?

tcdatongye

cnmlgb9998 发表于 2024-10-2 12:21
这个是 fortrun  还是pascal ?

1. let
   
2.     源 = Excel.CurrentWorkbook(){[Name="表1"]}[Content],
   
3.     s=Table.ReplaceValue(源,each [数字], "",(a,b,c)=>
   
4.         [ m=List.Generate(()=>b,(x)=>x>0,(y)=>Number.IntegerDivide(y-1,26),(z)=>Character.FromNumber(Number.Mod(z-1,26)+65)),
   
5.           n=Text.Combine(List.Reverse(m))][n],{"答题区↓"})
   
6. in
   
7.     s

复制代码

zpy2

cnmlgb9998 发表于 2024-10-2 12:21
这个是 fortrun  还是pascal ?

PHP。。。。