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