Известны площадь круга и квадрата. Определить, уместиться ли круг в квадрате.Составить алгоритм и программу на языке QBasic разветвляющей структуры

Предыдущий
вопрос Следующий
вопрос

Алгоритм:

Ввод площади круга (S_circle) и площади квадрата (S_square).Вычисление радиуса круга (r) по формуле: r = sqrt(S_circle / pi).Вычисление длины стороны квадрата (a) по формуле: a = sqrt(S_square).Вычисление диагонали квадрата (d) по формуле: d = a * sqrt(2).Если d >= 2*r, то круг умещается в квадрате. Выводим сообщение "Круг уместиться в квадрате".Иначе выводим сообщение "Круг не уместиться в квадрате".

Программа на языке QBasic:

CLS
INPUT "Введите площадь круга: ", S_circle
INPUT "Введите площадь квадрата: ", S_square
r = SQR(S_circle / 3.14159)
a = SQR(S_square)
d = a * SQR(2)
IF d >= 2 * r THEN
PRINT "Круг уместиться в квадрате"
ELSE
PRINT "Круг не уместиться в квадрате"
END IF

Эта программа сначала запрашивает у пользователя площадь круга и квадрата, затем вычисляет радиус круга, длину стороны квадрата, и диагональ квадрата. После чего, она проверяет соотношение между диагональю квадрата и удвоенным радиусом круга и выводит соответствующее сообщение.