procedure SortByInsert(a: array of integer);
// сортировка простыми вставками
begin
for var i := 1 to a.Length - 1 do
if a[i - 1] > a[i] then begin
var (p, j) := (a[i], i - 1);
while (j >= 0) and (a[j] > p) do
(a[j + 1], j) := (a[j], j - 1);
a[j + 1] := p
end
end;
begin
var a := ArrRandom(15, -50, 50); a.Println;
SortByInsert(a); a.Println
end.
Пример-47 -37 -9 44 7 43 44 -10 5 -12 4 -24 7 21 -47-47 -47 -37 -24 -12 -10 -9 4 5 7 7 21 43 44 44
[V] Информационный объём = 625 Кбайт = 625 · 10³ бит
[i] Глубина кодирования = 16 бит
[D] Частота дискретизации = 32 КГц = 32 · 10³ Гц
Найти[t]
РешениеV = D · t · i · k ⇒ t = V / (D · i · k) = 625 / (32 · 16 · 2) = 0.6 секунды
Задание 5800 · 600 = 480000 пикселей на экране,
480000 · 4 = 1920000 пикселей на четырех страницах,
1920000 · 24 = 46080000 бит для хранения цвета = 5,76 Мбайт.
Задание 6800 · 600 = 480000 пикселей на экране,
480000 · 24 = 11520000 бит для хранения цвета,
так как за 1 секунду меняется 30 кадров, а у нас 60 секунд, то
11520000 · 60 · 30 = 20736000000 бит = 2.6 Гбайт.
1. Дано равнобедренный треугольник АВС один из углов равен 92 °. Найти остальные углов. 2. Найти углы треугольника, если они относятся как 2: 6: 10. 3. Найти сумму внешних углов треугольника, если два внутренних углов равны 35 ° и 76 °. 4. Угол между биссектрисой BL и катетом АС прямоугольного треугольника АВС (угол С = 90 °) равен 55 °. Найти острые кутитрикутника АВС. 5. Один из внутренних углов треугольника на 10 ° больше другого. А внешний угол при третьей вершине равна 120 °. Найти углы треугольника. 6. В треугольнике АВС угол С = 90 °, угол А = 30 °, отрезок ВM - биссектриса угла, найти катет АС.