Sabtu, 19 Oktober 2013

Cache Memory


Definisi Cache Memory
Cache memory merupakan lokasi data sementara antara prosesor dengan main memory. Penempatan cache memory ditujukan untuk mengurangi gap antara kecepatan prosesor dengan kecepatan main memory.
Cache berasal dari kata cash. Dari istilah tersebut cache adalah tempat menyembunyikan atau tempat menyimpan sementara. Sesuai definisi tersebut cache memory adalah tempat menyimpan data sementara. Cara ini dimaksudkan untuk meningkatkan transfer data dengan menyimpan data yang pernah diakses pada cache memory tersebut, sehingga apabila ada data yang ingin diakses adalah data yang sama maka maka akses akan dapat dilakukan lebih cepat. Cache memory ini adalah memori tipe SDRAM yang memiliki kapasitas terbatas namun memiliki kecepatan yang sangat tinggi dan harga yang lebih mahal dari memori utama. Cache memory ini terletak antara register dan RAM sehingga pemrosesan data tidak langsung mengacu pada memori utama.

Tujuan :
- Memberikan memori yang mempunyai kecepatan mendekati memori tercepat yang tersedia (register)
-  Mmeberikan memori semikonduktor dengan  harga lebih murah
- Untuk mengcopi sebagian isi main memori  yang sering diakses


- Terletak antara CPU dan Main Memory
- Dapat terletak didalam chip CPU  atau didalam modul tersendiri

Manfaat dari cache memory adalah bahwa CPU tidak harus menggunakan sistem bus motherboard untuk mentransfer data. Setiap kali data harus melewati bus sistem, kecepatan transfer data memperlambat kemampuan motherboard. CPU dapat memproses data lebih cepat dengan menghindari hambatan yang diciptakan oleh sistem bus.
Jadi, Cache memory merupakan memori yang memiliki kecepatan sangat tinggi, digunakan sebagai perantara antara Main Memory dan CPU. Memori ini mempunyai kecepatan lebih tinggi daripada Main Memory, namun harganya lebih mahal. Cache memory digunakan untuk menjembatani perbedaan kecepatan CPU yang sangat tinggi dengan kecepatan RAM yang jauh lebih rendah. Dengan menggunakan cache memory, sejumlah data dapat dipindahkan ke memori ini dalam sekali waktu, dan kemudian ALU akan mengambil data tersebut dari memori ini. Dengan pendekatan seperti ini, pemrosesan data dapat dilakukan lebih cepat daripada kalau CPU mengambil data secara langsung dari RAM.

Gambar Sistem Interkoneksi yang terkait dengan Cache Memory


Prinsip Chace Memory
Cache memori ditujukan untuk memberikan kecepatan memori yang mendekati kecepatan memori tercepat yang bisa diperoleh, sekaligus memberikan ukuran memori yang besar dengan harga yang lebih murah dari jenis-jenis memori semikonduktor. Konsepnya adalah sebagai berikut .
Terdapat memori utama yang relatif lebih besar dan lebih lambat dan cache memory yang berukuran lebih kecil dan lebih cepat. Cache berisi salinan sebagian memori utama. Pada saat CPU membaca sebuah word memory, maka dilakukan pemeriksaan untuk mengetahui apakah word itu terdapat pada cache. Bila sudah ada, maka word akan dikirimkan ke CPU. Sedangkan bila tidak ada, blok memori utama yang terdiri dari sejumlah word yang tetap akan dibaca ke dalam cache dan kemudian akan dikirimkan ke CPU.

Jumat, 18 Oktober 2013

Program C++ Untuk Rumah


