1) площадь изображения 35.56×35.56 = 1264.51 квадратных дюймов. количество точек в квадратном дюйме 1200×1200 = 1 440 000 точек количество точек во всем изображении 1 440 000 * 1264.51 = 182 089 440 000 глубина цвета 16 бит. 3 цвета RGB * 16 = 48бит на точку Итого 182089440000 * 48 = 8740293120000 бит 8740293120000 / 8 бит в байте / 1024 байт в КБ /1024 кб в мб / 1024 мб в гб = 865,39 Гигабайт
2) для палитры в 4 цвета небоходимо 2^n=4, n=2бита 55*55 = 3025 пикселя * 2 бита на пиксель = 6050бит
3) изображение 12,7×12,7 см. Разрешающая сканера — 600×1200 dpi, глубина цвета — 32 бита. в 1дюйме 2,54 см, 12,7см/2,54 см = 5 дюйм Изображение 5 * 5 = 25 квадратных дюймов 600*1200 = 720 000 точек на квадратный дюйм 720 000 * 25 = 18 000 000 точек на изображение
глубина цвета 32 бит. 3 цвета RGB * 32 = 96 бит на точку Итого 18 000 000 * 96 = 1 728 000 000 бит / 8 бит в байте = 216 000 000 байт
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018 // Внимание! Если программа не работает, обновите версию!
begin var W:=ArrGen(ReadInteger('n='),i->2*Sin(i+1)+3*Cos(i+1)); Write('W: '); W.Println; var R:=W.Where(t->t>W.Average).ToArray; Write('R: '); R.Println; Writeln('Позиция мах: ',R.IndexMax+1) end.
площадь изображения 35.56×35.56 = 1264.51 квадратных дюймов.
количество точек в квадратном дюйме 1200×1200 = 1 440 000 точек
количество точек во всем изображении
1 440 000 * 1264.51 = 182 089 440 000
глубина цвета 16 бит. 3 цвета RGB * 16 = 48бит на точку
Итого 182089440000 * 48 = 8740293120000 бит
8740293120000 / 8 бит в байте / 1024 байт в КБ /1024 кб в мб / 1024 мб в гб = 865,39 Гигабайт
2)
для палитры в 4 цвета небоходимо 2^n=4, n=2бита
55*55 = 3025 пикселя * 2 бита на пиксель = 6050бит
3)
изображение 12,7×12,7 см.
Разрешающая сканера — 600×1200 dpi,
глубина цвета — 32 бита.
в 1дюйме 2,54 см, 12,7см/2,54 см = 5 дюйм
Изображение 5 * 5 = 25 квадратных дюймов
600*1200 = 720 000 точек на квадратный дюйм
720 000 * 25 = 18 000 000 точек на изображение
глубина цвета 32 бит. 3 цвета RGB * 32 = 96 бит на точку
Итого 18 000 000 * 96 = 1 728 000 000 бит / 8 бит в байте =
216 000 000 байт
// Внимание! Если программа не работает, обновите версию!
begin
var W:=ArrGen(ReadInteger('n='),i->2*Sin(i+1)+3*Cos(i+1));
Write('W: '); W.Println;
var R:=W.Where(t->t>W.Average).ToArray;
Write('R: '); R.Println;
Writeln('Позиция мах: ',R.IndexMax+1)
end.
Пример
n= 13
W: 3.30384888722021 0.570154344009936 -2.6877374736816 -3.47453585320669 -1.0668619929366 2.32167986355325 3.57567996046749 1.54221639182092 -1.90915381517052 -3.6052568090081 -1.98670331913725 1.45841604019661 3.56267441800387
R: 3.30384888722021 0.570154344009936 2.32167986355325 3.57567996046749 1.54221639182092 1.45841604019661 3.56267441800387
Позиция мах: 4