Question

Напишите программу, которая находит квадратный корень произведения двух вещественных чисел одинакового знака.В блокноте VBS

Answer 1

A = InputBox("Введите первое число")
b = InputBox("Введите второе число")
s= sqr(a*b)
MsgBox "Квадратный корень: " & s

Answer 2

Я могу помочь вам написать программу, которая находит квадратный корень произведения двух вещественных чисел одинакового знака. Вот пример программы на языке VBS:

' Объявляем переменные для хранения двух вещественных чисел
Dim a, b
' Вводим два вещественных числа с клавиатуры
a = InputBox("Введите первое вещественное число")
b = InputBox("Введите второе вещественное число")
' Проверяем, что числа имеют одинаковый знак
If (a > 0 And b > 0) Or (a < 0 And b < 0) Then
    ' Находим произведение двух чисел
    Dim product
    product = a * b
    ' Находим квадратный корень произведения
    Dim sqrt
    sqrt = Sqr(product)
    ' Выводим результат на экран
    MsgBox "Квадратный корень произведения двух чисел равен " & sqrt
Else
    ' Выводим сообщение об ошибке
    MsgBox "Числа должны иметь одинаковый знак"
End If

Эта программа использует функцию `InputBox` для получения ввода от пользователя, функцию `Sqr` для вычисления квадратного корня, и функцию `MsgBox` для вывода результата или сообщения об ошибке. Вы можете запустить эту программу в блокноте VBS, следуя инструкциям [здесь]. Надеюсь, это поможет вам.