Добрый день,стыдно спрашивать,но спрошу)
Решить задачи по программированию на языке QBasic:
1) Найти площадь ромба по стороне и острому углу. Значения исходных данных ввести с клавиатуры или задать с помощью генератора случайных чисел. Вывести на экран изображение ромба и результат вычислений.
2) Даны действительные положительные числа a, b, c, d. Выяснить, можно ли прямоугольник со сторонами a, b уместить внутри прямоугольника со сторонами c, d так, чтобы каждая из сторон одного прямоугольника была параллельна или перпендикулярна каждой стороне второго прямоугольника.
как это сделать?)
Ответы
Ответ дал:
0
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](https://tex.z-dn.net/?f=displaystyle+S%3Da%5E2sinalpha%2C+quad+alpha%3D+frac%7Bpi+alpha%5Ecirc%7D%7B180%7D+%5C%0Atgleft%28frac%7Bpi%7D%7B4%7Dright%29%3D1+to+pi%3D4cdot+arctg%281%29%3B+quad+alpha%3D+frac%7Barctg%281%29cdotalpha%5Ecirc%7D%7B45%7D+%3Dkalpha%5Ecirc "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")
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
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
Похожие вопросы
2 года назад
2 года назад
6 лет назад
6 лет назад
9 лет назад
9 лет назад