易语言来自易语言自带的例子 。以下为全文 。.版本 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, 列数)) .如果结束