Программа.Матрица. Паскаль.
как получить матрицу такого вида в паскале?
1 1 1 1 1...
1 2 3 4 5 ...
1 3 6 10 15...
1 4 10 20 35...
...
1 столбик и первая строчка равны 1
последующ. получаются путем сложения верхнего и стоящего слева цисел...
More Questions From This User See All
Answers & Comments
(делаю масив 10на10)
program Matrix;
var a:array [1..10,1..10] of integer;
i,q,b,f:integer;
begin
b:=0; f:=0; q:=1;
for i:=1 to 10 do begin a[i,q]:=1; end;
i:=1;
for q:=1 to 10 do begin a[i,q]:=1; end;
for i:=2 to 10 do
begin
for q:=2 to 10 do
begin
b:=q-1;
f:=i-1;
a[i,q]:=a[i,b]+a[f,q];
end; end;
readln
end.