trans / letak
//Program Rumah Adat Joglo Jawa Tengah
//Tekan x untuk putar dengan sumbu putar x
//Tekan y untuk putar dengan sumbu putar y
//Tekan z untuk putar dengan sumbu putar z
//Tekan w untuk menambah nilai y
//Tekan s untuk mengurangi nilai y
//Tekan a untuk menambah nilai x
//Tekan d untuk mengurangi nilai x
//Tekan q untuk menambah nilai z
//Tekan e untuk mengurangi nilai z
#include <stdlib.h>
#include <GL/glut.h>
int w=600, h=600, z=0;
int x1=0, y1=0, sudut=0, z1=0;
float skalaX=1, skalaY=1, skalaZ=1;
int cx, cy;
static float ypoz = 0, zpoz = 0, xpoz = 0,a = 0, b = 0,c = -10;
void test(int x1,int y1,int x2,int y2,int x3,int y3,int x4,int y4,int
z1,float z2,float z3){
glColor3f(0.9,0.75,0.14); //Depan
glVertex3d(x1,y1,z2);
glVertex3d(x2,y2,z2);
glVertex3d(x3,y3,z2);
glVertex3d(x4,y4,z2);
glColor3f(0.45,0.11,0.+10);//Kanan
glVertex3d(x2,y2,z2);
glVertex3d(x2,y2,z1);
glVertex3d(x3,y3,z1);
glVertex3d(x3,y3,z2);
glColor3f(0.25,0.35,0.-10);//belakang
glVertex3d(x1,y1,z1);
glVertex3d(x2,y2,z1);
glVertex3d(x3,y3,z1);
glVertex3d(x4,y4,z1);
glColor3f(0.50,0.11,0.+13);//Kiri
glVertex3d(x1,y1,z2);
glVertex3d(x1,y1,z1);
glVertex3d(x4,y4,z1);
glVertex3d(x4,y4,z2);
glColor3f(0.75,0.55,0.55);//Bawah
glVertex3d(x1,y1,z2);
glVertex3d(x2,y2,z2);
glVertex3d(x2,y2,z1);
glVertex3d(x1,y1,z1);
glColor3f(0.88,0.60,0.33);//Atas
glVertex3d(x3,y3,z2);
glVertex3d(x4,y4,z2);
glVertex3d(x4,y4,z1);
glVertex3d(x3,y3,z1);
}

void testin(int x1,int y1,int x2,int y2,int x3,int y3,int x4,int
y4,float z1,float z2,float z3){ //Atap
glColor3f(0.22,0.10,0.83);//kanan
glVertex3d(x3,y3,z1);
glVertex3d(x3,y3,z2);
glVertex3d(x3,y1,z3);
glColor3f(0.50,0.5,0.-10);//kiri
glVertex3d(x4,y4,z2);
glVertex3d(x4,y4,z1);
glVertex3d(x4,y1,z3);
}
void testo(int x1,int y1,int x2,int y2,int x3,int y3,int x4,int
y4,float z1,float z2,float z3){//Atap
glColor3f(0.26,0.55,0.-33);//belakang
glVertex3d(x4,y4,z1);
glVertex3d(x3,y3,z1);
glVertex3d(x3,y1,z3);
glVertex3d(x4,y1,z3);
glColor3f(0.10,0.11,0.+50);//depan
glVertex3d(x3,y3,z2);
glVertex3d(x4,y4,z2);
glVertex3d(x4,y1,z3);
glVertex3d(x3,y1,z3);
}
void init(void)
{
glClearColor (0.0, 20.0, 200.0, 0.1);
glOrtho(-15,15,-1,8,-55,25);
glEnable(GL_DEPTH_TEST);
glShadeModel (GL_SMOOTH);
glMatrixMode (GL_PROJECTION);
glLoadIdentity ();
gluPerspective(80.0,2.2, 1.0, 20.0);
glMatrixMode (GL_MODELVIEW);
}

