Розробити програму знаходження відстані яку пройшло тіло , з відомою швидкістю за 5хв.​

Задание 4Дано

[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 секунды

Задание 5

800 · 600 = 480000 пикселей на экране,

480000 · 4 = 1920000 пикселей на четырех страницах,

1920000 · 24 = 46080000 бит для хранения цвета = 5,76 Мбайт.

Задание 6

800 · 600 = 480000 пикселей на экране,

480000 · 24 = 11520000 бит для хранения цвета,

так как за 1 секунду меняется 30 кадров, а у нас 60 секунд, то

11520000 · 60 · 30 = 20736000000 бит = 2.6 Гбайт.

PascalABC.NET 3.3, сборка 1627 от 27.01.2018Внимание! Если программа не работает, обновите версию!

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