Векторные изображения состоят из контуров. которые в свою очередь могут быть : гладкими и угловами. Растровые изображения состоят из точек которые и называют растром или пиксель. Растровые изображения выглядят боилее реалистичнее, такие изображения сохраняются в файлах большего объема. чем векторные. потому что в них запоминается информация о каждом пикселе изображения и такие изображения зависят от их размера. Свободное масштбирование таких изображений без потери качества к ним неприменимо. И эта причина несколько затрудяет их редактирование и обработку.
//PascalABC.Net 3.2 var m, n: integer; a: array of array of integer;
procedure zam(a1, b1: integer); begin for var i:=0 to n-1 do begin a[i][a1]+=a[i][b1]; a[i][b1] :=a[i][a1]-a[i][b1]; a[i][a1]-=a[i][b1]; end; end;
procedure sortSelekt (); var max: integer; begin for var i:=0 to m-1 do begin max:=i; for var j:=i to m-1 do if a[n-1][max]<a[n-1][j] then max:=j; if i<>max then zam (i, max); end; end;
procedure printMAS (); begin for var i:=0 to n-1 do begin for var j:=0 to m-1 do write (a[i][j]:4); writeln; end; end;
begin n:=readinteger('n ='); m:=readinteger('m ='); setLength (a, n); for var i:=0 to n-1 do a[i]:=arrRandom (m, -99, 99);
var m, n: integer;
a: array of array of integer;
procedure zam(a1, b1: integer);
begin
for var i:=0 to n-1 do
begin
a[i][a1]+=a[i][b1];
a[i][b1] :=a[i][a1]-a[i][b1];
a[i][a1]-=a[i][b1];
end;
end;
procedure sortSelekt ();
var max: integer;
begin
for var i:=0 to m-1 do
begin
max:=i;
for var j:=i to m-1 do
if a[n-1][max]<a[n-1][j] then max:=j;
if i<>max then zam (i, max);
end;
end;
procedure printMAS ();
begin
for var i:=0 to n-1 do
begin
for var j:=0 to m-1 do write (a[i][j]:4);
writeln;
end;
end;
begin
n:=readinteger('n =');
m:=readinteger('m =');
setLength (a, n);
for var i:=0 to n-1 do
a[i]:=arrRandom (m, -99, 99);
writeln ('Первоначальная случайная матрица: ');
printMAS();
sortSelekt ();
writeln ('Измененная матрица: ');
printMAS();
end.