Uses crt; var p,a,b,c,xa,xb,xc,ya,yb,yc,ab,ac,bc,xab,yab,xbc,ybc,xac,yac:real; s:real; begin writeln('Введите х координаты вершин а и b'); readln(xa,xb); writeln('Введите y координаты вершин а и b'); readln(ya,yb); xab:=xb-xa; yab:=yb-ya; ab:=sqrt(xab*xab+yab*yab); writeln('Введите х координаты вершин а и с'); readln(xa,xc); writeln('Введите y координаты вершин а и c'); readln(ya,yc); xac:=xc-xa; yac:=yc-ya; ac:=sqrt(xac*xac+yac*yac); writeln('Введите х координаты вершин b и с'); readln(xb,xc); writeln('Введите y координаты вершин b и c'); readln(yb,yc); xbc:=xc-xb; yab:=yc-yb; bc:=sqrt(xbc*xbc+ybc*ybc); p:=(ab+bc+ac)/ 2; s:=sqrt(p*(p-ab)*(p-bc)*(p-ac)); writeln(s); end.
1.сколько цветов будет содержать палитра, если каждый базовый цвет кодировать двумя битами? 2^2=4 2.Какой объем видеопамяти в в кбайтах нужен для хранения изображения размером 640х250 пикселей и используещего 16-цветную политуру ? 16=2^4 640*250*4= 640000 бит= 640000/8 байт=80000/1024Кб=78,125Кб 3.видеопамять имеет объем, в котором может хранится 4-х цветное изображение размером 300х200. Какого размера изображение можно хранить в том же объеме памяти, если оно будет использовать 256-ти цветную палитру? 300х200*2=120000 бит 256=2^8 120000бит/8= 15000 -> Ширина*высоту <= 15000 пискселей, например 150*100 4.Сколько цветов можно максимально использовать для хранения изображения размером 350x200 пикселей если объем страницы видеопамяти 65 кбайт 65кб/(35*200)=65кб/(35*200)*8*1024=76,06857143 76>=2^6 -> кол-во цветов 6 5.Пусть видеопамять компьютера имеет объем 512 кбайт. Размер графической сетки 640x480. Сколько страниц может одновременно разместиться в видеопамяти при палитре из 256 цветов? 256=2^8 8*640*480=2457600 бит=300кб Таким образом одна страница
var p,a,b,c,xa,xb,xc,ya,yb,yc,ab,ac,bc,xab,yab,xbc,ybc,xac,yac:real;
s:real;
begin
writeln('Введите х координаты вершин а и b');
readln(xa,xb);
writeln('Введите y координаты вершин а и b');
readln(ya,yb);
xab:=xb-xa;
yab:=yb-ya;
ab:=sqrt(xab*xab+yab*yab);
writeln('Введите х координаты вершин а и с');
readln(xa,xc);
writeln('Введите y координаты вершин а и c');
readln(ya,yc);
xac:=xc-xa;
yac:=yc-ya;
ac:=sqrt(xac*xac+yac*yac);
writeln('Введите х координаты вершин b и с');
readln(xb,xc);
writeln('Введите y координаты вершин b и c');
readln(yb,yc);
xbc:=xc-xb;
yab:=yc-yb;
bc:=sqrt(xbc*xbc+ybc*ybc);
p:=(ab+bc+ac)/ 2;
s:=sqrt(p*(p-ab)*(p-bc)*(p-ac));
writeln(s);
end.