Sunday, May 19, 2013

Program Mencari Diskon di C++

Normal 0 false false false IN X-NONE X-NONE MicrosoftInternetExplorer4 ...

Tipe Data Dalam C++

Normal 0 false false false IN X-NONE X-NONE MicrosoftInternetExplorer4 ...

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]));  ...