// PascalABC.NET 3.3, сборка 1625 от 17.01.2018 // Внимание! Если программа не работает, обновите версию!
begin var (n,m):=ReadInteger2('Количество строк и столбцов в матрице:'); Writeln('*** Исходная матрица ***'); var a:=MatrRandom(n,m,-10,99); a.Println(4); Writeln(4*a.ColCount*'-'); var L:=new List<integer>; // для номеров подходящих строк for var i:=0 to n-1 do if a.Row(i).Any(t->t<=0) then L.Add(i); n:=L.Count; if n=0 then begin Writeln('Все строки содержат только положительные элементы'); exit end; var b:=new integer[n,m]; for var i:=0 to n-1 do b.SetRow(i,a.Row(L[i])); Writeln('*** Результирующая матрица ***'); b.Println(4) end.
// Внимание! Если программа не работает, обновите версию!
begin
var (n,m):=ReadInteger2('Количество строк и столбцов в матрице:');
Writeln('*** Исходная матрица ***');
var a:=MatrRandom(n,m,-10,99);
a.Println(4); Writeln(4*a.ColCount*'-');
var L:=new List<integer>; // для номеров подходящих строк
for var i:=0 to n-1 do
if a.Row(i).Any(t->t<=0) then L.Add(i);
n:=L.Count;
if n=0 then begin
Writeln('Все строки содержат только положительные элементы');
exit
end;
var b:=new integer[n,m];
for var i:=0 to n-1 do
b.SetRow(i,a.Row(L[i]));
Writeln('*** Результирующая матрица ***');
b.Println(4)
end.
Пример
Количество строк и столбцов в матрице: 5 4
*** Исходная матрица ***
12 -9 64 34
53 64 49 74
33 27 -6 72
91 14 23 16
15 64 9 77
----------------
*** Результирующая матрица ***
12 -9 64 34
33 27 -6 72
Палитра 256 цветов.
Размер 10x10 пикселей.
Найти:
Каков информационный объём этого файла?
Решение:
Вначале определяем глубину цвета по формуле
2^i = N. 2^i = 256 по условию, отсюда i = 8 бит.
Вычисляем общее количество пикселей в картинке:
10*10 = 100 пикселей
Информационный объём равен
100 пикселей * 8 бит = 800 бит.
Дано:
разрешающая экрана 1440*900 точек
глубина цвета 32 бит
Найти:
объём графического изображения
Решение:
Вначале вычисляем общее количество пикселей в картинке:
1440 * 900 = 1 296 000 пикселей.
Информационный объем вычисляется по формуле
Объем = количество пикселей * глубина цвета
Объем = 1 296 000 * 32 бит = 41 472 000 бит
Делим на 8 бит в байте, 41 472 000 / 8 = 5 184 000 байт