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

Сообщение отредактировал SAPR - 15.1.2010, 7:16

и что не получается? ввести массив?

Да, я в этом не очень разбираюсь. Если не сложно помогите пожалуйста!

чем помочь? в этом разделе это не первая задача с массивами - смотри и делай так же

Просто надо решить. Еще я условие более правильно написал.
А, в этих задачах не подскажете в чем ошибка?
За ранее спасибо!

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.

Сообщение отредактировал SAPR - 15.1.2010, 9:54

Double
0,5 -> 0.5 точка десятичная
4x -> 4*x знаки умножения не пропускай
и вообще бейсик построчно все сам подчеркивает, где ошибка...

Спасибо. А, во второй задаче 7-я строка снизу, я не знаю как там получится не подскажите?

эта строчка вообще не нужна, думаю

Здравствуй Помоги пожалуйста решить задачу, я совсем Visual Basic не понимаю У меня массив одномерный дан, и нужно так программу написать, которая находит произведение этого массива, у которых индекс не нечетен =((( Пожалуйста, очень тебя прошу !