function Shrink (MInput:Matriks;Mengecil:integer):Matriks;
var
i,j:integer;
MOutput:matriks;
begin
setlength(MOutput,length(MInput) div mengecil,length(MInput[0]) div mengecil);
for i:=0 to length(Moutput)-1 do
begin
for j:=0 to length(MOutput[0])-1...
Tuesday, May 22, 2012
function ImgMirror pada pengolahan citra digital
function ImgMirror(MInput:Matriks;keadaan:Char):Matriks;
var
i,j:Integer;
a,b,MOutput:Matriks;
begin
a:=Flipping(MInput,'V');
b:=Flipping(MInput,'H');
case keadaan of
'V': begin
...
function ImageNegativeKetupat pada pengolahan citra digital
function ImageNegativeKetupat(MInput:Matriks):Matriks;
var
i,j,l,s,r:integer ;
MOutput : Matriks ;
begin
SetLength(MOutput,Length(MInput), Length(MInput[0]));
if Length(MInput)<Length(MInput[0]) then
...
Function Polkadot pada pengolahan citra dgital
Function Polkadot(MInput:Matriks;l:integer):Matriks;
var
i,j,m,n,r,c,d:integer ;
MOutput : Matriks ;
begin
d:=1;c:=1;
SetLength(MOutput,Length(MInput),Length(MInput[0]));
MOutput := chess(ImageNegativeL(MInput),l);
m...
function Rekursif pada pengolahan citra digital
function Rekursif (MInput:Matriks;x:integer):Matriks;
var
i,j,k:Integer;
MOutput,temp:Matriks;
begin
temp:=MInput;
setlength(MOutput,length(MInput),length(MInput[0]));
begin
for k:=1 to x do
begin
MOutput:=Shrink(MInput,2);
begin
for i:=0 to length(MOutput)-1 do
...
Sunday, May 20, 2012
Function negative lingkaran belah ketupat pada pengolahan citra digital
fnction kuis2u(MInput:Matriks):Matriks;
var
i,j,r: integer;
MOutput : Matriks;
begin
SetLength(MOutput,Length(MInput), Length(MInput[0]));
r:=Length(Moutput) div 2;
for i:= 0 to Length(MOutput)-1 do
...
function Image Negative Diagonal versi 2 pada pengolahan citra digital
function ImageNegativeDia2(MInput:Matriks):Matriks;
var
i,j : integer;
MOutput : Matriks;
begin
SetLength(MOutput,Length(MInput),Length(MInput[0]));
if Length(MInput)<Length(MInput[0]) then
begin
for i:=1 to Length(MOutput)-1 do
...
function Image Negative Lingkaran dinamis pada pengolahan citra digital
function ImageNegativeLingkaran(MInput:Matriks; Value:Integer):Matriks;
var
i,j,a,b,r : integer;
MOutput : Matriks;
begin
SetLength(MOutput,Length(MInput),Length(MInput[0]));
r:=Value;
a:=(Length(Moutput) div 2);
b:=(Length(Moutput[0])...
Function negative papan catur pada pengolahan citra digital
function ImageNegative4(MInput:Matriks):Matriks;
var
i,j : integer;
MOutput : Matriks;
begin
SetLength(MOutput,Length(MInput),Length(MInput[0]));
for i:=0 to Length(MOutput)-1 do
begin
for j:=0 to Length(MOutput[0])-1 do
...
function negative diagonal pada pengolahan Citra digital
function ImageNegativeDia(MInput:Matriks):Matriks;
var
i,j : integer;
MOutput : Matriks;
begin
SetLength(MOutput,Length(MInput),Length(MInput[0]));
for i:=0 to Length(MOutput)-1 do
begin
for j:=0 to Length(MOutput[0])-1 do
...
Function Rotasi dalam Lingkaran pada pengolahan citra digital
function Rotation2(MInput:Matriks;pil:String):Matriks;
var
i,j,r: integer;
MOutput: Matriks;
begin
if (pil='90C') or (pil='90UC') then
begin
if (Length(MInput)>Length(MInput[0])) then
SetLength(MOutput,...
function setengah addition, blending lingkaran pada pengolahan citra digital
function Kuis1(MInput:Matriks; MInput2:Matriks; Value:integer):Matriks;
var
i,j,k,l,r,a,b : integer;
MOutput : matriks;
begin
SetLength(MOutput,Length(MInput),Length(MInput[0]));
SetLength(MInput2,Length(MInput),Length(MInput[0]));
...
Function Flip dalam lingkaran pada pengolahan citra digital
function Flip2(MInput:Matriks; pil:string):Matriks;
var
i,j,r: integer;
MOutput : matriks;
begin
SetLength (MOutput,Length(MInput),Length(MInput[0]));
r:=Length(Moutput) div 2;
if (pil='vertical') then
begin
for i:=...
function slicing dalam lingkaran pada pengolahan citra digital
function Slicing2(MInput:Matriks; Value:integer):Matriks;
var
i,j,r,k,tempdiv, LevelBit : integer;
MOutput : matriks;
begin
SetLength (MOutput,Length(MInput),Length(MInput[0]));
r:=Length(Moutput) div 2;
for i:= 0 to Length(MOutput)-1...
Function Rotation pada pengolahan citra digital
Function Rotation(MInput:Matriks;pil:String):Matriks;
var
i,j: integer;
MOutput: Matriks;
begin
if (pil='90C') or (pil='90UC') then
begin
SetLength(MOutput, Length(MInput[0]), Length(MInput));
...
Function Flip pada pengolahan citra digital
Function Flip(MInput:Matriks; pil:string):matriks ;
var
i,j:integer;
MOutput:Matriks;
begin
SetLength(MOutput,Length(MInput),Length(MInput[0]));
if (pil='vertical') then
begin
for i:=0 to Length(MOutput)-1 do
begin
...
Function Slicing pada pengolahan citra digital
Function Slicing(MInput:Matriks; Value:integer):Matriks;
var
i,j,k, tempdiv, LevelBit : integer;
MOutput :Matriks;
begin
SetLength (MOutput,Length(MInput),Length(MInput[0]));
LevelBit:=0;
for i:=0 to Length(MOutput)-1...
Tuesday, May 15, 2012
Function Addition versi 2 pada pengolahan citra digital
Function Addtion2(MInput,MInput2:Matriks ; X,Y:integer):Matriks;
var
i,j,k,l : integer;
MOutput : Matriks;
begin
SetLength(MOutput,Length(MInput),Length(MInput[0]));
for i:=0 to Length(MOutput)-1 do
begin
for j:=0 to Length(MOutput[0])-1 do
...
Function Blending pada pengolahan citra digital
Function Blending(MInput,MInput2:Matriks; Value:integer):Matriks;
var
i,j,k,l : integer;
MOutput : Matriks;
begin
if (Length(MInput)>Length(MInput2)) then
begin
SetLength(MOutput,Length(MInput),Length(MInput[0]));
for i:=0 to Length(MOutput)-1 do
begin
...
Function Addtion pada pengolahan citra digital
Function Addtion(MInput,MInput2:Matriks):Matriks;
var
i,j,k,l : integer;
MOutput : Matriks;
begin
if (Length(MInput)>Length(MInput2)) then
begin
SetLength(MOutput,Length(MInput),Length(MInput[0]));
for i:=0 to Length(MOutput)-1 do
begin
for j:=0...
Function Brightness pada pengolahan citra digital
Function Brightness(MInput:Matriks; Value:integer):Matriks;
var
i,j : integer;
MOutput : Matriks;
begin
SetLength(MOutput,Length(MInput),Length(MInput[0]));
for i:=0 to Length(MOutput)-1 do
begin
for j:=0 to Length(MOutput[0])-1 do
...
Function Image Negative Pada pengolahan citra digital
function ImageNegative(MInput:Matriks):Matriks;
var
i,j : integer;
MOutput : Matriks;
begin
SetLength(MOutput,Length(MInput),Length(MInput[0]));
for i:=0 to Length(MOutput)-1 do
begin
for j:=0 to Length(MOutput[0])-1 do
...
Function Change Pixel Value pada pengolahan citra digital
function ChangePixelValue(MInput:Matriks; X,Y,Value:integer):Matriks;
var
i,j:integer;
MOutput : Matriks;
begin
SetLength(MOutput,Length(MInput),Length(MInput[0]));
for i:=0 to Length(MOutput)-1 do
begin
for j:=0...
Monday, February 27, 2012
Menghitung luas segiempat dalam pascal versi 1
Program segiempat;
uses wincrt;
type titik=record
x:integer;
y:integer;
end;
var
a:array [1..2] of titik;
i,luas,panjang,lebar:integer;
begin
writeln('(1)********');
writeln(' ********');
writeln(' ...
Menghitung luas segitiga dalam pascal versi 1
Program segitiga;
uses wincrt;
type point=record
absis:integer;
ordinat:integer;
end;
var
titik:array [1..3] of point;
i,alas,tinggi:integer;
jawaban:real;
begin
writeln(' *(3) ');
writeln('...
Wednesday, February 22, 2012
Subscribe to:
Posts (Atom)