void display(void)
{
glClear (GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT);
glLoadIdentity ();
glTranslatef(a,b,c);
glRotatef(xpoz,1,0,0);
glRotatef(ypoz,0,1,0);
glRotatef(zpoz,0,0,1);

glPushMatrix();//tanah
glColor3f(0.-10,0.-7,0.-1);
glTranslatef(-0.6, -3, -0.46);
glScalef(5,0.1,5);
glutSolidCube(6);
glPopMatrix();

//atap kanan
/*glPushMatrix();
glEnable(GL_COLOR_MATERIAL);
glColor3f(0.30,0.2,0.10);
glTranslatef(4.5,2,-1);
glRotatef(45,0,1,0);
glScalef(6,4,6);
glutSolidOctahedron();
glDisable(GL_COLOR_MATERIAL);
glPopMatrix();

//atap kiri
glPushMatrix();
glEnable(GL_COLOR_MATERIAL);
glColor3f(0.30,0.2,0.15);
glTranslatef(-4.5,2,-1);
glRotatef(45,0,1,0);
glScalef(7,4,7);
glutSolidOctahedron();
glDisable(GL_COLOR_MATERIAL);
glPopMatrix();

//atap 2
glPushMatrix();
glEnable(GL_COLOR_MATERIAL);
glColor3f(0.70,8.58,0.10);
glTranslatef(0,2,-0);
glRotatef(45,0,1,0);
glScalef(7,4,7);
glutSolidOctahedron();
glDisable(GL_COLOR_MATERIAL);
glPopMatrix();

//atap atas
glPushMatrix();
glEnable(GL_COLOR_MATERIAL);
glColor3f(1.10,1.10,0.-10);
glTranslatef(0,4,-1);
glRotatef(45,0,1,0);
glScalef(7,5,7);
glutSolidOctahedron();
glDisable(GL_COLOR_MATERIAL);
glPopMatrix();
*/

//pohon depan kanan
glPushMatrix();//
glEnable(GL_COLOR_MATERIAL);
glColor3f(1, 0.11, 0.10);
glTranslatef(8,0,10);
glScalef(0.2, 6, 0.2);
glutSolidCube(1);
glEnable(GL_COLOR_MATERIAL);
glPopMatrix();
glPushMatrix();//
glEnable(GL_COLOR_MATERIAL);
glColor3f(0,1,0);
glTranslatef(8,3,10);
glRotatef(5,0,1,0);
glScalef(1,-4,1);
glutSolidOctahedron();
glDisable(GL_COLOR_MATERIAL);
glPopMatrix();
glPushMatrix();///////
glEnable(GL_COLOR_MATERIAL);
glColor3f(1, 0.11, 0);
glTranslatef(6,0,10);
glScalef(0.2, 5, 0.2);
glutSolidCube(1);
glEnable(GL_COLOR_MATERIAL);
glPopMatrix();
glPushMatrix();//
glEnable(GL_COLOR_MATERIAL);
glColor3f(0,1,0);
glTranslatef(6,1,10);
glRotatef(5,0,1,0);
glScalef(1,-2,1);
glutSolidOctahedron();
glDisable(GL_COLOR_MATERIAL);
glPopMatrix();
glPushMatrix();///////
glEnable(GL_COLOR_MATERIAL);
glColor3f(1, 0.11, 0);
glTranslatef(10,-2,10);
glScalef(0.2, 2, 0.2);
glutSolidCube(1);
glEnable(GL_COLOR_MATERIAL);
glPopMatrix();
glPushMatrix();//
glEnable(GL_COLOR_MATERIAL);
glColor3f(0,1,0);
glTranslatef(10,0,10);
glRotatef(5,0,1,0);
glScalef(1,-2,1);
glutSolidOctahedron();
glDisable(GL_COLOR_MATERIAL);
glPopMatrix();

//pohon depan kiri
glPushMatrix();
glEnable(GL_COLOR_MATERIAL);
glColor3f(1, 0.11, 0);
glTranslatef(-8,0,10);
glScalef(0.2, 6, 0.2);
glutSolidCube(1);
glEnable(GL_COLOR_MATERIAL);
glPopMatrix();
glPushMatrix();//
glEnable(GL_COLOR_MATERIAL);
glColor3f(0,1,0);
glTranslatef(-8,3,10);
glRotatef(5,0,1,0);
glScalef(1,-4,1);
glutSolidOctahedron();
glDisable(GL_COLOR_MATERIAL);
glPopMatrix();
glPushMatrix();///////
glEnable(GL_COLOR_MATERIAL);
glColor3f(1, 0.11, 0);
glTranslatef(-6,0,10);
glScalef(0.2, 5, 0.2);
glutSolidCube(1);
glEnable(GL_COLOR_MATERIAL);
glPopMatrix();
glPushMatrix();//
glEnable(GL_COLOR_MATERIAL);
glColor3f(0,1,0);
glTranslatef(-6,1,10);
glRotatef(5,0,1,0);
glScalef(1,-2,1);
glutSolidOctahedron();
glDisable(GL_COLOR_MATERIAL);
glPopMatrix();
glPushMatrix();///////
glEnable(GL_COLOR_MATERIAL);
glColor3f(1, 0.11, 0);
glTranslatef(-10,-2,10);
glScalef(0.2, 2, 0.2);
glutSolidCube(1);
glEnable(GL_COLOR_MATERIAL);
glPopMatrix();
glPushMatrix();//
glEnable(GL_COLOR_MATERIAL);
glColor3f(0,1,0);
glTranslatef(-10,0,10);
glRotatef(5,0,1,0);
glScalef(1,-2,1);
glutSolidOctahedron();
glDisable(GL_COLOR_MATERIAL);
glPopMatrix();

//pohon belakang kanan
glPushMatrix();//
glEnable(GL_COLOR_MATERIAL);
glColor3f(1, 0.11, 0);
glTranslatef(8,0,-10);
glScalef(0.2, 6, 0.2);
glutSolidCube(1);
glEnable(GL_COLOR_MATERIAL);
glPopMatrix();
glPushMatrix();//
glEnable(GL_COLOR_MATERIAL);
glColor3f(0,1,0);
glTranslatef(8,3,-10);
glRotatef(5,0,1,0);
glScalef(1,-4,1);
glutSolidOctahedron();
glDisable(GL_COLOR_MATERIAL);
glPopMatrix();
glPushMatrix();///////
glEnable(GL_COLOR_MATERIAL);
glColor3f(1, 0.11, 0);
glTranslatef(6,0,-10);
glScalef(0.2, 5, 0.2);
glutSolidCube(1);
glEnable(GL_COLOR_MATERIAL);
glPopMatrix();
glPushMatrix();//
glEnable(GL_COLOR_MATERIAL);
glColor3f(0,1,0);
glTranslatef(6,1,-10);
glRotatef(5,0,1,0);
glScalef(1,-2,1);
glutSolidOctahedron();
glDisable(GL_COLOR_MATERIAL);
glPopMatrix();
glPushMatrix();///////
glEnable(GL_COLOR_MATERIAL);
glColor3f(1, 0.11, 0);
glTranslatef(10,-2,-10);
glScalef(0.2, 2, 0.2);
glutSolidCube(1);
glEnable(GL_COLOR_MATERIAL);
glPopMatrix();
glPushMatrix();//
glEnable(GL_COLOR_MATERIAL);
glColor3f(0,1,0);
glTranslatef(10,0,-10);
glRotatef(5,0,1,0);
glScalef(1,-2,1);
glutSolidOctahedron();
glDisable(GL_COLOR_MATERIAL);
glPopMatrix();

//pohon belakang kiri
glPushMatrix();
glEnable(GL_COLOR_MATERIAL);
glColor3f(4, 0.10, 0);
glTranslatef(-8,0,100);
glScalef(0.2, 8, 0.5);
glutSolidCube(1);
glEnable(GL_COLOR_MATERIAL);
glPopMatrix();
glPushMatrix();//
glEnable(GL_COLOR_MATERIAL);
glColor3f(0,1,0);
glTranslatef(-8,3,-10);
glRotatef(5,0,1,0);
glScalef(1,-4,1);
glutSolidOctahedron();
glDisable(GL_COLOR_MATERIAL);
glPopMatrix();
glPushMatrix();///////
glEnable(GL_COLOR_MATERIAL);
glColor3f(1, 0.11, 0);
glTranslatef(-6,0,-10);
glScalef(0.2, 5, 0.2);
glutSolidCube(1);
glEnable(GL_COLOR_MATERIAL);
glPopMatrix();
glPushMatrix();//
glEnable(GL_COLOR_MATERIAL);
glColor3f(0,1,0);
glTranslatef(-6,1,-10);
glRotatef(5,0,1,0);
glScalef(1,-2,1);
glutSolidOctahedron();
glDisable(GL_COLOR_MATERIAL);
glPopMatrix();
glPushMatrix();///////
glEnable(GL_COLOR_MATERIAL);
glColor3f(1, 0.11, 0);
glTranslatef(-10,-2,-10);
glScalef(0.2, 2, 0.2);
glutSolidCube(1);
glEnable(GL_COLOR_MATERIAL);
glPopMatrix();
glPushMatrix();//
glEnable(GL_COLOR_MATERIAL);
glColor3f(0,1,0);
glTranslatef(-10,0,-10);
glRotatef(5,0,1,0);
glScalef(1,-2,1);
glutSolidOctahedron();
glDisable(GL_COLOR_MATERIAL);
glPopMatrix();


glBegin(GL_QUADS);//Rumah
test(-6,-2, 6,-2 ,6,2 ,-6,2, -5,3,-0);//rumah
test(-8,2, 0,8 ,8,2, 8,2,-5,3,-0);//atap
test(8,-2,8,-2,8,2,8,2,-5,3,0);//kamar
test(-8,-2,8,-2,8,-3,-8,-3,-6,8,0);//Teras
test(-8,-2,-7,-2,-7,2,-8,2,4,4.5,4);//Tiang kiri1
test(-3,-2,-2,-2,-2,2,-3,2,4,4.5,4);//Tiang kiri2
test(7,-2,8,-2,8,2,7,2,4,4.5,4);// Tiang kanan
test(3,-2,2,-2,2,2,3,2,4,4.5,4);// Tiang kanan
//testo(-7,7,0,0,7,3,-7,3,-5.5,4.5,0);//atap
//testo(-8,8,0,0,8,2,-8,2,-5.5,4.5,0);

glColor3f(0.85,0.85,0.43);//plafon belakang
glVertex3d(8,1.8,-5.5);
glVertex3d(-8,1.8,-5.5);
glVertex3d(-8,1.8,4.5);
glVertex3d(8,1.8,4.5);
glVertex3d(8,1.8,-5.5);
glVertex3d(-8,1.8,-5.5);
glVertex3d(-8,2,-5.5);
glVertex3d(8,2,-5.5);

glColor3f(0.85,0.85,0.43);//plafon depan
glVertex3d(8,1.8,4);
glVertex3d(-8,1.8,4);
glVertex3d(-8,1.8,4.5);
glVertex3d(8,1.8,4.5);//
glVertex3d(8,1.8,4.5);
glVertex3d(-8,1.8,4.5);
glVertex3d(-8,2,4.5);
glVertex3d(8,2,4.5);
glColor3f(0.85,0.85,0.43);//plafon 1
glVertex3d(7,2,-4);
glVertex3d(-7,2,-4);
glVertex3d(-7,2,4.5);
glVertex3d(7,2,4.5);
glVertex3d(7,2,4.5);
glVertex3d(-7,2,4.5);
glVertex3d(-7,2,4.5);
glVertex3d(7,2,4.5);

glColor3f(0.85,0.85,0.43);//plafon 2
glVertex3d(8,2,-5.5);
glVertex3d(-8,2,-5.5);
glVertex3d(-8,2,4.5);
glVertex3d(8,2,4.5);
glVertex3d(8,2,-5.5);
glVertex3d(-8,2,-5.5);
glVertex3d(-8,2,-5.5);
glVertex3d(8,2,-5.5);

glVertex3d(3,-1,4.1);//jendela kamar2
glVertex3d(5,-1,4.1);
glVertex3d(5,1,4.1);
glVertex3d(3,1,4.1);
glVertex3d(-2,-2,3.);//pintu depan
glVertex3d(2,-2,3.05);
glVertex3d(2,1.3,3.05);
glVertex3d(-2,1.3,3.05);
glVertex3d(-2,-2,-5.05);//pintu belakang
glVertex3d(2,-2,-5.05);
glVertex3d(2,1,-5.05);
glVertex3d(-2,1,-5.05);
glVertex3d(-3,-1,4.1);//jendela rmh1 depan
glVertex3d(-5,-1,4.1);
glVertex3d(-5,1,4.1);
glVertex3d(-3,1,4.1);
glVertex3d(-6.5,-1,-5.05);//jendela rmh1 belakang
glVertex3d(-2.5,-1,-5.05);
glVertex3d(-2.5,1,-5.05);
glVertex3d(-6.5,1,-5.05);

glVertex3d(6.5,-1,-5.05);//jendela rmh2 belakang
glVertex3d(2.5,-1,-5.05);
glVertex3d(2.5,1,-5.05);
glVertex3d(6.5,1,-5.05);
glEnd();

//glBegin(GL_TRIANGLES);
//testin(-8,8,0,6,8,2,-8,2,-5.5,4.5,0);
//glEnd();

glBegin(GL_LINES);
glColor3f(0.0f,0.0f,0.0f);
glVertex3d(8,1.8,4.5);
glVertex3d(-8,1.8,4.5);
glVertex3d(-8,1.8,-5.5);
glVertex3d(8,1.8,-5.5);
glColor3f(1,0,0);
glVertex3d(-4.5,-1,-5.05);
glVertex3d(-4.5,1,-5.05);
glVertex3d(4.5,-1,-5.05);
glVertex3d(4.5,1,-5.05);
glEnd();
glutSwapBuffers();
}
void keyboard(unsigned char key, int x, int y)
{
switch (key) {
case 'x':
xpoz=xpoz+5;
if (xpoz>360) xpoz=0;
glutPostRedisplay();
break;
case 'y':
ypoz=ypoz+5;
if (ypoz>360) ypoz=0;
glutPostRedisplay();
break;
case 'z':
zpoz = zpoz+1;
if (zpoz>360) zpoz=0;
glutPostRedisplay();
break;
case 'w':
b = b + 1;
glutPostRedisplay();
break;
case 's':
b = b - 1;
glutPostRedisplay();
break;
case 'a':
a = a + 1;
glutPostRedisplay();
break;
case 'd':
a = a - 1;
glutPostRedisplay();
break;
case 'q':
c = c + 1;
glutPostRedisplay();
break;
case 'e':
c = c - 1;
glutPostRedisplay();
break;
}
}

