Разрешение на мониторе имеет разрешение 1280 x 1024 пикселей, используется 65 536 цветов. Каков информационный объём файла формата BMP, хранящего графическое изображение, предназначенное для рабочего стола?
const {убраны лишние описатели - чистая косметика} a = 2.12; b = 7.45; h = 0.34;
var x, f1, f2, y, s: real; i, n: integer; {описание, необходимое для цикла}
begin { x := a; этот оператор не нужен } s := 0; n := Trunc((b - a) / h)+1; {стандартная формула числа повторений цикла } for i := 1 to n do { Заголовок цикла } begin {начало блока для выполнения в цикле } x := a + (i - 1) * h; { перенесено из конца цикла } f1 := 3 * ln(exp(1 / 5) * ln(sin(x) + sqr(x))); f2 := ((2 * x + 1) / (x * x * x * x * x)); y := f1 / f2; s := s + y; end; {конец блока для выполнения в цикле } Writeln('S=', s:10:5); end.
Program z1; var ar: array of integer; f, l, i, N: integer; begin readln(N); setlength(ar, N+1); for i:=1 to N do read(ar[i]); f:=-1; for i:=1 to N do begin if ar[i]<0 then begin f:=i; break; end; end; if f>0 then begin for i:=N downto 1 do begin if ar[i]<0 then begin l:=i; break; end; end; write(f,' ', l); end else write('No'); end.
program z2; var ar: array of integer; i, N: integer; otv: boolean; begin readln(N); setlength(ar, N+1); for i:=1 to N do read(ar[i]); for i:=1 to N div 2+1 do begin if ar[i]<>ar[N-i+1] then begin otv:=true; break; end; end; if otv=true then write('No') else write('Yes');end.
Объем файла I=k*i , где k- количество пикселей, i - глубина цвета
Глубину цвета i определим из формулы N= 2^i, где N-количество цветов
i= log₂N= log₂ 65536= 16 (бит)
Тогда информационный объем файла:
I= k*i= 1280*1024*16= 10*2⁷*2¹⁰*2⁴= 10*2²¹ бит
Переведем в Мбайт: 10*2²¹/(8*2²⁰)= 2,5 Мб
ответ: 2.5 Мб
Объяснение: