Question

Добрый день,стыдно спрашивать,но спрошу)

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

как это сделать?)

Answer 1

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