void resize(int w1, int h1){
 glViewport(0,0,w1,h1);
 glMatrixMode(GL_PROJECTION);
 glLoadIdentity();
 gluPerspective(45.0,(float) w1/(float) h1, 1.0,300.0);
 glMatrixMode(GL_MODELVIEW);
 glLoadIdentity();
}

int main(int argc, char** argv)
{
glutInit(&argc, argv);
glutInitDisplayMode (GLUT_RGB | GLUT_DEPTH | GLUT_DOUBLE);
glutInitWindowSize (800, 500);
glutInitWindowPosition (300, 100);
glutCreateWindow("Rumah Joglo Jawa Tengah");
init ();
glutReshapeFunc(resize);
glutDisplayFunc(display);
glutKeyboardFunc(keyboard);
glutMainLoop();
return 0;
}

Program Pascal Pengisian Data Mahasiswa


program pengisian_datamahasiswa;

uses crt;

type a=record

b,c: string;

d,e,f,g: integer;

h:char;

end;

var

mhs : array[1..40] of a;

i,n,tot1,tot2 : integer;

ip:real;



begin

clrscr;

write('Nama     : Zakky Aulia');
writeln;
write('Nomor Bp : 1110453027');
writeln;
write('Jurusan  : Sistem Komputer');
writeln;writeln;

