Пример, ненужное уберешь
const
handsfree = true;
var
a: array[1..100, 1..100] of real;
max, min: real;
sum, product: real;
i, j, m, n, k: integer;
begin
{ввод матрицы}
if handsfree then begin
n := random(20) + 2;
m := random(20) + 2;
end
else begin
write('n, m =');
readln(n, m);
end;
writeln('Данные матрицы:');
for i := 1 to m do
begin
for j := 1 to n do
if handsfree then begin
a[i, j] := random(100) - 50;
write(a[i, j]:4, ' ')
end
else
read(a[i, j]);
writeln;
end;
{минимумы и максимумы}
max := a[1, 1];
min := a[1, 1];
for i := 1 to m do
for j := 1 to n do
begin
if max < a[i, j] then max := a[i, j];
if min > a[i, j] then min := a[i, j];
end;
writeln('max = ', max);
writeln('min = ', min);
{сумма, произведение, пр. агригаты}
sum := 0;
product := 1;
for i := 1 to m do
for j := 1 to n do
if a[i, j] <> 0 then {если нужен фильтр}
begin
sum := sum + a[i, j];
product := product * a[i, j];
k := k + 1;
end;
writeln('sum = ', sum);
writeln('product = ', product);
writeln('average = ', sum / (n * m));
writeln('average (selected) = ', sum / k);
end.
А) V = D * t * i * k
V - информационный объем файла
D - частота дискретизации
t - время звучания
i - глубина кодирования 1 сигнала
k - количество каналов
D1 = 8 кГц = 8000 Гц
t = 1 мин = 60 секунд
k = 1 канал (моно-)
i1 = 16 бит = 2 байта
V1 = 8000 Гц * 60 c * 2 байта * 1 = 960000 байт = 937,5 килобайт = 0,91 мегабайт - информационный объем 1 звукового файла
D2 = 24 кГц = 24000 Гц
t = 1 мин = 60 секунд
k = 1 канал (моно-)
i2 = 16 бит = 2 байта
V2 = 24000 Гц * 60 c * 2 байта * 1 = 2880000 байт = 2812,5 килобайт = 2,75 мегабайт
- информационный объем 2 звукового файла
Детская песня - Колыбельная медведицы - 2,09 мегабайт меньше 2 объема на 0,66 Мб и больше 1 объема на 1,18 Мб
Песня Валентины Толкуновой Тебя любила - 1,05 Мб больше 1 объема на 0,14 Мб, меньше второго объема на 1,7 Мб
Это средство копирования данных с одного обьекта на другой или же передача информационо физического процесса, посредством которого осуществляется перемещение информации в пространстве.
Данный процесс характерезуеться наличием таких компонентов как :
1.Источник информации ;
2.Носитель информации ;
3.Среда передачи .
Общее количество пикселей: 2500 * 1500 = 3750000 px
Память: 1.5 MB = 12582912 bit
На один пиксель приходится: 12582912 / 3750000, т.е максимум 3 бита.
При такой глубине цвета доступны 8 цветов.
//PascalABC.Net 3.2
begin
var output: text;
assign (output, readstring('Введите полный путь файла: '));
rewrite (output);
for var i:=1 to readinteger('n =') do writeln(2*i-20);
close (output);
end.
