Нужна формула для расчётов в , и желательно с подробным решением! ответы которые должны получиться приложены в картинкекадры видеозаписи закодированы в режиме истинного цвета (24 бита на пиксель) и сменяются с частотой 25 кадров в секунду, запись содержит стереофонический звук. остальные параметры для разных вариантов заданы в таблице. оцените объём 1 минуты видеозаписи в мегабайтах (с точностью до десятых сколько минут такой записи поместится на стандартный сd-диск объёмом 700 мбайт? ширина кадра, пиксели 320 320 640 640 720 720 720 720 1920 1920 высота кадра, пиксели 240 240 480 480 480 480 576 576 1080 1080 частота дискретизации, кгц 11 48 48 48 22 48 22 48 48 48 глубина кодирования звука, битов 24 16 24 16 16 16 24 24 16 24 степень сжатия 10 8 6 4 10 12 8 6 8 10 объём файла, мбайт поместится на сd-диск, минут
Ответы
Const
n = 10;
var
a: array[1..n] of integer;
i, j, t: integer;
flag:boolean;
begin
Randomize;
Writeln('Исходный массив');
for i := 1 to n do
begin
a[i] := random(101)-50;
Write(a[i]:4)
end;
Writeln;
i:=1;
repeat
flag:=true;
for j := 1 to n-i do
if a[j] > a[j+1] then
begin t := a[j]; a[j] := a[j+1]; a[j+1] := t; flag:=false end;
Inc(i);
until (i>n-1) or flag;
Writeln('Отсортированный по возрастанию массив');
for i := 1 to n do Write(a[i]:4);
Writeln
end.
Тестовое решение:
Исходный массив
-32 -7 2 2 50 -33 1 31 4 -16
Отсортированный по возрастанию массив
-33 -32 -16 -7 1 2 2 4 31 50
n = 10;
var
a: array[1..n] of integer;
i, j, t: integer;
flag:boolean;
begin
Randomize;
Writeln('Исходный массив');
for i := 1 to n do
begin
a[i] := random(101)-50;
Write(a[i]:4)
end;
Writeln;
i:=1;
repeat
flag:=true;
for j := 1 to n-i do
if a[j] > a[j+1] then
begin t := a[j]; a[j] := a[j+1]; a[j+1] := t; flag:=false end;
Inc(i);
until (i>n-1) or flag;
Writeln('Отсортированный по возрастанию массив');
for i := 1 to n do Write(a[i]:4);
Writeln
end.
Тестовое решение:
Исходный массив
-32 -7 2 2 50 -33 1 31 4 -16
Отсортированный по возрастанию массив
-33 -32 -16 -7 1 2 2 4 31 50
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Зачем нужны засечки на буквах а и о расположенных на клавиатуре ? : )
Автор: madina27821667
Сделать 4 и 5 по информатике . тут 30
Автор: vdk81816778
Кім біледы осыны жауап беріндерш
Автор: irnik65
Программада жалған модельді қандай атаумен сақтайсын?
Автор: Yurevna419
Холст – это чистое пространство, которое дается нам для совершения каких-либо действий в разнообразных программах. Например, в графических редакторах холст - это пространство, которое дается нам для рисования рисунка.
Сохранить проект по указанному адресу можно только через пункт меню "Save as copy. Choose a file format". Но тоггда отсутствует возможность редактирования проекта. Если сохранять файл используя пункт меню "Save as Paint 3D project" проект сохраняется по неизвестному адресу. Указать путь нет никакой возможности. Куда сохраняется проект?