吾爱破解 - LCG - LSG |安卓破解|病毒分析|www.52pojie.cn

 找回密码
 注册[Register]

QQ登录

只需一步,快速开始

查看: 2086|回复: 15
收起左侧

[其他转载] C#初学者使用数组和算法简单输出杨辉三角

[复制链接]
apples1949 发表于 2022-7-31 16:15
本帖最后由 apples1949 于 2022-7-31 16:17 编辑

用Excel制作的简单数组参考表格

参考用Excel制作的简单数组参考表格

参考用Excel制作的简单数组参考表格

源码
[Asm] 纯文本查看 复制代码
using System;

namespace _20220727
{
    internal class Program
    {
        static void Main(string[] args)
        {
            Console.Write("请输入杨辉三角的行数(必须大于2):");
            int yhsjHS = Convert.ToInt32(Console.ReadLine());//键盘输入数组行数,即y
            int yhsjLS = (yhsjHS + 1) * 2;//计算数组长度,即x
            int[,] yhsj = new int[yhsjHS + 1, yhsjLS];//杨辉三角以数组角度看,第0行只有一个1,得从第一行开始算
            for (int x = 1, y = yhsjHS; y >= 0; x++, y--)//杨辉三角左斜边都是1
            {
                yhsj[y, x] = 1;
            }
            for (int x = yhsjLS - 1, y = yhsjHS; y > 0; x--, y--)//杨辉三角右斜边都是1
            {
                yhsj[y, x] = 1;
            }
            for (int x = 3, y = yhsjHS; y > 1; x++, y--)//杨辉三角内部左侧自然数
            {
                yhsj[y, x] = y;
            }
            for (int x = yhsjLS - 3, y = yhsjHS; y > 1; x--, y--)//杨辉三角内部右侧自然数
            {
                yhsj[y, x] = y;
            }
            for (int y = 4; y <= yhsjHS; y++)//内部计算
            {
                for (int x = (yhsjHS - y + 4); x <= (yhsjHS + y); x++)
                {
                    yhsj[y, x] = yhsj[y - 1, x - 1] + yhsj[y - 1, x + 1];
                }
            }
            for (int y = 0; y <= yhsjHS; y++)//打印数组
            {
                for (int x = 0; x < yhsjLS; x++)
                {
                    if (x == yhsjLS - 1)//换行判断
                    {
                        if (yhsj[y, x] == 0)//如果数组值为空(数组值不赋值默认为0),则输出为空,否则输出数组值。下同
                        {
                            Console.WriteLine(" ");
                        }
                        else
                        {
                            Console.WriteLine(yhsj[y, x]);
                        }
                    }
                    else
                    {
                        if (yhsj[y,x]==0)
                        {
                            Console.Write(" ");
                        }
                        else
                        {
                            Console.Write(yhsj[y, x]);
                        }
                    }
                }
            }
        }
    }
}

输出结果

懒得折腾格式了

懒得折腾格式了

懒得折腾格式了

懒得折腾格式了

学习资料的代码
360截图20220731161701403.jpg

免费评分

参与人数 3吾爱币 +3 热心值 +3 收起 理由
dpc520 + 1 + 1 我很赞同!
AG9000 + 1 + 1 我很赞同!
chinawolf2000 + 1 + 1 热心回复!

查看全部评分

发帖前要善用论坛搜索功能,那里可能会有你要找的答案或者已经有人发布过相同内容了,请勿重复发帖。

changhong8 发表于 2022-12-4 18:07
[Visual Basic] 纯文本查看 复制代码
Sub YangHuiSanJiao()
Dim height As Integer, width As Integer, Arr()
height = Val(InputBox("请输入三角有多高(层级):"))
If height = 0 Then Exit Sub
'计算数组维度
width = height * 2 - 1
ReDim Arr(1 To height, 1 To width)
'逐层处理
Dim centerCol, startCol, endCol
centerCol = height
Arr(1, centerCol) = 1
For i = 2 To UBound(Arr)
    startCol = centerCol - (i - 1)
    endCol = centerCol + (i - 1)
    For j = startCol To endCol Step 2
        If j > 1 Then Arr(i, j) = Val(Arr(i - 1, j - 1))
        If j < width Then Arr(i, j) = Arr(i, j) + Val(Arr(i - 1, j + 1))
    Next
Next
Cells.ClearContents
[b2].Resize(height, width) = Arr
End Sub
zhangbo093 发表于 2022-7-31 17:32
iawyxkdn8 发表于 2022-7-31 16:27
 楼主| apples1949 发表于 2022-7-31 16:30
iawyxkdn8 发表于 2022-7-31 16:27
哈哈,这东西不是有更简单的方法吗?

我这说好听是根据规律研究算法,说难听就是打枪画靶。正在看资料中的代码。以后再回头看看吧
laomogu 发表于 2022-7-31 16:35
膜拜一下,在学习C#  一直以为C#就是C语言。。
 楼主| apples1949 发表于 2022-7-31 16:40
laomogu 发表于 2022-7-31 16:35
膜拜一下,在学习C#  一直以为C#就是C语言。。

我也就找了下网络资料自己琢磨的。
而且C/C++/C#一般都有说明这几者的来历。有点不应该。
chinavy 发表于 2022-7-31 17:02
厉害,我什么时候能达到你这水平,达到你这水平,要看那些书?
xinzhyu 发表于 2022-7-31 17:09
初学者别研究这个了 太费神

免费评分

参与人数 1吾爱币 +2 热心值 +1 收起 理由
apples1949 + 2 + 1 热心回复!

查看全部评分

Afang0417 发表于 2022-7-31 20:32
研究了一下,如醍醐灌顶,一下就通了
 楼主| apples1949 发表于 2022-7-31 21:11
Afang0417 发表于 2022-7-31 20:32
研究了一下,如醍醐灌顶,一下就通了

主要是靠算法,参考我截图的表格加上注释还是很容易搞懂的
您需要登录后才可以回帖 登录 | 注册[Register]

本版积分规则 警告:本版块禁止灌水或回复与主题无关内容,违者重罚!

快速回复 收藏帖子 返回列表 搜索

RSS订阅|小黑屋|处罚记录|联系我们|吾爱破解 - LCG - LSG ( 京ICP备16042023号 | 京公网安备 11010502030087号 )

GMT+8, 2024-4-16 17:56

Powered by Discuz!

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表