tot1:=0;

tot2:=0;

write ('Banyak Mata Kuliah : ');readln(n);

for i:=1 to n do

begin

write('Kode Mata Kuliah : '); readln(mhs[i].b);

write('Nama Mata Kuliah : '); readln(mhs[i].c);

write('Nilai Angka : '); readln(mhs[i].d);

if mhs[i].d <= 41 then begin mhs[i].h :='E';

mhs[i].e:=0 end

else

if mhs[i].d <= 55 then begin mhs[i].h :='D';

mhs[i].e:=1 end

else

if mhs[i].d <= 65 then begin mhs[i].h :='C';

mhs[i].e:=2 end

else

if mhs[i].d <= 79 then begin mhs[i].h :='B';

mhs[i].e:=3 end

else begin mhs[i].h := 'A';

mhs[i].e:=4; end;

write('Banyak SKS : '); readln(mhs[i].f);

tot1:=tot1+mhs[i].f;

mhs[i].g:=mhs[i].e*mhs[i].f;

tot2:=tot2+mhs[i].g;

ip:=tot2/tot1;

writeln;

end;

clrscr;
write('Nama     : Zakky Aulia');
writeln;
write('Nomor BP : 1110453027');
writeln;
write('Jurusan  : Sistem Komputer');
writeln;

