按金字塔形状打印扬辉三角形（用数组做），在线等-CSDN论坛

⋅按金字塔形状打印扬辉三角形（用数组做），在线等 ⋅简单的问题（回车和换行的ascii码） ⋅菜鸟问题，在线等 更多帖子 关注空间博客 丁丁 本版专家分：2 结帖率 100%: 回复次数8

发表于 2004-11-22 14:08:06 楼主

1
     1   1
    1  2   1
   1  3  3   1
  1  4  6  4   1
1  5  10 10  5  1
如何去做啊？

问题点数：0分

0 0

引用・举报・管理
编辑删除

CSDN推荐

CSDN今日推荐

⋅2009-2011版主积分兑换(本周期最后一次兑换)

⋅2011年6-7月CSDN版主考核结果

⋅2011年5月版主积分及礼品兑换

更多帖子

关注空间博客

莫依

本版专家分：60245

微软MVP 2009年7月荣获微软MVP称号
2005年7月荣获微软MVP称号
2008年7月荣获微软MVP称号
2007年7月荣获微软MVP称号
2006年7月荣获微软MVP称号

红花 2005年8月 VB大版内专家分月排行榜第一
2005年3月 VB大版内专家分月排行榜第一

黄花 2005年7月 VB大版内专家分月排行榜第二

蓝花 2005年6月 VB大版内专家分月排行榜第三
2005年4月 VB大版内专家分月排行榜第三
2004年4月 VB大版内专家分月排行榜第三: 回复于 2004-11-22 14:24:24 #1 得分：0

Option Explicit

Dim yang(10, 10) As Integer

Private Sub Form_Load()
    Dim n As Integer
    Dim i As Integer, j As Integer
    n = 8                   '输出的行数
    For i = 0 To n - 1      '第1列和对角线上的元素置1
        yang(i, i) = 1
        yang(i, 0) = 1
    Next i
    For i = 2 To n - 1      '给杨辉三角形其它元素置数
        For j = 1 To i
            yang(i, j) = yang(i - 1, j - 1) + yang(i - 1, j)
        Next j
    Next i
    Form1.AutoRedraw = True '输出
    For i = 0 To n - 1
        For j = 0 To i
            Print yang(i, j);
        Next j
        Print vbNewLine
    Next i
End Sub

0 0

引用・举报・管理
编辑删除

⋅2009-2011版主积分兑换(本周期最后一次兑换)

⋅2011年6-7月CSDN版主考核结果

⋅2011年5月版主积分及礼品兑换

更多帖子

关注空间博客

莫依

本版专家分：60245

微软MVP 2009年7月荣获微软MVP称号
2005年7月荣获微软MVP称号
2008年7月荣获微软MVP称号
2007年7月荣获微软MVP称号
2006年7月荣获微软MVP称号

红花 2005年8月 VB大版内专家分月排行榜第一
2005年3月 VB大版内专家分月排行榜第一

黄花 2005年7月 VB大版内专家分月排行榜第二

蓝花 2005年6月 VB大版内专家分月排行榜第三
2005年4月 VB大版内专家分月排行榜第三
2004年4月 VB大版内专家分月排行榜第三: 回复于 2004-11-22 14:27:09 #2 得分：0

Option Explicit

Dim yang(10, 10) As Integer

Private Sub Form_Load()
    Dim n As Integer
    Dim i As Integer, j As Integer
    n = 8
    For i = 0 To n - 1
        yang(i, i) = 1
        yang(i, 0) = 1
    Next i
    For i = 2 To n - 1
        For j = 1 To i
            yang(i, j) = yang(i - 1, j - 1) + yang(i - 1, j)
        Next j
    Next i
    Form1.AutoRedraw = True '输出
    For i = 0 To n - 1
        For j = 1 To (8 - i) * 2
            Print " ";
        Next j
        For j = 0 To i
            Print yang(i, j) & "   ";
        Next j
        Print vbNewLine
    Next i
End Sub

0 0

引用・举报・管理
编辑删除

⋅请教一个写游戏中遇到的问题 ⋅哎，工作6年，码代码码了6年，真的很累... ⋅怎么知道电脑上有多少modem拨号连接，不管是有效还是无效的，也不管连上网的还是断开的 更多帖子 关注空间博客 qidaozhilong 本版专家分：182: 回复于 2004-11-22 14:32:01 #3 得分：0

我倒，这不是以前大学C语言的入门题嘛！

0 0

引用・举报・管理
编辑删除

⋅按金字塔形状打印扬辉三角形（用数组做），在线等 ⋅简单的问题（回车和换行的ascii码） ⋅菜鸟问题，在线等 更多帖子 关注空间博客 丁丁 本版专家分：2: 回复于 2004-11-22 14:48:15 #4 得分：0

daisy8675(莫依)，谢谢你将程序分两部分写，我明白了，先生成数组，再按照特定格式输出，再问个问题：
Form1.AutoRedraw属性是什么意思

0 0

引用・举报・管理
编辑删除

⋅请教一个写游戏中遇到的问题 ⋅哎，工作6年，码代码码了6年，真的很累... ⋅怎么知道电脑上有多少modem拨号连接，不管是有效还是无效的，也不管连上网的还是断开的 更多帖子 关注空间博客 qidaozhilong 本版专家分：182: 回复于 2004-11-22 17:23:09 #5 得分：0

Form1.AutoRedraw就是重绘属性罗。

0 0

引用・举报・管理
编辑删除

⋅2009-2011版主积分兑换(本周期最后一次兑换)

