Если А>В, то возвести А в квадрат и вывести полученное значение - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

12   голосов , оценка 4.333 из 5
Похожие ответы