Решаем задачи Абрамян на Паскале. Matrix5

Matrix5. Даны целые положительные числа $$M$$, $$N$$, число $$D$$ и набор из $$M$$ чисел.Сформировать матрицу размера $$M \times N$$, у которой первый столбец совпадает с исходным набором чисел, а элементы каждого следующего столбца равны сумме соответствующего элемента предыдущего столбца и числа $$D$$ (в результате каждая строка матрицы будет содержать элементы арифметической прогрессии).

Решение:

program Matrix5;
var
  a:array [1..10,1..10] of integer;
  M, N, D, i, j:Integer;

begin
 Write('N: ');
 Readln(N);
 Write('M: ');
 Readln(M);
 Write('D: ');
 Readln(D);

 Writeln('Nabor:');
 for i:=1 to M do
  begin
   Write(i,': ');
   readln(a[i,1]);
  end;

 for i:=1 to M do
  for j:=2 to N do
   a[i,j]:=a[i,j-1]+D;

 for  i:=1 to M do
  begin
   for j:=1 to N do Write(' : ',a[i,j]);
   writeln(' : ');
  end;
end.

program Matrix5;

var

a:array [1..10,1..10] of integer;

M, N, D, i, j:Integer;

begin

Write('N: ');

Readln(N);

Write('M: ');

Readln(M);

Write('D: ');

Readln(D);

Writeln('Nabor:');

for i:=1 to M do

begin

Write(i,': ');

readln(a[i,1]);

end;

for i:=1 to M do

for j:=2 to N do

a[i,j]:=a[i,j-1]+D;

for i:=1 to M do

begin

for j:=1 to N do Write(' : ',a[i,j]);

writeln(' : ');

end;

end.

Другие задачи из раздела Matrix можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. Matrix5

Комментарии:

Добавить комментарий Отменить ответ