Заполнить строки матрицы элементами геометрической прогрессии

@Andreynoob · Регистрация: 17.12.2015

Author24 — интернет-сервис помощи студентам

Задача на геометрическую прогрессию в матрице .Нужно ,чтобы каждый столбец матрицы содержал элементы геометрической прогрессии. Вместо геометрической получается арифметическая , подскажите с формулой .

Pascal

const
m=4;
n=4;
d=0.70;
var
a:array[1..m,1..n] of real;
b: array [1..n] of real = (8.08,9.39,4.23,9.23);
i,j:integer;
begin
for i:=1 to m do 
for j:=1 to n do 
a[i,j]:= b[j]+(i-1)*d; {здесь получается  арифметическая прогрессия , а нужно геометрическую , подскажите с формулой }
 
for i:=1 to m do
begin 
for j:=1 to n do
write ('',a[i,j]:6:2);
writeln;
end;
end.

@Puporev · 02.03.2016, 15:53

Pascal

const n=4;
      d=0.70;
var a:array[1..n,1..n] of real;
    b: array [1..n] of real = (8.08,9.39,4.23,9.23);
    i,j:integer;
begin
for i:=1 to n do
for j:=1 to n do
if j=1 then a[i,j]:=b[i]
else a[i,j]:= a[i,j-1]*d;
for i:=1 to n do
 begin
  for j:=1 to n do
  write (a[i,j]:6:2);
  writeln;
 end;
end.

@Andreynoob · 02.03.2016, 16:07 **[ТС]**

благодарю

@Andreynoob 0 / 0 / 0 Регистрация: 17.12.2015 Сообщений: 31
	02.03.2016, 16:07 [ТС]	3
	благодарю 0