Если А>В, то возвести А в квадрат и вывести полученное значение - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д