Да, возможно. Векторный рисунок представляет собой некоторые математические основы, заложенные в него, такие как, например, прямые линии, разнообразные геометрические фигуры, и для вывода на экран он как раз таки преобразуется в растровый. Растровый рисунок - рисунок, составленный из пикселей, а экран состоит из пикселей.
Преимущество векторных рисунков в том, что их можно воспроизводить на экранах с большим количеством пикселей без потери качества. Например, без угловатостей.
Var x,y,z:integer;
begin
write('Введите x, y, z: ');
readln(x,y,z);
if (x mod 4=0) and (y mod 4=0) and (z mod 4=0) then
begin
x:=x*2;
y:=y*2;
z:=z*2
end
else
begin
x:=-x;
y:=-y;
z:=-z
end;
writeln(x,' ',y,' ',z)
<span>end.</span>
//Pascal
var
X, Y, z: real;
begin
write('X = ');
readln(X);
write('Y = ');
readln(Y);
if x <= y then
z := x + y
else
z := 1 - x + y;
writeln('z = ', z);
end.
Основной текст в Египте писали чёрной краской ,чтобы выделить начало строки или фразы писали красным .(Но выделяли редко -писчий материал был дорогим).
Const n=3;
type lec=record
name:string;
cost:integer;
end;
var a:array [1..n] of lec;
max1:integer;
m,k,p,i:byte;
begin
for i:=1 to n do
with a[i] do begin
writeln ('Введи наименование товара');
readln (name);
writeln ('введи стоимость товара');
readln (cost);
end;
max1:=-1;
for i:=1 to n do
if a[i].cost>max1 then begin max1:=a[i].cost;
p:=i;
end;
while k<>1 do begin
for i:=1 to n do
if (i<>p) and (a[i].cost=max1) then begin m:=i;
k:=1;
end;
max1:=max1-1;
end;
writeln (a[p].name,' ',a[p].cost);
write (a[m].name,' ',a[m].cost);
readln;
end.