pascal 输出杨辉三角的详细解释。
2个回答
展开全部
不懂的话,请追问.
望采纳,谢谢.
PROGRAM e415(input,output);
VAR
c,m,n:integer;
BEGIN
FOR m:=0 TO 10 DO {这里自己设定要打几行..不过不能打印太多,屏幕放不下}
BEGIN
c:=1;
write(c:40-3*m);{第一个数场宽为40-3*m,(m=0时,打印在中间).保证打印出来的数排成三角型}
FOR n:=1 TO m DO
BEGIN
c:=c*(m-n+1)DIV n; {这个是杨辉三角的通项公式,组合的问题. 自己分析}
write(c:6) {一个数字占6格,也是保证打印出来成三角形}
END;
writeln
END;
END.
望采纳,谢谢.
PROGRAM e415(input,output);
VAR
c,m,n:integer;
BEGIN
FOR m:=0 TO 10 DO {这里自己设定要打几行..不过不能打印太多,屏幕放不下}
BEGIN
c:=1;
write(c:40-3*m);{第一个数场宽为40-3*m,(m=0时,打印在中间).保证打印出来的数排成三角型}
FOR n:=1 TO m DO
BEGIN
c:=c*(m-n+1)DIV n; {这个是杨辉三角的通项公式,组合的问题. 自己分析}
write(c:6) {一个数字占6格,也是保证打印出来成三角形}
END;
writeln
END;
END.
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询