Бейсик. Одномерный массив

[Агент]

Помогите решить задачу!
Определить произведение и сумму элементов, больших 3.
Для элементов, стоящих на местах, не кратных 3, в двух одномерных массивах одинаковой длины.
Заранее спасибо!

[Serebro]

Сообщение от Агент

Помогите решить задачу!
В одномерном массиве произвольной длины: Определить произведение и сумму элементов, больших 3.
Для элементов, стоящих на местах, не кратных 3, в двух одномерных массивах одинаковой длины.
Заранее спасибо!

Агент, хоть сам прочти задание... Совершенно непонятно, что нужно сделать.

[Агент]

Сообщение от Serebro

Агент, хоть сам прочти задание... Совершенно непонятно, что нужно сделать.

Теперь правильно ввел условие!

Помогите решить задачу!
Определить произведение и сумму элементов, больших 3.
Для элементов, стоящих на местах, не кратных 3, в двух одномерных массивах одинаковой длины.
Заранее спасибо!

[klsaymon]

Агент, реально непонятно что надо...

[no_to]

рискну предположить, что ест два массива. Предположем, что елементами первого являются числа
1 34 76 12 7 9 19 4
нужно выбрать те которые >3 (34,76,12,7,9,19,4)
с индексом не кратному 3 (34[2], 12[4],7[5],19[7],4[8])
то же самойе сделать и со вторым массивом.
ну а потом * и +

[Агент]

Сообщение от no_to

рискну предположить, что ест два массива. Предположем, что елементами первого являются числа
1 34 76 12 7 9 19 4
нужно выбрать те которые >3 (34,76,12,7,9,19,4)
с индексом не кратному 3 (34[2], 12[4],7[5],19[7],4[8])
то же самойе сделать и со вторым массивом.
ну а потом * и +

Да, я сам не понял, я в бейсике не очень разбираюсь. В методичке написано так.

Сообщение от Агент

Да, я сам не понял, я в бейсике не очень разбираюсь. В методичке написано так.

А, в этих задачах не подскажете в чем ошибка?
За ранее спасибо!

1)Вычислить и напечатать значение функции Y= F1+F2+F3+F4
Значение аргумента x задать с клавиатуры. Значение A, B, C, D задать при помощи оператора присваивания. Значения α, β задать в разделе констант.

F1=√(4x+В)-3cos(βx)
F2=C-D-e^(|γ+x|-0,5)
F3=1,8*ln(A+αx)/C
F4=(2Bx^2+√(γ+1))/(C-0,3)

Option Explicit
Sub PR1()
Const α=1
Const β=1
Const γ=1
Dim x As Integer
Dim A As Integer
Dim B As Integer
Dim C As Integer
Dim D As Integer
Dim F1 As Dauble
Dim F2 As Dauble
Dim F3 As Dauble
Dim F4 As Dauble
Dim Y As Dauble
A=3
B=1
C=2
D=5
X=val(Input Box(‘Введите x’))
F1=sqr(4x+В)-3cos(βX)
F2=C-D-Exp(Abs(y+x)-0,5)
F3=1,8*log(A+ αx)/C
F4=2Bx^2+sqr(y+1)/c-0,3
Y= F1+F2+F3+F4
MgBox(“F1”=& F1)
MgBox(“F2”=& F2)
MgBox(“F3”=& F3)
MgBox(“F4”=& F4)
MgBox(“y”=& y)
End Sub.

2) Вычислить и напечатать все значения функции:

Y={█( f1 если выполняется первое условие@f2 если выполняется второе условие@ f3 если выполняется третье условие@ f4 если выполняется четвертое условие)┤






при изменении аргумента X от Xн до Xк с шагом dx. Функцию f1, f2, f3, f4 взять из задания № 1.

Условие первое X>4
Условие второе 0<=x<=4
Условие третье нет
Условие четвертое x<0

Xн=-1
Xk=4
dx=0,25

Option Explicit
Sub PR2()
Const α=0,5
Const β=0,2
Const γ=0,3
Dim x As Dauble
Dim y As Dauble
Dim I As Integer
A=1
B=2
C=3
D=4
Cells(1,1)=”x”
Cells(1,2)=”y”
I=2
For x-1 to 4 Step 0,25
If x> 4 Then y= sqr(4x+В)-3cos(βX)
If (x>0) And (x<=4) then y= C-D-Exp(Abs(y+x)-0,5) 
If Здесь не знаю??? y= 1,8*log(A+ αx)/C 
If x<0 then y=2Bx^2+sqr(y+1)/c-0,3
Cells(I,1)=x
Cells(I,1)=x
I=I+1
Next x
End Sub.

[no_to]

Mogu sostavit' primrnyj algoritm. Natolknut' tak skasat'. esli hochesh

[Агент]

Сообщение от no_to

Mogu sostavit' primrnyj algoritm. Natolknut' tak skasat'. esli hochesh

Если не сложно сделай. Только покакой задаче?

[Necro]

Сообщение от Агент

Теперь правильно ввел условие!

Помогите решить задачу!
Определить произведение и сумму элементов, больших 3.
Для элементов, стоящих на местах, не кратных 3, в двух одномерных массивах одинаковой длины.
Заранее спасибо!

Нифига я не понял задачу. Надо произведение элементов в каждом массиве или произведение подходящих под условие элементов из обоих массивов между собой. Для первого варианта примерный алгоритм на паскале:

n - размерность массива
mult1,mult2 - произведение
sum1,sum2
a[0..n], b[0..n]
mult:=1;
sum:=0;
for i:=0 to n-1 do
  begin
     if ((i mod 3)<>0) and (a[i]>3) then 
                                                  begin
                                                      mult1:=mult1*a[i];
                                                      sum1:=sum1+a[i]; 
                                                  end;
   
     if ((i mod 3)<>0) and (b[i]>3) then 
                                                  begin
                                                      mult2:=mult2*b[i];
                                                      sum2:=sum2+b[i]; 
                                                  end;
  end;

для второго варианта код тот же, только добавить:

mult:=mult1*mult2;
sum:=sum+sum2;

[Агент]

Сообщение от Necro

Нифига я не понял задачу. Надо произведение элементов в каждом массиве или произведение подходящих под условие элементов из обоих массивов между собой. Для первого варианта примерный алгоритм на паскале:

n - размерность массива
mult1,mult2 - произведение
sum1,sum2
a[0..n], b[0..n]
mult:=1;
sum:=0;
for i:=0 to n-1 do
  begin
     if ((i mod 3)<>0) and (a[i]>3) then 
                                                  begin
                                                      mult1:=mult1*a[i];
                                                      sum1:=sum1+a[i]; 
                                                  end;
   
     if ((i mod 3)<>0) and (b[i]>3) then 
                                                  begin
                                                      mult2:=mult2*b[i];
                                                      sum2:=sum2+b[i]; 
                                                  end;
  end;

для второго варианта код тот же, только добавить:

mult:=mult1*mult2;
sum:=sum+sum2;

Спасибо. А примерное решение двух задач которые, я написал правильно?