рисунки кодируются с следующих команд:
установить х, у — установить в качестве текущей точку с координатами (х, у);
линия к х1, у1 — нарисовать линию от текущей точки до точки с координатами (х, у), при этом точка (х1, у1) становится текущей;
окружность х, у — нарисовать окружность с центром в точке (x, у) и радиусом ;
прямоугольник х1, у1, х2, у2 — нарисовать прямоугольник, где (x1, у1) — координаты левого верхнего, а (х2, у2) — правого нижнего угла этого прямоугольника.
по имеющимся описаниям восстановите рисунки.
описание
установить 60, 20
линия к 20, 60
линия к 180, 60
линия к 140, 20
линия к 60, 20
прямоугольник 60, 80, 100, 60
прямоугольник 100, 120, 150, 60
окружность 140, 40, 10
описание
установить 20, 50 линия к 40, 70 линия к 50, 70 линия к 90, 110 линия к 120, 120 линия к 110, 90 линия к 70, 50 линия к 70, 40 линия к 50, 20 линия к 50, 40 линия к 40, 50 линия к 20, 50 окружность 80, 80, 10 окружность 100, 100, 10
описание
установить 20, 80 линия к 65, 110 линия к 110, 80 линия к 20, 80 прямоугольник 20, 30, 110, 10 прямоугольник 30, 80, 40, 30 прямоугольник 50, 80, 60, 30 прямоугольник 70, 80, 80, 30 прямоугольник 90, 80, 100, 30
описание
установить 30, 40 линия к 40, 10 линия к 60, 10 линия к 70, 40 прямоугольник 20, 50, 80, 40 установить 50, 50 линия к 50, 80 окружность 40, 80, 10 окружность 60, 80, 10 окружность 30, 100, 10 окружность 50, 100, 10 окружность 70, 100, 10 окружность 40, 120, 10 окружность 60, 120, 10
1. картинка
2. 32
Объяснение:
2.
V = х * у * i, где
V - информационный объём изображения (размер файла, содержащего изображение)
х - количество точек (пикселей) по горизонтали
у - количество точек (пикселей) по вертикали
i - глубина цвета (число бит, используемых для записи цвета одного пикселя)
N = 2^i, где
N - количество цветов в палитре
i - глубина цвета (число бит, используемых для записи цвета одного пикселя)
^ - знак степени
Дано:
х = 128
у = 128
V = 10 Кбайт = 81 920 бит
Найти:
N
V = х * у * i
i = V / (х * у)
i = 81 920 / (128 *128) = 5 бит
N = 2⁵ = 32 цвета
1 байт = 8 бит
1 Кбайт = 1024 байт
var a,b,c,max,min,S:real;
begin read(a,b,c);
if a>b then if a>c then max:=a
else max:=c
else if b>c then max:=b
else max:=c;
if a<b then if a<c then min:=a
else min:=c
else if b<c then min:=b
else min:=c;
S:=max+min;
writeln(S:2:2);
end.
Вторая задача(я проверил программу, все норм работает)
var t,S,N:integer;
R:real;
begin read(N);
S:=0;
read(t);
while t<>0 do
begin S:=S+t;
read(t);
end;
R:=S/N;
writeln(R:2:2);
end.