1樓：匿名使用者
vara:array[0..20,0..20] of longint;
n,i,j:longint;
begin
readln(n);
fillchar(a,sizeof(a),0);
a[1,1]:=1;
for i:=2 to n do
for j:=1 to i do
a[i,j]:=a[i-1,j]+a[i-1,j-1];
for i:=1 to n do
begin
write(a[i,1]);
for j:=2 to i do
write(' ',a[i,j]);
writeln;
end;
readln;
end.
2樓：遺憾的善良
var a:array[1..1000,1..1000] of integer;
i,j,n:integer;
begin
readln(n);
a[1,1]:=1;
i:=2;
repeat
a[i,1]:=1;a[i,i]:=1;
for j:=2 to i-1 do
a[i,j]:=a[i-1,j-1]+a[i-1,j];
i:=i+1;
until i>n;
for i:=1 to n do
begin
for j:=1 to i do write(a[i,j],' ');
writeln;
end;
readln;readln;
end.
3樓：妖狐w魅影
望採納~
vara,c,m,n:integer;
begin
readln(a);
for m:=0 to a do
begin
c:=1;
write(c:40-3*m);
for n:=1 to m do
begin
c:=c*(m-n+1)div n;
write(c:6);
end;
writeln;
end;
end.
pascal問題 楊輝三角
4樓：酷酷潘文文
program sb;
vara:array[1..30,1..30]of integer;
i,j,m:integer;
begin
read(m);
for i:=1 to m do
for j:=1 to m do
begin
a[i,1]:=1;
if i=j then a[i,j]:=1else a[i,j]:=a[i-1,j-1]+a[i-1,j];
end;
for i:=1 to m do
begin
write('');
for j:=1 to i do
write(a[i,j],' ');
writeln;
end;
end.
5樓：
varn,i,j:integer;
a:array[0..20,0..20] of integer;
begin
readln(n);
for i:=1 to n do
for j:=1 to i do
if (j=1)or(i=j) then
a[i,j]:=1
else
a[i,j]:=a[i-1,j-1]+a[i-1,j];
for i:=1 to n do
begin
for j:=1 to i do write(a[i,j],' ');
writeln;
end;
end.
6樓：匿名使用者
vara:array[1..10,1..13]of integer;
i,j,k,s:integer;
begin
read(s);
for i:=1 to s do
begin
for j:=1 to 13 do
a[i,j]:=0;
a[i,s-(i-1)]:=1;
a[i,s+(i-1)]:=1;
for k:=1 to i-2 do
begin
j:=s-(i-1)+2*k;
a[i,j]:=a[i-1,j-1]+a[i-1,j+1];
end;
for j:=1 to 13 do
if a[i,j]<>0 then
if 2*i+10=j then beginwrite(a[i,j]);break;
endelse
write(a[i,j],' ');
writeln;
end;
end.
pascal 輸出楊輝三角的詳細解釋。
7樓：匿名使用者
不懂的話,請追問.
望採納,謝謝.
program e415(input,output);
varc,m,n:integer;
begin
for m:=0 to 10 do
begin
c:=1;
write(c:40-3*m);
for n:=1 to m do
begin
c:=c*(m-n+1)div n;
write(c:6)
end;
writeln
end;
end.
8樓：匿名使用者
楊輝三角，也就是每個數等於它上方兩個數的和。是個很有用的東西，也就是組合數。
11 1
1 2 1
1 3 3 1
就是這個樣子。
很簡單，用乙個二維陣列，a[i][j]:=a[i-1][j]+a[i-1,j-1]
看到了嗎，每個數等於它正上方的數和它上面的左邊那個數的和，因為輸出來是個直角三角形嘛
初始把a[1][1]賦值為1
陣列要從0開始
還不懂再問
pascal's ********是楊輝三角形的意思嗎
pascal楊輝三角形怎麼做出居中形式？ 10
9樓：聽不清啊
var a:array[1..21]of longint;
i,j,k,m,n:integer;
begin
readln(n);
a[1]:=1;
for i:=1 to n do
begin
for j:=i downto 2 do
a[j]:=a[j]+a[j-1];
write('':(n+1-i)*2);
for j:=1 to i do write(a[j]:4);
writeln;
end;
end.
10樓：
我的書上有楊輝三角形前10行的程式以及解析，你參照一下吧vara:array[1..10,1..10] of integer;
i,j:integer;
begin
a[1,1]:=1; //設定第一行的值for i:=2 to 10 do //從第二行開始推begin
a[i,1]:=1; //設定每行的首尾值為1a[i,i]:=1;
for j:=2 to i-1 do //設定非首位值的數a[i,j]:=a[i-1,j-1]+a[i-1,j]; //每一行的數等於上一行兩個數的和
end.
for i:=1 to 10 do
begin
if i<>10 then write(' ':30-3*i); //控制起始位置
for j:=1 to i do write(a[i,j]:6);
writeln
end;
end.
11樓：異想天開
輸出時居中？那得看有多少行，然後計算前邊的空格即可
pascal's ********是楊輝三角形的意思嗎？
12樓：右手的無奈
是楊輝三角早bai了！事實上，關於du這個三zhi角，最早提出
是十dao一世紀時我國的北專
宋人賈憲在進行高屬次開方運算時提出的，故又有「賈憲三角」的稱法；而十三世紀南宋數學家楊輝在他的《詳解九章演算法》裡記載並儲存了「賈憲三角」，而其影響卻更廣泛，故我國稱它為「楊輝三角」也更廣泛些。元朝還有數學家朱世傑在《四元玉鑑》（2023年）擴充了「賈憲三角」成「古法七乘方圖」。至於西方的帕斯卡要到十七世紀才發現了這個三角，比我國要晚上幾個世紀阿!
13樓：匿名使用者
pascal『s ********是帕斯卡三角形，就是楊輝三角形。
只是楊輝三角形發明的早而已。
求楊輝三角的通項公式，楊輝三角公式
楊輝三角實際上就是二項式定理裡的係數，第n行對應 x 1 n 1 第m列就是 x 1 n 1 式中x m 1 的係數所以，根據排列組合相關知識，第n行m列元素應該為 c n 1,m 1 n 1 m 1 n m 其中 表示階乘，n！n n 1 2 1 楊輝三角公式 楊輝三角，也叫賈憲三角，在外國被稱為...
java楊輝三角程式糾錯
system.out.println a i j 這個方法是輸出後自動換行的 用 system.out.print a i j 去掉 ln 這個是不換行的，另外你自己要去設計一下換行與空格的填補，有問題歡迎再請教 system.out.println a i j 每打一次就就會換行的。println...
VB用print窗體顯示楊輝三角
private sub form click dim a as long,n as long,i as long,j as long,x as long n val inputbox 請輸入列印行數 16 輸入正整數 16 if n 16 or n 0 thenmsgbox 數值錯誤，重新輸入行數 ...