Определить, поместится ли в круг радиуса r квадрат со стороной а - QBasic

программа:

                    Листинг программы
                
INPUT a,r
d:=a*SQR(2)
IF d <= 2 * r THEN z$="поместитсяЭ else z$="не поместится"
print z$

сама задача: определить поместится ли в круг радиуса r квадрат со стороной а

Листинг программы

INPUT a, r
IF 2 * r < SQR(a^2 + a^2) THEN
    PRINT "Не поместится"
ELSE
    PRINT "Поместится"
END IF

Объяснение кода листинга программы

Список с объяснением:

Ввод переменных a и r с помощью команды INPUT.
Вычисление значения SQR(a^2 + a^2) - это квадратный корень из суммы квадратов сторон квадрата со стороной a.
Сравнение 2 * r с вычисленным значением SQR(a^2 + a^2).
Если 2 * r меньше, чем SQR(a^2 + a^2), то выводится сообщение Не поместится.
Если 2 * r больше или равно SQR(a^2 + a^2), то выводится сообщение Поместится.

Оцени полезность:

7 голосов , оценка 4.143 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы