Если А>В, то возвести А в квадрат и вывести полученное значение - VB
Формулировка задачи:
1.Даны числа X и Y. Вычислить Z=f(T,P). (Линейный алгоритм)
T= ln x / (x+sin(x-y)) ; P=квадратный корень из x+y / 2xy ; Z= P-T .
2.Даны два числа А и В. Если А>В, то возвести А в квадрат и вывести полученное значение, в противном случае вывести значение В. .(Ветвящийся алгоритм)
3.Получить значения функции Y=F(x) с использованием цикла(do ..).
F(x)=х+1 для х=1.5;1.6;….;2.5(Циклический алгоритм)
4.Дан массив А(10). Найти сумму положительных элементов. (Обработка массива)
Помогите решить, пожалуйста! Нужно помочь девушке, сама лет так 5 назад в этом хорошо разбиралась, но практики давно не было( Пытаюсь сама что-то сделать, но не получается((((
Решение задачи: «Если А>В, то возвести А в квадрат и вывести полученное значение»
textual
Листинг программы
Sub zadacha()
Dim A(10) As Double
Dim suma As Integer
For i = 1 To 10
A(i) = Selection.Cells(i).Value
Next
suma = 0
For i = 1 To 10
If A(i) > 0 Then suma = suma + A(i)
Next
Worksheets("Ëèñò2").Select
Cells(1, 1) = suma
End Sub