Question

Даны действительные числаx, y (x≠ y). Меньшее из этих двух чисел заменить их полусуммой, а большее – их удвоенным произведением. Нужно решить в Basic. помогите пожалуйста

Answer 1

DIM x AS DOUBLE, y AS DOUBLE
CLS
INPUT x, y
IF x < y THEN
   x = (x + y) / 2
   y = 2 * x * y
ELSE
   y = (x + y) / 2
   x = 2 * x * y
END IF
PRINT "x="; x; ", y="; y

Результат
? 5.68,3.9
x= 54.4144 , y= 4.79

Answer 2

Конечно, я помогу вам решить данную задачу на языке программирования Basic. Вот код, который заменит меньшее число полусуммой, а большее - удвоенным произведением:

basicCopy code
INPUT "Введите число x: ", x
INPUT "Введите число y: ", y

IF x <> y THEN
    IF x < y THEN
        smaller = x
        bigger = y
    ELSE
        smaller = y
        bigger = x
    END IF

    half_sum = (smaller + bigger) / 2
    double_product = 2 * (smaller * bigger)

    PRINT "Меньшее число заменено полусуммой: "; half_sum
    PRINT "Большее число заменено удвоенным произведением: "; double_product
ELSE
    PRINT "Числа должны быть различны!"
END IF

Просто скопируйте код в свою среду программирования Basic, и он попросит вас ввести два числа x и y. Затем программа выполнит описанные выше действия и выведет результаты.