Question

Добрый день,стыдно спрашивать,но с решить по программированию на языке qbasic: 1) найти площадь ромба по стороне и острому углу. значения исходных данных ввести с клавиатуры или задать с генератора случайных чисел. вывести на экран изображение ромба и результат вычислений. 2) даны действительные положительные числа a, b, c, d. выяснить, можно ли прямоугольник со сторонами a, b уместить внутри прямоугольника со сторонами c, d так, чтобы каждая из сторон одного прямоугольника была параллельна или перпендикулярна каждой стороне второго прямоугольника. как это сделать? )

Answer 1

1. Площадь ромба можно определить по формуле
$\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$
$\displaystyle k= \frac{arctg(1)}{45}; \quad S=a^2\sin(k\alpha^\circ)$

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<c ∧ b<d

DIM a AS INTEGER, b AS INTEGER, c AS INTEGER, d AS INTEGER, t AS INTEGER
CLS
INPUT "a,b,c,d"; a, b, c, d
IF 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