Добрый день,стыдно спрашивать,но спрошу) Решить задачи по программированию на языке QBasic: 1) Найти площадь ромба по стороне и острому углу. Значения исходных данных ввести с клавиатуры или задать с помощью генератора случайны...
Добрый день,стыдно спрашивать,но спрошу)
Решить задачи по программированию на языке QBasic:
1) Найти площадь ромба по стороне и острому углу. Значения исходных данных ввести с клавиатуры или задать с помощью генератора случайных чисел. Вывести на экран изображение ромба и результат вычислений.
2) Даны действительные положительные числа a, b, c, d. Выяснить, можно ли прямоугольник со сторонами a, b уместить внутри прямоугольника со сторонами c, d так, чтобы каждая из сторон одного прямоугольника была параллельна или перпендикулярна каждой стороне второго прямоугольника.
как это сделать?)
Гость
Ответ(ы) на вопрос:
Гость1. Площадь ромба можно определить по формуле
[latex]\displaystyle S=a^2\sin\alpha, \quad \alpha= \frac{\pi \alpha^\circ}{180} \\ tg\left(\frac{\pi}{4}\right)=1 \to \pi=4\cdot arctg(1); \quad \alpha= \frac{arctg(1)\cdot\alpha^\circ}{45} =k\alpha^\circ[/latex]
[latex]\displaystyle k= \frac{arctg(1)}{45}; \quad S=a^2\sin(k\alpha^\circ)[/latex]
Microsoft qBASIC 1.0
DIM a AS DOUBLE, alpha AS DOUBLE, k AS DOUBLE, s AS DOUBLE
CLS
INPUT "a, alpha="; a, alpha
k = ATN(1) / 45
PRINT "S="; a ^ 2 * SIN(alpha * k)
2. Договоримся, что a≤b и c≤d. Если после ввода это не так, то меняем местами значения a,b и/или c,d.
Условие, при котором первый прямоугольник поместится во второй выглядит как a b THEN
t = a: a = b: b = t
END IF
IF c > d THEN
t = c: c = d: d = t
END IF
IF a < c AND b < d THEN
PRINT "Входит"
ELSE
PRINT "Не входит"
END IF
Не нашли ответ?
Похожие вопросы