DELPHI杨辉三角

 

 

{ 没事做的时候拿一个c的杨辉三角翻译成DELPHI！ 觉的D的FOR不如C的FOR好使！ DELPHI杨辉三角 } program Project1; {$APPTYPE CONSOLE} uses SysUtils; var i, j, l, r:integer; a:array[0..17] of integer; n:Integer = 0; begin a[0]:=0; a[1]:=1; while ((n < 1)or(n > 16)) do begin Write('请输入杨辉三角形的行数：'); Readln(n); end; for i :=1 to n do begin l:=0; for j:=1 to i do begin r :=a[j] ; a[j]:=l + r; l :=r; write(a[j]); Write(' '); end; Writeln; end; Readln; end.   //====================c语言实现======================= # include <stdio.h> int main() { int i, j, n =0, a[17] ={0,1}, l, r; while (n < 1 || n > 16) { printf("请输入杨辉三角形的行数："); scanf("%d", &n); } for(i = 1; i <= n; i++) { l = 0; for(j = 1; j <=i; j++) { r = a[j]; a[j] = l + r; l = r; printf("%5d", a[j]); } printf("\n"); } return 0; }

转载于:https://www.cnblogs.com/flay/archive/2012/05/23/2515452.html