Agaris
6 год назад
Добрый день,стыдно спрашивать,но спрошу)
Решить задачи по программированию на языке QBasic:
1) Найти площадь ромба по стороне и острому углу. Значения исходных данных ввести с клавиатуры или задать с помощью генератора случайных чисел. Вывести на экран изображение ромба и результат вычислений.
2) Даны действительные положительные числа a, b, c, d. Выяснить, можно ли прямоугольник со сторонами a, b уместить внутри прямоугольника со сторонами c, d так, чтобы каждая из сторон одного прямоугольника была параллельна или перпендикулярна каждой стороне второго прямоугольника.
как это сделать?)
ОТВЕТЫ
Федосьевич
Jul 5, 2019
1. Площадь ромба можно определить по формуле
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.
Условие, при котором первый прямоугольник поместится во второй выглядит как alt;c ∧ blt;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 gt; b THEN
t = a: a = b: b = t
END IF
IF c gt; d THEN
t = c: c = d: d = t
END IF
IF a lt; c AND b lt; 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.
Условие, при котором первый прямоугольник поместится во второй выглядит как alt;c ∧ blt;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 gt; b THEN
t = a: a = b: b = t
END IF
IF c gt; d THEN
t = c: c = d: d = t
END IF
IF a lt; c AND b lt; d THEN
PRINT "Входит"
ELSE
PRINT "Не входит"
END IF
15
Смежные вопросы:
