ДО ТЬ БУДЬ ЛАСКА. Знайдіть довжину двійкового коду растрового зображення,яке складається з 1024 на 768 пікселів, якщо на кодування одного пікселя відводиться а) 1 біт ; б) 3 байти. Який носій даних можна використати для зберігання таких зображень?
Современный прогресс человечества связан в первую очередь с глобальной информатизацией всего мирового сообщества. Уместно отметить, что современные компьютерные сети являются системой, возможности и характеристики которой в целом существенно превышают соответствующие показатели простой суммы составляющих элементов сети персональных компьютеров при отсутствии взаимодействия между ними. Достоинства компьютерных сетей обусловили их широкое распространение в информационных системах кредитно-финансовой сферы, органов государственного управления и местного самоуправления, предприятий и организаций. Компьютерная сеть - объединение нескольких ЭВМ для совместного решения информационных, вычислительных, учебных и других задач. Все компьютерные сети без исключения имеют одно назначение-обеспечение совместного доступа к общим ресурсам. Слово ресурс очень удобное. Ресурсы бывают трех видов: аппаратные, программные, информационные.
uses crt;
var
ax,ay,bx,by,cx,cy,mx,my,nx,ny,px,py:integer;
S1,S2,Sum:real;
begin
write( 'Введите координату х вершины А:');
readln(ax);
write( 'Введите координату y вершины А:');
readln(ay);
write( 'Введите координату х вершины B:');
readln(bx);
write( 'Введите координату y вершины B:');
readln(by);
write( 'Введите координату х вершины C:');
readln(cx);
write( 'Введите координату y вершины C:');
readln(cy);
write( 'Введите координату х вершины M:');
readln(mx);
write( 'Введите координату y вершины M:');
readln(my);
write( 'Введите координату х вершины N:');readln(nx);
write( 'Введите координату y вершины N:');
readln(ny);
write( 'Введите координату х вершины P:');
readln(px);
write( 'Введите координату y вершины P:');
readln(py);
writeln( 'Координаты треугольника ABC: A(' ,ax,';',ay,') ,B(' ,bx,';',by,') ,C(' ,cx,';',cy,')');
writeln( 'Координаты треугольника MNP: M(' ,mx,';',my,') ,N(' ,nx,';',ny,') ,P(' ,px,';',py,')');
S1:=abs(((ax-cx)*(by-cy)-(bx-cx)*(ay-cy))/2);
writeln('Площадь треугольника ABC=',S1);
S2:=abs(((mx-px)*(ny-py)-(nx-px)*(my-py))/2);
writeln('Площадь треугольника ABC=',S2);
Sum:=s1+s2;
writeln('Сумма площадей=',sum);
readln;end.