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

Ответы 1

1. Площадь ромба можно определить по формуле $\displaystyle S=a^2\sin\alpha, \quad \alpha= \frac{\pi \alpha^\circ}{180} \\ tg\left(\frac{\pi}{4}ight)=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.0DIM a AS DOUBLE, alpha AS DOUBLE, k AS DOUBLE, s AS DOUBLECLSINPUT "a, alpha="; a, alphak = ATN(1) / 45PRINT "S="; a ^ 2 * SIN(alpha * k)2. Договоримся, что a≤b и c≤d. Если после ввода это не так, то меняем местами значения a,b и/или c,d.Условие, при котором первый прямоугольник поместится во второй выглядит как a<c ∧ b<dDIM a AS INTEGER, b AS INTEGER, c AS INTEGER, d AS INTEGER, t AS INTEGERCLSINPUT "a,b,c,d"; a, b, c, dIF a > b THEN t = a: a = b: b = tEND IFIF c > d THEN t = c: c = d: d = tEND IFIF a < c AND b < d THEN PRINT "Входит"ELSE PRINT "Не входит"END IF
- Автор:
  baldiebjih
- 6 лет назад
- 0
Добавить свой ответ

Еще вопросы