Даны два вещественных числа. Если они оба четные, то возвести каждое в квадрат, в противном случае увеличить каждое на 2 - VB
Формулировка задачи:
Помогите пожалуйста, через 2 часа сдавать.
Даны два вещественных числа. Если они оба четные, то возвести каждое в квадрат, в противном случае увеличить каждое на 2
Решение задачи: «Даны два вещественных числа. Если они оба четные, то возвести каждое в квадрат, в противном случае увеличить каждое на 2»
textual
Листинг программы
- Dim s As Single, b As Single, q As Boolean
- s = -4: b = 3
- q = ((s / 2) = (s \ 2)) And ((b / 2) = (b \ 2))
- s = -q * s * s - CSng(Not q) * (s + 2)
- b = -q * b * b - CSng(Not q) * (b + 2)
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
