Примеры матриц в Паскаль

Даны целые положительные числа M, N и набор из N чисел. Сформировать матрицу в Паскаль размера M Ј N, у которой в каждой строке содержатся все числа из исходного набора (в том же порядке).

Решение:
[code]
Program matr1;
Var
A : array [1..10,1..10] of Integer;
B : array [1..10] of Integer;
i,j: Integer;
Begin
for i:=1 to 10 do B[i]:=Random(10);

for j:=1 to 10 do
for i:=1 to 10 do
begin
A[i,j]:=B[i];
end;

//вывод матрицы для теста
for j:=1 to 10 do
begin
for i:=1 to 10 do
begin
write(A[i,j],’ ‘);
end;
writeln;
end;
//конец вывода
End.
[/code]

Даны целые положительные числа M, N, число D и набор из M чисел. Сформировать матрицу в Паскаль (matrix Pascal) размера M Ј N, у которой первый столбец совпадает с исходным набором чисел, а элементы каждого следующего столбца равны сумме соответствующего элемента предыдущего столбца и числа D (в результате каждая строка матрицы будет содержать элементы арифметической прогрессии).
Решение:
[code]
Program matr1;
Var
A : array [1..10,1..10] of Integer;
B : array [1..10] of Integer;
i,j: Integer;
D : Integer;
Begin
D:=Random(10);
for i:=1 to 3 do B[i]:=Random(10);
for i:=1 to 3 do
for j:=1 to 3 do
begin
if (j=1) then A[i,j]:=B[i] else A[i,j]:=A[i,j-1]+D;
end;
WriteLn(‘D = ‘,D);
//вывод матрицы для теста
for i:=1 to 3 do
begin
for j:=1 to 3 do
begin
Write(A[i,j],’ ‘);
end;
writeln;
end;
//конец вывода
End.
[/code]

1 Star2 Stars3 Stars4 Stars5 Stars (2 голосов, средний:5,00 из 5)
Вы можете пропустить чтение записи и оставить комментарий. Размещение ссылок запрещено.
Оставить комментарий