Var x:real;
function y16(x:real):real;
begin
if x<=0 then y16:=x+2;
if (x>0) and (x<3) then y16:=-x+2;
if x>=3 then y16:=-2;
end;
function y18(x:real):real;
begin
if x<=0 then y18:=-x-3;
if (x>0) and (x<5) then y18:=x-3;
if x>=5 then y18:=2;
end;
begin
readln(x);
writeln(y16(x));
writeln(y18(x))
end.
Растровая графика описывает изображения с использованием цветных точек — пикселей, расположенных на сетке. Например, серфер в море описывается конкретным расположением и цветом каждой точки изображения, примерно, как в мозаике (фотографии, отсканированные рисунки и т.д.). При редактировании растровой графики изменяются пиксели, а не линии. Растровая графика зависит от разрешения, так как информация, описывающая изображение, прикреплена к сетке определенного размера. При изменении размеров данных файлов, качество может измениться, например, приведет к «разлохмачиванию» краев изображения, поскольку пиксели будут перераспределяться. Вывод растровой графики на устройства с более низким разрешением, чем само изображение, понизит его качество.
Применение растровой графики позволяет добиться качественного изображения, фотографического. Но все это создается за счет большого объема файла и работы вручную, т.е. при редактировании приходится поправлять каждую точку. Даже если использовать инструменты типа линии или примитивов (овалов, квадратов), то результат представляет собой изменение пикселей.
При изменении размеров изображений растровой графики качество ухудшается: при уменьшении — исчезают мелкие детали, а при увеличении картинка может превратиться в набор неряшливых квадратов (увеличенных пикселей).
При печати растровой графики или при просмотре на средствах, имеющих недостаточную разрешающую способность, значительно ухудшается восприятие образа.
Разнообразие форматов растровой графики
Ни одна область применения компьютера не может похвастаться таким многообразием типов форматов файлов, как графика. Многие фирмы, выпуская графическую программу, создают свой собственных формат файлов, в котором редактор должен идеально сохранять все работы, созданные с его помощью. С увеличением количества существующих графических форматов совмещать их становится все труднее. Поэтому появилось несколько определенных форматов, ставших стандартами. Так, например, для изображений в Интернете в большинстве случаев используются форматы JPG и GIF, а в издательском деле царствует TIFF.
Многие растровые форматы обладают способностью нести дополнительную информацию: различные цветовые модели изображения, вектора, альфа-каналы (дополнительный канал, с помощью которого можно сохранять выделенные или прозрачные области изображения), слои различных типов, интерлиньяж (возможность чересстрочного показа изображения), анимацию, возможности сжатия и многое другое.
Достоинства растровых изображений: способность передать тончайшие нюансы изображения, возможность редактировать индивидуально каждый пиксель, изменяя его параметры. Ну, а принципиальный недостаток один — очень большие размеры полученного файла.
Пример:
10010
с конца
0-количество двоек в 0 степени, т. е. единиц
1- количество двоек в первой степени, собственно, двоек
0-количество двоек в 2 степени, т. е 4ерок
0-количество двоек в 3 степени
1-количество двоек в 4 степени, т. е. 16
ТЕПЕРЬ берём каждый разряд, возводим двойку в нужную степень и умножаем на 0 или единицу
<span>1*0+2*1+4*0+8*0+16*1=0+2+0+0+16=18</span>
Ответ: 1
ВОР, больше никак не расшифровывается.
program raf105;
const
n = 35;
var
a: array[1..30] of integer;
b: array[1..40] of integer;
c: array[1..n] of integer;
i : integer;
begin
writeln('Заполните массив A');
for i:=1 to 30 do
readln(a[i]);
writeln('Заполните массив B');
for i:=1 to 40 do
readln(b[i]);
writeln('Заполните массив C');
for i:=1 to n do
readln(c[i]);
for i:=1 to 40 do
begin
if (a[i] < 0) or (b[i] < 0) then
begin
writeln('Нет');
break
end;
if c[i] < 0 then
begin
writeln('Да');
break
end;
end;
end.
<h3>PascalABC</h3>