После преобразования растрового 256-цветного графического файла в черно-белый формат (2 цвета) его размер уменьшился на 140 байт. каков был размер исходного файла?
Вычислим необходимое число бит для хранения одного пикселя в первом случае:
Во втором случае цвета 2, следовательно, понадобится бит для хранения каждого пикселя.
Так как файл изображение по условию одно и то же, то есть количество пикселей не меняется, то можем утверждать, что в результате преобразования файл уменьшился в раз. Приняв размер исходного файла за , получим уравнение:
Так как байт в современных системах является элементарной единицей размера файла, размер файла округлим в большую сторону, получив 164 байта.
procedure GetPoint(c:char; var A:Point); var x,y:real; begin Write('Введите координаты x и y точки ',c,': '); Read(x,y); A.x:=x; A.y:=y end;
function DistPoint(A,B:Point):real; begin DistPoint:=sqrt(sqr(B.x-A.x)+sqr(B.y-A.y)) end;
var A,B,M:Point; d,p,ab,ma,mb:real; begin GetPoint('A',A); GetPoint('B',B); GetPoint('M',M); ab:=DistPoint(A,B); ma:=DistPoint(M,A); mb:=DistPoint(M,B); if ma>=ab+mb then d:=mb else if mb>=ma+ab then d:=ma else begin p:=(ma+mb+ab)/2; d:=2*sqrt(p*(p-ab)*(p-ma)*(p-mb))/ab end; Writeln('Минимальное расстояние составляет ',d) end.
Тестовое решение: Введите координаты x и y точки A: -3 -5 Введите координаты x и y точки B: 2 5 Введите координаты x и y точки M: -3 4 Минимальное расстояние составляет 4.02492235949962
Const nx=30;mx=30; var i,j,n,m:integer;A:array[1..nx,1..mx] of integer;B,D:array[1..nx] of integer; begin write('Введите n');Readln(n); write('Введите m');Readln(m); for i:=1 to n do begin for j:=1 to m do вegin A[i,j]:=random(100)-20; write(A[i,j]:4);end;writeln;end;writeln; for i:=1 to n do begin for j:=1 to m do begin if (A[i,j] mod 3 =0) then begin B[i]:= B[i] + A[i,j];write(A[i,j]:4);D[i]:= D[i] + 1;end;end;writeln;end; for i:=1 to n do begin if (B[i]=0) and (D[i]= 0) then B[i]:= -10; write(B[i]:4);end;end.
164 байта
Объяснение:
Вычислим необходимое число бит для хранения одного пикселя в первом случае:
Во втором случае цвета 2, следовательно, понадобится
бит для хранения каждого пикселя.
Так как файл изображение по условию одно и то же, то есть количество пикселей не меняется, то можем утверждать, что в результате преобразования файл уменьшился в
раз. Приняв размер исходного файла за 
, получим уравнение:
Так как байт в современных системах является элементарной единицей размера файла, размер файла округлим в большую сторону, получив 164 байта.