Массивы по Qbasic, Хелп плиз 2 программы Опции

[St0rmX]

Пргорамма 1). Составить программу формирования и обработки одномерного массива. Элементы массива: 7,13,11,-25,16,3,9,-1. Из блока данных. Определить минимальный из положительных элементов массива.

Программа 2). Сформировать матрицу Z(3,4) из векторов X(3) и Y(4). Распечатать элементы векторов X(3), Y(4) и матрицы Z(3,4) на экране дисплея. Обработать элементы матрицы и результаты обработки вывести на экран. Формулы для вычисления массива: Zij = E^x+E^y, X(3,10,-2), Y(-7,11,15,8). Определить сумму элементов матрицы, расположенных выше главной диагонали.

[Gobbs]

я не понял че такое Е. это надо понимать эпсилант штоли?

Думаю речь шла о экспоненте.

[DAN]

Думаю речь шла о экспоненте.

тьфу ты точно)
тогда так:


var
a: array[1..3,1..4] of real;
x: array[1..3] of integer;
y: array[1..4] of integer;
i,j: integer;

function(c: real;d:integer):real;
var
i: integer;
ot:real;
begin
ot:=1;
for i:=1 to d do ot:=ot*c;
end;

begin
x[1]:=3; x[2]:=10; x[3]:=-2;
y[1]:=-7; y[2]:=11; y[3]:=15; y[4]:=8;


for i:=1 to 3 do
begin
for j:=1 to 4 do
begin
a[i,j]:=Power(Exp(1),x[i])+Power(Exp(1),y[j]);
Write(a[i,j], ' ');
end;
Writeln;
end;


end.

только она выводит саму матрицу, суму не сделал т.к. что считать главной диагональю? последовательность (1,1) (2,2) (2,3) (3,3)?

Подправил 1 задачу ведь там же надо чему то этот массив приравнять

Сообщение отредактировал DAN - May 6 2006, 15:36