بهترین الگوریتم

[mohsenaminzare]

لطفا دوستان در موردبهترین الگوریتمی که شکل زیر را چاپ کند من راهنمایی کنند؟


1
1 2 1
1 3 3 1
1 4 6 4 1

:گریه:

[Developer Programmer]

آف تاپیک:
1) درخواست الگوریتم به بخش الگوریتم ها مربوط میشه نه اینجا
2) عنوان تاپیک اشکال داره.
3) کد رو به زبان پاسکال واست نوشتم:


Function Min( a,b: Word ): Word;
begin
If a<=b then
Result:=a
Else
Result:=b;
end;

Const
N=5 ; K=6;
Var
I,J: Word;
A: Array[0..n,0..k] of word;
begin

for i:=0 to n do
for j:=0 to min(i,k) do
If (j=0) or ( i=j) then
A[i,j]:=1
Else
A[i,j]:= A[i-1,j] + A[i-1,J-1] ;

for i:=0 to n do
begin
for j:=0 to k do
Write( a[i,j] : 3 );
WriteLn;
end;
ReadLn;

end.

[mohsenaminzare]

دوست من خروجی کد شما به صورت زیر است . من دقیقا مثل آنچه را که کشیدم نیاز دارم. لطف کنید راهنمایی کنید.
0 0 0 0 0 0 1
0 0 0 0 0 1 1
0 0 0 0 1 2 1
0 0 0 1 3 3 1
0 0 1 4 6 4 1
0 1 5 10 10 5 1

[Developer Programmer]

مهم این بود که اعداد رو درست محاسبه کنه، که میکنه.
مطمئنا" میتونی کد رو طوری تعویض کنی که خروجی مثل خروجی دلخوهات بسازه.
کافیه کمی با if بازی کنی تا صفر ها رو چاپ نکنه و ...