Дано:
N1 = 256 цветов
N2 = 65536 цветов
Найти:
V1<V2 во сколько раз
1) N1 = 2^i1
256 = 2^8
i1 = 8 бит глубина кодирования 1 пикселя, если использовать палитру 256 цветов
2) N2 = 2^i2
65536 = 2^16
i2 = 16 бит глубина кодирования 1 пикселя, если использовать палитру 65536 цветов
3) пусть S - количество пикселей в изображении - оно одинаково для обеих палитр (по условию задачи рисунок был один и тот же)
тогда
V1 = S * i1, следовательно S = V1 / i1
V2 = S * i2, следовательно S = V2 / i2
V1/i1 = V2/i2
V1/8 = V2/16
V2 * 8 = V1 * 16
Делим обе части на 8
V2 = 2*V1
Значит V2 > V1 в два раза
ответ: информационный объем файла увеличился в два раза.
До x := x + 0.02
После x := x + 0.02*10
Измените промежуток на котором строится график функции на [-5, 10]
До
x := -15;
while x <= 15 do
После
x := -5;
while x <= 10 do
Измените функцию на: 1) tg(x) ; 2) sin(x)+2*x.
До y := 0.4 * x + 2 * sin(3 * x);
После 2) y := sin(x)+2*x;
После 1) y := tan(x);
Выведите на экран график функции только в I и IV четвертях
До circle(x1, y1, 2);
После if x*y>=0 then circle(x1, y1, 2);
Измените цвет фона, цвет графика функции, цвет координатных осей
//PascalABC.NET версия 3.2, сборка 1389
//Если программа не запускается, то обновите версию
program Grafik;
uses GraphABC;
var
x0, y0, x1, y1, k: integer;
x, y: real;
begin
SetWindowSize(640, 400);
Window.Clear(clGold);
x0 := 320;y0 := 200;k := 20;
setPenColor(clRed);
line(20, y0, 620, y0);
line(x0, 20, x0, 380);
setPenColor(clGreen);
SetBrushColor(clLime);
x := -5;
while x <= 10 do
begin
// y := 0.4 * x + 2 * sin(3 * x);
// y := sin(x)+2*x;
y := tan(x);
x1 := trunc(x0 + x * k);
y1 := trunc(y0 - y * k);
if x * y >= 0 then circle(x1, y1, 2);
x := x + 0.02
end;
end.