writeln('______________________________________________________ ');

writeln('No| Kode | Mata kuliah | Angka | Huruf | SKS | Total');

writeln('______________________________________________________ ');

for i:= 1 to n do

begin

write(i:2,mhs[i].b:5, mhs[i].c:15, mhs[i].d:7, mhs[i].h: 7,

mhs[i].f: (7), mhs[i].g: 9 );
writeln;

end;

gotoxy(1,n+9);writeln('Total SKS : ',tot1);

writeln;

writeln('IP : ',ip:2:0);

readln;


end.


Input Untuk Tampilan Data Mahasiswa




Tampilan Output





Definisi Port dan Macam-macam Port


Port Merupakan antarmuka pada perangkat internetworking (misalnya suatu router), istilah dalam IP, proses pada layer yang lebih tinggi untuk menerima informasi dalam layer yang lebih rendah. Port diberi nomor, setiap port yang dinomori terhubung dengan sutau proses tertentu. sebagai contoh: SMTP dihubungkan dengan port 25, FTP dihubungkan dengan port 21 dan HTTP dihubungkan dengan port 80. Nomor port juga disebut sebagai alamatnya. Port dapat mengidentifikasikan aplikasi dan layanan yang menggunakan koneksi di dalam jaringan TCP/IP. Sehingga, port juga mengidentifikasikan sebuah proses tertentu di mana sebuah server dapat memberikan sebuah layanan kepada klien atau bagaimana sebuah klien dapat mengakses sebuah layanan yang ada dalam server. Port dapat dikenali dengan angka 16-Bit (dua byte) yang disebut dengan Port Number dan diklasifikasikan dengan jenis protokol transport apa yang digunakan, ke dalam Port TCP dan Port UDP. Karena memiliki angka 16-bit, maka total maksimum jumlah port untuk setiap protokol transport yang digunakan adalah 65536 buah.
Dilihat dari penomorannya, port UDP dan TCP dibagi menjadi tiga jenis, yakni sebagai berikut:
  • Well-known Port: yang pada awalnya berkisar antara 0 hingga 255 tapi kemudian diperlebar untuk mendukung antara 0 hingga 1023. Port number yang termasuk ke dalam well-known port, selalu merepresentasikan layanan jaringan yang sama, dan ditetapkan oleh Internet Assigned Number Authority (IANA). Beberapa di antara port-port yang berada di dalam range Well-known port masih belum ditetapkan dan direservasikan untuk digunakan oleh layanan yang bakal ada di masa depan. Well-known port didefinisikan dalam RFC 1060.
  • Registered Port: Merupakan Port-port yang digunakan oleh vendor-vendor komputer atau jaringan yang berbeda untuk mendukung aplikasi dan sistem operasi yang mereka buat. Registered port juga diketahui dan didaftarkan oleh IANA tapi tidak dialokasikan secara permanen, sehingga vendor lainnya dapat menggunakan port number yang sama. Range registered port berkisar dari 1024 hingga 49151 dan beberapa port di antaranya adalah Dynamically Assigned Port.
  • Dynamically Assigned Port: merupakan port-port yang ditetapkan oleh sistem operasi atau aplikasi yang digunakan untuk melayani request dari pengguna sesuai dengan kebutuhan. Dynamically Assigned Port berkisar dari 1024 hingga 65536 dan dapat digunakan atau dilepaskan sesuai kebutuhan.
