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;
}