首页 > 其他 > 详细

Pascal 杨辉三角

时间:2014-07-16 19:37:35      阅读:225      评论:0      收藏:0      [点我收藏+]

用于打印杨辉三角的程序,有多种算法仅提供一种

PRogram yh (input,ouput);
var
  m,n,c:integer;
Begin
 For m:=0 TO 10 Do
   Begin
     c:=1;
     write(c:40-3*m);
     For n:=1 To m Do
       begin
         c:=c+(m-n+1) Div n;
         write(c:6)
       End;
     writeln
     End;
readln
End.

Pascal 杨辉三角,布布扣,bubuko.com

Pascal 杨辉三角

原文:http://www.cnblogs.com/Chaobs/p/3837535.html

(0)
(0)
   
举报
评论 一句话评论(0
关于我们 - 联系我们 - 留言反馈 - 联系我们:wmxa8@hotmail.com
© 2014 bubuko.com 版权所有
打开技术之扣,分享程序人生!