Массивы по 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). Определить сумму элементов матрицы, расположенных выше главной диагонали.

[DaviN]

Насчет первой задачи. Здесь все просто. Элементы у тя есть, выделяешь из них все положительные, затем задаешь условие ну типа min=10 затем делаешь цикл и все элементы через это условие, те если у тя допустим 9<min то присваиваешь Min=9 и так далее, вобщем когда все элементы пройдут через условие то наименьшему будет присвоено min. если че у меня есть уже написанная програмка наподобие твоей, могу дать...
насчет второй, непонятно, это размерность 3 на 4 или элементы 3 и 4, че значит X(3) это типа координата? или че? чет я торможу с утра походу.

[DAN]

Мне кажется ему нужен сам текст, а не объяснение)
напишу на паскале сами в бесик переделайте т.к. я его не люблю)

1 задача:
const
a: array[1..8] of integer=(7,13,11,-25,16,3,9,-1);
var
i,min: integer;

begin
min:=1000;
for i:=1 to 8 do
if (a[i]<min) and (a[i]>0) then min:=a[i];
Write(min);
end.

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

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

[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

[St0rmX]

Спасибо конечно, тока как я переделаю из Паскаля в Бейсик кто может напишите плиз для Qbasic

[St0rmX]

Неужели никто не может, не знает

[St0rmX]

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

да это главная диогональ

[St0rmX]

Я решил задачи с помощью друзей, спасибо, тему можно закрыть

[DAN]

Я решил задачи с помощью друзей, спасибо, тему можно закрыть

поздравляю я чуть стормозил