Normal
0
false
false
false
IN
X-NONE
X-NONE
MicrosoftInternetExplorer4
...
Sunday, May 19, 2013
Array Dalam C++
#include <iostream.h> #include <conio.h> #include <stdio.h> #include <iomanip.h> main() { int bj,n,hs[4],jh[4],bp[4],jb=0,tb; char kp[4],*jp[4]; float pj; cout<<"GEROBAK FRIED CHICKEN \n"; cout<<"------------------------------\n";...
Tuesday, May 22, 2012
function Shrink pada pengolahan citra digital
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...
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]));
...
Subscribe to:
Posts (Atom)