Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Сумма их трех матриц

Автор: Herotic 4.03.2010 0:08

Помогите пожалуйста решить задачку:

Даны действительные числа a1, a2, ..., a10; b1, b2, ..., b20. Вычислить матрицу cij, где i = 1,2, ..., 20 по формуле:
------ai+1
cij = -------
-----|bj|+1

program first;
uses CRT;
var
a: array[1..10] of integer;
b: array[1..20] of integer;
c: array[1..10,1..20] of real;
i,j:integer;
begin
ClrScr;
for i:=1 to 10 do
begin
for j:=1 to 20 do
c[i,j]:=random(10);
end;
for i:=1 to 10 do
begin
a[i]:=random(10);
end;
for i:=1 to 20 do
begin
b[i]:=random(10);
end;
for i:=1 to 10 do
begin
for j:=1 to 20 do
c[i,j]:=(a[i]+1)/(abs(b[i])+1);
end;
for i:=1 to 10 do
begin
for j:=1 to 20 do
Writeln(c[i,j]:4);
end;
readln;
end.

Автор: Herotic 4.03.2010 0:44

Попробовал вот так:

program first;
uses CRT;
var
a: array[1..10] of integer;
b: array[1..20] of integer;
c: array[1..10,1..20] of real;
i,j:integer;
begin
ClrScr;
for i:=1 to 10 do
begin
for j:=1 to 20 do
c[i,j]:=random(10);
end;
for i:=1 to 10 do
begin
a[i]:=random(10);
end;
for i:=1 to 20 do
begin
b[i]:=random(10);
end;
for i:=1 to 10 do
for j:=1 to 20 do
begin
c[i,j]:=(a[i]+1)/(abs(b[j])+1);
end;
for i:=1 to 10 do
begin
for j:=1 to 20 do
Writeln(c[i,j]:4);
end;
readln;
end.

Вроде бы получилось, подскажите пожалуйста.