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](https://tex.z-dn.net/?f=%5Cdisplaystyle+S%3Da%5E2%5Csin%5Calpha%2C+%5Cquad+%5Calpha%3D+%5Cfrac%7B%5Cpi+%5Calpha%5E%5Ccirc%7D%7B180%7D+%5C%5C%0Atg%5Cleft%28%5Cfrac%7B%5Cpi%7D%7B4%7D%5Cright%29%3D1+%5Cto+%5Cpi%3D4%5Ccdot+arctg%281%29%3B+%5Cquad+%5Calpha%3D+%5Cfrac%7Barctg%281%29%5Ccdot%5Calpha%5E%5Ccirc%7D%7B45%7D+%3Dk%5Calpha%5E%5Ccirc)
<u>Microsoft qBASIC 1.0</u>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
А) 32/8=4, тоесть 4 байта
б) 8388608 / 8 = 1048576 байт
8388608 / 1024 = 1024 КБ килобайт
(8388608 / 1024) /1024 = 1 мегабайт
в) <span>1.5 * 1024 = </span>1536 килобайт
1.5 * 1024*1024=1572864 байт
1.5 * 1024*1024*8=12582912 бит
Строку for var.. надо поменять на
for var n:=k to 1 do
Объекты , свойства , + кони. 12 , 6 , 24 , + 36.
PascalABC.NET
type mass = array [1..4] of integer;
var a : mass;
i : integer;
function min(c : mass) : integer;
var
i,minim : integer;
begin
minim := c[1];
for i := 2 to 4 do
if c[i] < minim then
minim := c[i];
result := minim;
end;
begin
for i := 1 to 4 do
readln (a[i]);
writeln ('min = ',min(a));<span>
end.
Как параметр я использовал массив из четырех элементов. Можно использовать просто переменные и через IF все прописать</span>