以下为全文。12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758.版本2.程序集启动窗口程序集　.程序集变量帕斯卡三角阶数,整数型,,,帕斯卡三角行数　.程序集变量帕斯卡三角,文本型,,,形成的帕斯卡三角.子程序__启动窗口_创建完毕'使用算法:递归调用　'问题:求帕斯卡(杨辉)三角　'问题描述:取N阶的帕斯卡(杨辉)三角并显示　'问题分析:　'　运用递归的方法取N层帕斯卡三角,并显示。三角形边界上的数都是1,内部的每个数是位于它上面的两个数之和。　'　假设f(row,col)表示杨辉三角的第row行的第col个元素,那么:f(row,col)=1(col=1或者row=col),也就是递归的停止条件。f(row,col)=f(row-1,col-1)+f(row-1,col),也就是上一行的两个相邻元素的和。递归调用求解。　'备注:.子程序_计算图形按钮_被单击　.局部变量行数,整数型,,,帕斯卡三角行数　.局部变量列数,整数型,,,帕斯卡三角列数　.局部变量询问返回,整数型,,,信息框返回的结果编辑框2.内容=“”　帕斯卡三角=“”　'判断输入的值　.判断开始(编辑框1.内容=“”)　信息框(“输入错误!”,0,)　'当数值过大时,给出提示　.判断(到数值(编辑框1.内容)>20)　询问返回=信息框(“您输入的数值过大,处理数据时程序将会有一段时间无响应,是否继续?”,#是否钮+#询问图标,“请问:”)　.如果真(询问返回=#是钮)　'如果确定,调用求帕斯卡三角　求帕斯卡三角()　.如果真结束　'数据较小时调用求帕斯卡三角　.判断(编辑框1.内容≠“”且到数值(编辑框1.内容)≤20)　求帕斯卡三角()　.默认.判断结束　.子程序求帕斯卡三角　.局部变量行数,整数型,,,帕斯卡三角行数　.局部变量列数,整数型,,,帕斯卡三角列数'要求的帕斯卡三角的总行数　帕斯卡三角阶数=到数值(编辑框1.内容)-1　.变量循环首(0,帕斯卡三角阶数,1,行数)　.变量循环首(0,行数,1,列数)　'取帕斯卡三角元素放到当前行里　帕斯卡三角=帕斯卡三角+到文本(取帕斯卡三角元素(行数+1,列数+1))+“,”　.变量循环尾()　帕斯卡三角=取文本左边(帕斯卡三角,取文本长度(帕斯卡三角)-1)+#换行符　'没层需去尾都好加换行符　.变量循环尾()　'显示结果　编辑框2.内容=帕斯卡三角　.子程序取帕斯卡三角元素,整数型,,取帕斯卡三角中元素的子程序　.参数行数,整数型,,帕斯卡三角行数　.参数列数,整数型,,帕斯卡三角列数.如果(列数=1或行数=列数)　'每行的外围两个元素为1　返回(1)　.否则　'其余的部分为上一行的(行数-1)和(行数)元素之和　返回(取帕斯卡三角元素(行数-1,列数-1)+取帕斯卡三角元素(行数-1,列数))　.如果结束12345678910111213141516171819202122232425262728293031323334publicclassTriangleArray{publicstaticvoidmain(String[]args){finalintNMAX=10;//allocatetriangulararrayint[][]odds=newint[NMAX+1][];for(intn=0;n<=NMAX;n++)odds[n]=newint[n+1];//filltriangulararrayfor(intn=0;n