Berikut Ini Adalah Beberapa Contoh Dari Welknown Yang Sering kali Kita Gunakan  Port Beserta Dengan Fungsi Port-Port tersebut
Port
Jenis Port
Keyword
Digunakan oleh
20
TCP, UDP
ftp-data
File Transfer protocol (default data)
21
TCP, UDP
ftp
File Transfer protocol (control),connection dialog
23
TCP, UDP
telnet
telnet
25
TCP, UDP
smtp
Simple Mail Transfer Protocol  alias = mail
53
TCP, UDP
domain
Domain Name System Server
67
TCP, UDP
bootpc
DHCP/BOOTP Protocol Server
68
TCP, UDP
bootpc
DHCP/BOOTP Protocol Server
69
TCP, UDP
tftp
Trivial File Transfer Protocol
80
TCP, UDP
www
World Wide Web HTTP
110
TCP, UDP
pop3
PostOfficerotocolversion3(POP3);alias=postoffice
123
TCP, UDP
ntp
Network Time Protocol; alias = ntpd ntp
220
TCP, UDP
imap3
Interactive Mail Access Protocol versi 3
Berikut Ini pengertian nama-nama kegunaan port tersebut
·         FTP (singkatan dari File Transfer Protocol) adalah sebuah protokol Internetyang berjalan di dalam lapisan aplikasi yang merupakan standar untuk pentransferan berkas (file) computer antar mesin-mesin dalam sebuah internetwork
·         SMTP (Simple Mail Transfer Protocol) merupakan salah satu protokol yang umum digunakan untuk pengiriman surat elektronik di Internet. Protokol ini dipergunakan untuk mengirimkan data dari komputer pengirim surat elektronik ke server surat elektronik penerima.
·         HTTP (Hypertext Transfer Protocol, lebih sering terlihat sebagai http) adalah protocol yang dipergunakan untuk mentransfer dokumen dalam World Wide Web (WWW). Protokol ini adalah protokol ringan, tidak berstatus dan generik yang dapat dipergunakan berbagai macam tipe dokumen.
·         POP3 (Post Office Protocol version 3) adalah protokol yang digunakan untuk mengambil surat elektronik (email) dari server email.
·         IMAP (Internet Message Access Protocol) adalah protokol standar untuk mengakses/mengambil e-mail dari server. IMAP memungkinkan pengguna memilih pesan e-mail yang akan ia ambil, membuat folder di server, mencari pesan e-mail tertentu, bahkan menghapus pesan e-mail yang ada.

Macam-Macam Port dan Fungsinya Pada Jaringan Komputer

• Port 80, Web Server
Port ini biasanya digunakan untuk web server, jadi pada saat user mengetikan alamat IP atau hostname di web broeser maka web browser akan melihat IP tsb pada port 80,

• Port 81, Web Server Alternatif
sewaktu port 80 diblok maka port 81 ini akan digunakan sebagai port altenatif hosting website

• Port 21, FTP Server
Ketika seseorang mengakses FTP server, maka ftp client secara default akan melakukan koneksi melalui port 21 dengan ftp server

• Port 22, SSH Secure Shell
Port ini digunakan untuk port SSH (Secure Shell)

• Port 23, Telnet
Digunakan client telnet untuk hubungan dengan server telnet

• Port 25, SMTP(Simple Mail Transport Protokol)
proses pengiriman email ke server SMTP,port yg digunakan adalah port 25

• Port 2525 SMTP Alternate Server
Port 2525 adalah port alternatifi aktif dari TZO untuk menservice forwarding email. Port ini bukan standard port, namun dapat diguunakan apabila port smtp terkena blok.

• Port 110, POP Server
Jika anda menggunakan Mail server, user jika log ke dalam mesin tersebut via POP3 (Post Office Protokol) atau IMAP4 (Internet Message Access Protocol) untuk menerima emailnya, POP3 merupakan protokol untuk mengakses mail box

• Port 119, News (NNTP) Server

• Port 3389, Remote Desktop
Port ini adalah untuk remote desktop di WinXP

• Port 389, LDAP Server
LDAP Directory Access Protocol menjadi populer untuk mengakses Direktori, atau Nama, Telepon, Alamat direktori. Contoh untuk LDAP: / / LDAP.Bigfoot.Com adalaha LDAP directory server.

• Port 143, IMAP4 Server
IMAP4 atau Pesan Akses Internet Protocol semakin populer dan digunakan untuk mengambil Internet Mail dari server jauh.Disk lebih intensif, karena semua pesan yang disimpan di server, namun memungkinkan untuk mudah online, offline dan diputuskan digunakan.

• Port 443, Secure Sockets Layer (SSL) Server
Ketika Anda menjalankan server yang aman, SSL Klien ingin melakukan koneksi ke server Anda Aman akan menyambung pada port

