Var
x, y: real;
begin
write('x=');
readln(x);
if x <= -10
then y := x + 50
else
if (x > -10) and (x <= 0)
then y := 2 * abs(x)
else y := 3 * sqr(x) + 1;
writeln('y=', y);
end.
Program n1;
var n: integer;
begin
readln(n);
case n of
1..5: write('рабочий день');
6..7: write('выходной день');
else write('ошибка ввода');
end;
end.
Var a:array[1..50] of integerl;
sr:real;
kol,i:integer;
begin
for i:=1 to 50 do
readln(a[i]);
kol:=0;
sr:=0;
i:=5;
while i<=50 do
begin
sr:=sr+a[i];
kol:=kol+1;
i:=i+5;
end;
writeln(sr/kol);
end.
Векторные рисунки используются для хранения высокоточных графических объектов(рисунков,чертежей и схем),для которых имеет значение сохранение чётких и ясных контуров.Векторные рисунки формируются из графических объектов(линия,прямоугольник,окружность),для каждого из которых задаются координаты опорных точек(например,для рисования окружности достаточно знать координаты её центра и радиус) и формулы рисования объекта.Для каждого объекта можно также указать цвет,толщину и стиль линии(сплошная,пунктирная и т.д.)его контура.екторные рисунки формируются из базовых графических объектов,для каждого из которых задаются координаты опорных точек,формулы рисования объекта,а также цвет,толщина и стиль линии его контура.остоиинством векторной графики является то,что векторные рисунки могут быть увеличены или уменьшены без потери качества .Это возможно,так как изменение размера рисунка производится с помощью простого умножения координат точек графических объектов на коэффициент масштабирования.Другое достоинство векторной графики - небольшой информационный объём файлов,содержащих растровые изображения.Векторная графика лежит в основе flash-анимации, популярной в настоящее время технологии создания анимации.Эта технология позволяет реализовать движение,плавно изменяя расположение,размер и цвет объектов на рисунке,а также показать плавное превращение одного объектв в другой.
В 1 коробке ( с ленточкой ) есть кукла , во второй нет открытки
