输入整数n,显示出具有n行的杨辉三角形。VB编程,跪求。
源代码如下:
目前创新互联公司已为上千的企业提供了网站建设、域名、雅安服务器托管、绵阳服务器托管、企业网站设计、古雷港网站维护等服务,公司将坚持客户导向、应用为本的策略,正道将秉承"和谐、参与、激情"的文化,与客户和合作伙伴齐心协力一起成长,共同发展。
Private Sub Form_Click() N = InputBox("", "", 5) ReDim a(N + 1, N + 1), b(N + 1, N + 1) Cls k = 8 For I = 1 To N Print String((N - I) * k / 2 + 1, " "); For J = 1 To I a(I, 1) = 1 a(I, I) = 1 a(I + 1, J + 1) = a(I, J) + a(I, J + 1) b(I, J) = Trim(Str(a(I, J))) Print b(I, J); String(k - Len(b(I, J)), " "); Next J Print Next IEnd Sub
运行程序,在文本框输入8,再点窗体,效果图如下:
扩展资料:
杨辉三角在Java中的代码如下:
public class TriangleArray{ public static void main(String[] args) { final int NMAX = 10; // allocate triangular array int[][] odds = new int[NMAX + 1][]; for (int n = 0; n = NMAX; n++) odds[n] = new int[n + 1]; // fill triangular array for (int n = 0; n odds.length; n++) for (int k = 0; k odds[n].length; k++) { /* * compute binomial coefficient n*(n-1)*(n-2)*...*(n-k+1)/(1*2*3*...*k) */ int lotteryOdds = 1; for (int i = 1; i = k; i++) lotteryOdds = lotteryOdds * (n - i + 1) / i; odds[n][k] = lotteryOdds; } // print triangular array for (int[] row : odds) { for (int odd : row) System.out.printf("%4d", odd); System.out.println(); } }}
什么是杨辉三角
杨辉三角,又称贾宪三角形,帕斯卡三角形,是二项式系数在三角形中的一种几何排列。左图的表在我国南宋数学家杨辉1261年所著的《详解九章算法》一书里就出现了。
前提:端点的数为1.1、每个数等于它上方两数之和。2、每行数字左右对称,由1开始逐渐变大。3、第n行的数字有n项。4、第n行数字和为2n-1。5、(a+b)^n的展开式中的各项系数依次对应杨辉三角的第(n+1)行中的每一项
杨辉三角的规律?
杨辉三角,又称贾宪三角形,帕斯卡三角形,是二项式系数在三角形中的一种几何排列。以下为 n = 5 的杨辉三角。
1行 1
2行 1 1
3行 1 2 1
4行 1 3 3 1
5行 1 4 6 4 1
性质
1、每个数等于它上方两数之和。
2、每行 数字左右对称,由1开始逐渐变大。
3、第n行的数字有n项。
4、第n行数字和为2 n-1。
5、第n行的第m个数和第n-m+1个数相等,即C(n-1,m-1)=C(n-1,n-m)( 组合数性质
之一) [1]
6、每个数字等于上一行的左右两个数字之和。可用此性质写出整个杨辉三角。即第n+1行的第i个数等于第n行的第i-1个数和第i个数之和,这也是组合数的性质之一。即 。 [2]
7、第n行的m个数可表示为C(n-1,m-1)(n-1下标,m-1上标),即为从n-1个不同 元素中取m-1个元素的组合数。
组合数计算方法:C(n,m)=n!/[m!(n-m)!]
8、(a+b)^n的展开式中的各项 系数 依次对应杨辉三角的第(n+1)行中的每一项。 [3]
9、将第2n+1行第1个数,跟第2n+2行第3个数、第2n+3行第5个数……连成一线,这些数的和是第4n+1个 斐波那契数;将第2n行第2个数(n1),跟第2n-1行第4个数、第2n-2行第6个数……这些数之和是第4n-2个 斐波那契数。
10、将各行数字相排列,可得11的n-1(n为行数)次方:1=11^0; 11=11^1; 121=11^2……;细心的人可能会发现当n≥5时会不符合这一条性质,其实是这样的:把第n行的最右面的数字"1"放在个位,然后把左面的一个数字的个位对齐到十位... ...,以此类推,把空位用“0”补齐,然后把所有的数加起来,得到的数正好是11的n-1次方。以n=11为例,第十一行的数为:1,10,45,120,210,252,210,120,45,10,1;
C语言代码实现打印输出
网上很多都是利用二维数组实现,对于 n 很小的情况下,当然可以,但对于n比较大的时候,二维数组就比较消耗内存了,以下方法直接利用第7条性质,直接计算输出杨辉三角,代码如下所示。
#includestdio.h
void print_yanghui_triangle(int n)
{
span style="white-space:pre" /spanint i, j, k, s;
span style="white-space:pre" /spanfor(i = 1; i = n; i++)
span style="white-space:pre" /span{
span style="white-space:pre" /spanfor(j = 1; j = i; j++)
span style="white-space:pre" /span{
span style="white-space:pre" /spans = 1;
span style="white-space:pre" /spank = 1;
span style="white-space:pre" /span//计算第 i 行的第 j 个数
span style="white-space:pre" /spanfor(k = 1; k j; k ++)
span style="white-space:pre" /span{
span style="white-space:pre" /spans = s * (i - k)/k;
span style="white-space:pre" /span}
span style="white-space:pre" /spanprintf("%2d\t", s);
span style="white-space:pre" /span}
span style="white-space:pre" /spanprintf("\n");
span style="white-space:pre" /span}
}
int main()
{
span style="white-space:pre" /spanint n = 0;
span style="white-space:pre" /span
span style="white-space:pre" /spanprintf("Input line of YangHui Triangle: ");
span style="white-space:pre" /spanscanf("%d", n);
span style="white-space:pre" /spanprint_yanghui_triangle(n);
span style="white-space:pre" /span
span style="white-space:pre" /spanreturn 0;
}
输出结果如下:
Input line of YangHui Triangle: 9
1
1 1
1 2 1
1 3 3 1
1 4 6 4 1
1 5 10 10 5 1
1 6 15 20 15 6 1
1 7 21 35 35 21 7 1
1 8 28 56 70 56 28 8 1
总结:注意计算第 i 行第 j 列数字的方法,示范代码的计算方式,能够避免很快溢出(按照公式计算,大概 n = 13 就为负数了)。本示范代码,能够计算到 n = 30,改成 long long型,能够处理更多,但仍然避免不了最终溢出。
原文链接:
如何用VB编程输出杨辉三角?
VB代码:
Option Base 1
Private Sub form_click()
Const n=10
Dim arr(n,n)As Integer
For i=1 To n
arr(i,i)=1
arr(i,1)=1
Next i
For i=3 To n
For j=2 To i-1
arr(i,j)=arr(i-1,j-1)+arr(i-1,j)
Next j
Next i
For i=1 To n
For j=1 To i
Print arr(i,j);
Next j
Next i
End Sub
输出结果:
扩展资料:
printf的格式
printf函数的原型为:
#includelt;stdio.hgt;
int printf(const char*format,...);
在讲每一个函数的时候都会先把它的函数原型写出来,这个原型你们现在看不懂不要紧,等到学完C语言之后再来看这个原型就会发现它是很有参考意义的!它对深刻理解函数有着很大的价值。
printf的格式有四种:
1)printf("字符串\n");
#includelt;stdio.hgt;
int main(void)
{
printf("Hello World!\n");//\n表示换行
return 0;
}
其中\n表示换行的意思。它是一个转义字符,前面在讲字符常量的时候见过。其中n是“new line”的缩写,即“新的一行”。
此外需要注意的是,printf中的双引号和后面的分号必须是在英文输入法下。双引号内的字符串可以是英文,也可以是中文。
2)printf("输出控制符",输出参数);
#includelt;stdio.hgt;
int main(void)
{
int i=10;
printf("%d\n",i);/*%d是输出控制符,d表示十进制,后面的i是输出参数*/
return 0;
}
这句话的意思是将变量i以十进制输出。
i本身就是十进制,程序中虽然写的是i=10,但是在内存中并不是将10这个十进制数存放进去,而是将10的二进制代码存放进去了。计算机只能执行二进制0、1代码,而0、1代码本身并没有什么实际的含义,它可以表示任何类型的数据。
所以输出的时候要强调是以哪种进制形式输出。所以就必须要有“输出控制符”,以告诉操作系统应该怎样解读二进制数据。
如果是%x就是以十六进制的形式输出,要是%o就是以八进制的形式输出。
3)printf("输出控制符1输出控制符2…",输出参数1,输出参数2,…);
#includelt;stdio.hgt;
int main(void)
{
int i=10;
int j=3;
printf("%d%d\n",i,j);
return 0;
}
输出控制符1对应的是输出参数1,输出控制符2对应的是输出参数2……编译、链接、执行后看一下输出结果:
10 3
注意:10和3之间有一个空格;因为上面%d和%d之间有空格,printf中双引号内除了输出控制符和转义字符\n外,所有其余的普通字符全部都原样输出。比如:
#includelt;stdio.hgt;
int main(void)
{
int i=10;
int j=3;
printf("i=%d,j=%d\n",i,j);
return 0;
}
再编译、链接、执行一下:
i=10,j=3
i=、,、空格和j=全都原样输出了。此外需要注意的是:“输出控制符”和“输出参数”无论在“顺序上”还是在“个数上”一定要一一对应。
4)printf("输出控制符非输出控制符",输出参数);
用vb.net2008打印杨辉三角形(打印10行),要求如图所示
Public Class Form1
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim n As Integer, i As Integer, j As Integer, a(,) As Integer
n = 10
ReDim a(n + 1, n + 1)
For i = 1 To n + 1
a(i, 1) = 1 : a(i, i) = 1 : Next i
For i = 3 To n + 1
For j = 2 To i - 1
a(i, j) = a(i - 1, j - 1) + a(i - 1, j)
Next j, i
For i = 1 To n + 1
For j = 1 To i
TextBox1.AppendText(Space(4 - Len(Trim(Str(a(i, j))))) Trim(Str(a(i, j))))
Next j
TextBox1.AppendText(vbCrLf)
Next i
End Sub
End Class
VB.Net的问题,输入整数n,显示具有n行的杨辉三角形。
参考:
以下为十行的杨辉三角输出,根据这个自己做相应修改,都做好了,那你就是伸手党了。
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i, j As Integer
Dim n As Integer
n = 10
Dim dete(n, n) As Integer
Dim sum As Integer
For i = 0 To n
For j = 0 To i
If i = 0 Then
dete(i, j) = 1
ElseIf j = 0 Then
dete(i, j) = 1
ElseIf i = j Then
dete(i, j) = 1
Else
dete(i, j) = dete(i - 1, j - 1) + dete(i - 1, j)
End If
Next
Next
For i = 0 To n
For j = 0 To i
Debug.Write(dete(i, j) " ")
sum += dete(i, j)
Next
Debug.WriteLine(" ")
Next
End Sub
End Class
分享标题:杨辉三角形vb.net 杨辉三角形最简单的C语言
分享路径:http://lswzjz.com/article/hehjpj.html