• 443. This port needs to be open to run your own Secure Transaction server.
Port 445, SMB over IP, File Sharing
Kelemahan windows yg membuka port ini. biasanya port ini digunakan sebagai port file sharing termasuk printer sharing, port inin mudah dimasukin virus atau worm dan sebangsanya

• Ports 1503 and 1720 Microsoft NetMeeting and VOIP
MS NetMeeting dan VOIP memungkinkan Anda untuk meng-host Internet panggilan video atau lainnya dengan.

• Port 5631, PCAnywhere

• Port 5900, Virtual Network Computing (VNC)

Bila Anda menjalankan VNC server remote kontrol ke PC Anda, menggunakan port 5900. VNC berguna jika anda ingin mengontrol remote server.

• Port 111, Portmap

• Port 3306, Mysql

• Port 981/TCP

Program Pascal Pemesanan Perabot


program perabot;
uses crt;
var
nama,kota,almt,prov : array [1..100] of string;
brg,kode,dkn : array [1..100,1..100] of string;
hrga,byak : array [1..100,1..100] of longint;
tot: array [1..100,1..100] of real;
i,j,n,m: integer;
z : char;

BEGIN
textbackground(black);
textcolor(green);
clrscr;
for i:=1 to 10 do
begin
clrscr;
writeln('--------------------------------------------------------------------------------');
gotoxy(24,2);writeln('      <<<Pemesanan Online>>>');
gotoxy(23,3);writeln('<<<Zakky Aulia Perabot International>>>
write('Nama Pelanggan : ');readln(nama[i]);
write('Alamat         : ');readln(almt[i]);
write('Kota           : ');readln(kota[i]);
write('Provinsi       : ');readln(prov[i]);
for j:=1 to 10 do
begin
textbackground(GREEN);
textcolor(yellow);
clrscr;
writeln('--------------------------------------------------------------------------------');
gotoxy(30,2);writeln('Barang Yang Anda Pesan');
writeln('--------------------------------------------------------------------------------');
write('Nama Barang   : ');readln(brg[i,j]);
write('Kode Barang   : ');readln(kode[i,j]);
write('Harga Barang  : ');readln(hrga[i,j]);
write('Banyak Barang : ');readln(byak[i,j]);writeln;writeln;
tot[i,j]:=hrga[i,j]*byak[i,j];
end;
end;
begin

clrscr;
for i:=1 to 10 do
begin
CLRSCR;
writeln('================================================================================');
gotoxy(30,2);Writeln('        Daftar Belanja');
gotoxy(30,3);writeln('Zakky Aulia Perabot International');
writeln('================================================================================');
writeln('Nama     : ',nama[i]);
writeln('Alamat   : ',almt[i]);
writeln('Kota     : ',kota[i]);
writeln('Provinsi : ',prov[i]);

writeln('================================================================================');
writeln('|NO|       NAMA     |  KODE  |  HARGA   |  BANYAK  |  TOTAL  |');
writeln('|  |      BARANG    | BARANG |  BARANG  |  BARANG  |         |');
writeln('================================================================================');
for j:=1 to 10 do
begin
writeln('|',j,' |',brg[i,j]:14,'  |',kode[i,j]:6,'  |',hrga[i,j]:8,'  |',byak[i,j]:6,'    |',(tot[i,j]):2:0);
end;
readln;
end;
end;
readln;

END.

Senin, 21 Januari 2013

Program Pascal


Sekarang saya akan mencoba flash back kembali mata kuliah algoritma dgn memposting beberapa bahasa pemograman pascal... kali aja ni program bisa memudahkan & membantu anda dalam memahami pascal...

Program Stok Barang
uses crt;
var  nama,bp: string[20];
     kode,harga : array [1..100] of string[20];
     barang : array [1..100] of string;
     keluar : boolean;
     lagi : char;
     n,i: integer;
begin
  clrscr;
  write('Nama anda : '); readln(nama);
  write('No BP     : '); readln(bp);
  writeln;
  n:=0;
  i:=1;
  keluar := false;
  while keluar=false do
  begin
    write('Nama barang   : '); readln(barang[i]);
    write('Kode barang   : '); readln(kode[i]);
    write('Harga barang  : '); readln(harga[i]);
    n:=n+1;
    i:=i+1;
    write('Ada lagi: '); readln(lagi);
    if (lagi='y') or (lagi='Y') then keluar:= false
    else keluar:= true;
  end;

  clrscr;
  writeln;
  i :=0;
  while i<n do
  begin
    writeln(i+1, ' ' ,barang[i+1]);
    writeln('  ', kode[i+1]);
    writeln('  ', harga[i+1]);
    writeln;
    i:=i+1;
  end;
  readln;
end.

Pascal running