⋅2011年6-7月CSDN版主考核结果

⋅2011年5月版主积分及礼品兑换

更多帖子

关注空间博客

莫依

本版专家分：60245

微软MVP 2009年7月荣获微软MVP称号
2005年7月荣获微软MVP称号
2008年7月荣获微软MVP称号
2007年7月荣获微软MVP称号
2006年7月荣获微软MVP称号

红花 2005年8月 VB大版内专家分月排行榜第一
2005年3月 VB大版内专家分月排行榜第一

黄花 2005年7月 VB大版内专家分月排行榜第二

蓝花 2005年6月 VB大版内专家分月排行榜第三
2005年4月 VB大版内专家分月排行榜第三
2004年4月 VB大版内专家分月排行榜第三: 回复于 2004-11-22 17:38:11 #6 得分：0

Form1.AutoRedraw属性是什么意思
//我想这样的问题你应该去查查MSDN^^

0 0

引用・举报・管理
编辑删除

⋅如何管理N个WCF服务？ ⋅有没有谁做嵌入式开发的，大虾给俺指导一下？谁有WIN CE的模拟器？ ⋅请各位大虾帮俺出出招儿：关于控制页签显示与关闭的控制问题！！！！！！若能解决将高分奉上……！ 更多帖子 关注空间博客 沧海亦心 本版专家分：231: 回复于 2004-11-22 22:25:17 #7 得分：0

这个问题跟我原来写程序一样，写数组和打印输出放在一起了！
分开考虑也是一个很好的思想！

0 0

引用・举报・管理
编辑删除

⋅按金字塔形状打印扬辉三角形（用数组做），在线等 ⋅简单的问题（回车和换行的ascii码） ⋅菜鸟问题，在线等 更多帖子 关注空间博客 丁丁 本版专家分：2: 回复于 2004-11-23 17:10:34 #8 得分：0

不好意思，是我偷懒，下次不敢了

0 0

引用・举报・管理
编辑删除

其他相关推荐

【项目2-杨辉三角】编写程序，打印出以下形式的扬辉三角形。: #include #include void setdata(int a[][7]); void outdata(int a[][7]); using namespace std; int main() { int a[7][7]={0}; setdata(a); //给数组赋值 outdata(a); //输出数组 return 0; } void setdata(int a[

java 实现打印杨辉三角: package com.shan;import java.util.Scanner;public class YFTriangle { public static void main(String[] args) { printYFTriangle(); } /** * 1 要理解下面的实现，首先要明白int数组中元素默认值为 0 * 2 然后

【JavaDemo】用Java输出金字塔( 三角形和倒三角形 ): 需求如图，写一个方法，通过传参指定行数打印对应行数的正三角形，用 * 表示。分析打印每行 * 之前循环打印 \t . 假设传递进来的参数是line，那么line - row>=0 倒三角形同理源码：package cn.demo;/* * 打印三角形 */ public class PrintStarDemo { public static void main(String[]

分别用for循环和while循环实现打印金字塔图形: 需求：1、用for循环实现打印金字塔图形2、用while循环实现打印金字塔图形 public class ForWhilePyramids { public static void main(String[] args) { printForPyramids(); printWhilePyramids(); } /** * 使用for循环打印金字塔图形 */ publi

js基础运用——js用*打印三角形，菱形: js基础运用新手见解，有不足或更简单的方法希望各位指点1.用*排列直角三形（图一）（图二）图一图二是js语句利用*号画出来的直角三角形，方法思路都一致，下面以图一为例讲一下本人所用的方法：<!DOCTYPE html> <html lang="en"> <head> <meta charset="UTF-8"> <title>Document</title> <scrip

php练习——用for循环打印半金字塔、金字塔、正方形、倒金字塔、菱形、空心图形等: 1、半金字塔$n=5; //控制层数 for($i=1;$i<=$n;$i++){ //控制每层的 “*” 数 for($j=1;$j<=$i;$j++){ echo "*"; } echo "<br/>"; }2、金字塔$n=5; for($i=1;$i<=$n;$i++){ for($k=1;$k<=$n-$i;$k++){ echo "&nbsp"; //输出空格 } for($j=1

打印数字金字塔: package com.love.test; import java.util.Scanner; public class NumberTower { public static void print(int x){//数字三角形的高度 int i; for(i=1;i<=x;i++) { //打印空格 for(int j=1;j<=x-i;j++) {

java用*号打印金字塔: /* 功能：用*号打印金字塔 */ import java.io.*; public class Demo { public static void main(String[] args) { Dayin dayin=new Dayin(); dayin.Dayin(); } } class Dayin { public void Dayin() { try {

Python 对字符串半金字塔图形输出: >>> s = 'abcde' >>> for i in [None] + range(-1, -len(s), -1): ... print s[:i] ... abcde abcd abc ab a >>> for i in range(0, len(s), 1) + [None]: ... print s[:i] ... a ab abc abcd abc

打印一个数组，用到三角形写法: /*需求：打印出输入4时输出 0000 0111 0122 0123 输入1~n时打印出来。用数组的方法。通过分析可以看出这个数列就是两个三角形组成。一个是 0 01 012 0123 第n行为n个数，分别为0~n 另一个三角形为 000 11 2 为一个相同的倒三角，并且行数和列数为输入数-1 按照以前写三角形的方法可以写出下面的代码。 class SJX { public sta

按金字塔形状打印扬辉三角形（用数组做），在线等 [问题点数：0分]