procedure jumlah dan rata - rata deret bilangan genap

arif zainurrohman

program arifprosedurderetjumlahdanratagenap;
uses wincrt;
var
y,angka,x,hasil,jum:integer;
procedure jumlah;
begin
     jum:=0;
     y:=2;
     for x := 1 to angka do
     begin
          write(y,' ');
          y:=y+2    ;
          jum:=jum+angka;
     end;
end;
procedure rata;
begin
     begin
     hasil:=0;
     for x := 1 to angka do
     begin
          hasil := hasil+x;
     end;
     end;
end;
begin
write ('Masukan banyaknya bilangan dalam deret yang akan dihitung    : '); readln (angka);
writeln ('deret genap :');
jumlah;
rata;
writeln;
writeln ('jumlah : ',jum+angka);
writeln ('rata   : ',(hasil/angka)*2:0:0);
end.


Kota Pempek , 30 Maret 2012

akhukum fillah arif zainurrohman

Read More

Jumlah dan rata - rata deret bilangan genap

arif zainurrohman

program arif_jumlah_rata_deret;
uses wincrt;
var
   y,angka, x, hasil,jum : integer;
begin
     write ('Masukan banyaknya bilangan dalam deret yang akan dihitung    : '); readln (angka);
     writeln ('deret genap :');
     hasil:=0;
     y:=2;
     for x := 1 to angka do
     begin
          write(y,' ');
          y:=y+2    ;
          hasil := hasil+x;
          jum:=jum+angka;
     end;
     writeln;
     writeln('jumlah bilangan genap dalam deret : ',jum+angka);
     writeln('Rata-rata deret bilangan genap adalah         : ', (hasil/angka)*2:0:0);
end.


Kota Pempek , 30 Maret 2012

akhukum fillah arif zainurrohman

Read More

ERROR MESSAGE DI PASCAL

1. Out Of Memory

Memory tak cukup untuk melakukan proses (misalnya mengkomplikasi) kalau sedang berada dalam IDE dianjurkan mengkomplikasi program ke disk.

2. Identifier Expected

Pengenal (variable) diperlukan pada posisi yang ditunjukkan kemungkinan disebabkan yang dipakai adalah reserved word (kata tercadang).

3. Unknow Identifier

Pengenal belum dideklarasikan.

4. Duplikate Identifier

Ada pengenal dengan nama yang sama.

5. Sintax Error

Ada karakter yang tidak diperkenankan, biasanya disebabkan kekurangan tanda petik pada string.

6. Error In Real Constant

Salah dalam penulisan konstanta real.

7. Error In Integer Constant

Salah dalam penulisan konstanta integer.

8. String Constant Exred Line

Salah karena string belum diakhiri dengan tanda petik.

9. To Many Masted Files

File include yang memanggil file include perlu dikurangi.

10. Unexpeted End Of File

Biasanya disebabkan salah penulisan Begin dan End atau ada suatu kompentar yang belum ditutup.

11. Line To Long

Panjang karakter dalam baris melebihi 126 karakter.

12. Type Identifier Expected

Pengenal type belum diberikan.

13. Too Many Open File

Terlalu banyak file yang dibuka (dapat diatur melalui file CONFIG.SYS).

14. Infalid File Name

Nama file salah.

15. File Not Found

File tidak ditemukan.

16. Disk Full

Disk penuh.

17. Infalid Compiler Directive

Pengarah computer yang ditunjukkan tidak dikenal.

18. Too Many Files

Terlalu banyak file yang dilibatkan sewaktu melibatkan komplikasi unit atau program.

19. Undifined Type In Pointer Definition

Type yang digunakan pada pendenifisian pointer belum dideklarasikan.

20. Variable Identifier Expected

Pengenal yang ditunjuk seharusnya menyatakan sebuah variable.

21. Error In Type

Kesalahan dalam pendefinisian type.

22. Structure Too Large

Type struktur terlalu besar (ukuran maksimal yang diperkenankan yaitu 65520 byte).

23. Set Base Type Out Of Range

Type dasar dari himpunan harus berbeda dalam kawasan 0 sampai 255 atau berupa type enumerasi yang jumlah kemungkinannya tidak lebih dari 256 buah.

24. File Compotitions My Not Be Files

Komponen dari file tidak boleh berupa file.

25. Invalid String Length

Panjang string dalam pendeklarasian haruslah terletak antara 1 sampai 155.

26. Type Mismach

Type tidak cocok.

27. Invalid Subrange Base Type

Kesalahan pada type dasar subrange.

28. Lower Bound Greater Than Upper Bound

Dalam mendeklarasikan subrange, nilai awal harus lebih kecil daripada nilai akhir.

29. Ordinal Type Expected

Type yang diperkenalkan adalah type original.

30. Integer Constant Expected

Mengharapkan suatu konstanta.

31. Constant Expected

Mengharapkan suatu konstanta.

32. Integer Or Real Constant Expected

Mengharapkan konstanta real/integer.

33. Type Identifier Expected

Mengharapkan pengenal type.

34. Infalid Function Result Type

Type keluaran fungsi salah (seharusnya berupa type sederhana, string / pointer).

35. Label Identifier Expected

Mengharapkan pengenalan label.

36. Begin Expected

Kurang Begin

37. End Expected

Kurang End.

38. Integer Expression Expected

Mengaharapkan ungkapan integer.

39. Ordinal Expression Expected

Mengharapkan ungkapan ordinal.

40. Boolean Expression Expected

Mengaharapkan ungkapan Boolean.

41. Operand Types Do Not Match Oprator

Type operand tidk sesuai dengan operator.

42. Error In Expression

Kesalahan dalam penulisan ungakapan .

43. Illegal Usignment

Kesalahan dalam pernyataan penugasan.

44. Field Identifier Expected

Mengaharapkan field dari record.

45. Object File Too Large

File object yang berukuran lebih dari 64 kb tidak dapat di link oleh turbo pascal.

46. Undefined External

Prosedur / fungsi eksternal belum di definisikan.

47. Invalid Object File Record

Ada suatu object record dalam file object yang tidak sah.

48. Code Segment Too Large

Kode dalam segment kode terlalu besar prosedur / fungsi perlu dipecah dalam beberapa unit.

49. Data Segment Too Large

Data dalam segmen data terlalu besar tempatkan data dalam heap.

50. Do Expected

Kurang Do.

51. Invalid Public Definition

Kesalahan yang berkaitan dengan bahasa assembly.

52. Invalid Extrn Definition

Kesalahan yang berkaitan dengan bahasa assembly.

53. Too Many Extrn Definition

Kesalahan yang berkaitan dengan bahasa assembly.

54. Of Expected

Kurang Of.

55. Interface Expected

Kurang Interface.

56. Invalid Relocatable Reference

57. Then Expected

Kurang Then.

58. To Or Down To Expected

Kurang To atau DownTo.

59. Underfined Forward

Definisi dari prosedur / fungsi belum diberikan.

60. Too Many Procedures

Terlalu banyak prosedur / fungsi jumlah fungsi.

61. Invalid TypeCast

Kesalahan dalam melakukan typecast (konversi type).

62. Division By Zero

Kesalahan karena pembagian bilangan dengan nol (0).

63. Invalid File Type

Type file yang digunakan tidak mengenal prosedur . fungsi penangan file yang ditunjuk (misalnya file teks tidak mengenal prosedur seek).

64. Cannot Read Or Write Variables Of This Type

Type dari variable yang ditunjuk tidak dapat dikenalkan pada instruksi Write dan Writeln atau Read dan Readln.

65. Pointer Variable Expected

Mengaharapkan variable pointer

Kuliah Prokom 1

Kota Pempek , 30 Maret 2012


akhukum fillah arif zainurrohman

Read More

Permutasi Kombinasi

arif zainurrohman

Program arifpermutkombin;
uses wincrt;
var
a,b,a_k,Kombin,Permut:real;
i,n,k:integer;
begin
writeln('Menghitung Kombinasi dan Permutasi');
write('Masukkan bilangan kombinasi : ');readln(n);
write('masukkan bilangan permutasi : ');readln(k);
a:=1;
b:=1;
a_k:=1;
for i:=2 to n do
a:=a*i;
for i:=2 to k do
b:=b*i;
for i:=2 to (n-k)do
a_k:=a_k*i;
Kombin:=a/(b*a_k);
Permut:=a/(a_k);
writeln(n, ' Kombinasi ',k,' : ',kombin:0:0);
writeln(n, ' Permutasi ',k,' : ',Permut:0:0);
end.



Kota Pempek , 28 Maret 2012



akhukum fillah arif zainurrohman

Read More

pemberitahuan

Setelah Samsung, kini giliran Sony Ericsson yang
mengumumkan jadwal update Ice Cream Sandwich untuk
jajaran smartphone Xperia yang dirilis tahun 2011. Melalui blog
resminya, Sony Ericcson memberikan jadwal upgrade Ice
Cream Sandwich dalam dua tahap.
Tahap pertama akan dilakukan pada akhir Maret atau awal
April
2012 untuk Type Smartphone berikut ini
• Xperia Arc S
• Xperia Neo V
• Xperia Ray
Untuk tahap selanjutnya akan dilaksaakan pada akhir April
atau awal bulan Mei 2012 untuk type smartphone Sony Ericson
berikut ini.
• Xperia Arc
• Xperia Play
• Xperia Neo
• Xperia Mini
• Xperia Mini Pro
• Xperia Active
• Live with Walkman
Pihak Sony Erricson nantinya akan memberikan sebuah
notifikasi kepada para pemilik Xperia yang intinya adalah
sebuah perintah untuk mendownload perangkat lunak tersebut
via 3G atau WiFi.
Selain itu, para pengguna Xperia juga diberikan pilihan untuk
mengupdate dengan cara menghubungkan ponsel ke komputer
setelah men-download file update tersebut melalui PC.

sumber : http://www.facebook.com/groups/122901621152672/


akhukum fillah arif zainurrohman

Read More

program sederhana caseofelse & repeat

arif zainurrohman

program caseofrepeat;
uses wincrt;
const
sete = 1/2;
phi = 3.14;
var
pil:byte;
a,t,p,l,r,luas:real;
lagi:char;
begin
repeat
clrscr;
writeln('pilihan');
writeln('1.Menghitung luas segitiga');
writeln('2.Menghitung luas persegi panjang');
writeln('3.Menghitung luas lingkaran');
writeln('pilih (1/2/3) ?');readln(pil);
clrscr;
case pil of
1:begin
write('panjang alas : ');readln(a);
write('tinggi       : ');readln(t);
luas:=sete*a*t;
writeln;
writeln('luas segitiga : ',luas:0:2);
end;
2:begin
write('panjang : ');readln(p);
write('lebar   : ');readln(l);
luas:=p*l;
writeln;
writeln('luas persegi panjang : ',luas:0:2);
end;
3:begin
write('jari - jar lingkaran : ');readln(r);
luas:=phi*sqr(r);
writeln;
writeln ('luas lingkaran : ',luas:0:2);
end;
else begin
writeln ('pilihan salah');
writeln('pilih 1,2, atau 3');
end;
end;
writeln ('ingin ulang ? (y/t)');readln(lagi);
if lagi ='t' then
clrscr;
gotoxy(30,10);
writeln (' TERIMA KASIH ');
until (lagi='t');
end.


Kota Pempek , 24 Maret 2012


akhukum fillah arif zainurrohman

Read More

program menentukan bulan

muhammad patria

program bulbul;
uses wincrt;
var
i:integer;
begin
write ('masukkan nomor bulan : ');readln(i);
if ( i mod 12 = 12)then
write('desember')
else if ( i mod 12 = 11) then
write ('november')
else if ( i mod 12 = 10) then
write ('oktober')
else if ( i mod 12 = 9) then
write ('september')
else if ( i mod 12 = 8) then
write ('agustus')
else if ( i mod 12 = 7) then
write ('juli')
else if ( i mod 12 = 6) then
write ('juni')
else if  ( i mod 12 = 5) then
write ('mei')
else if ( i mod 12 = 4) then
write ('april')
else if ( i mod 12 = 3) then
write ('maret')
else if ( i mod 12 = 2) then
write ('februari')
else if  ( i mod 12 = 1) then
write ('januari')
else
write ('salah');
readln;
end.




terima kasih kepada sahabat sama muhammad patria yang membantu menyelesaikan program ini.

Kota Pempek , 24 Maret 2012


akhukum fillah arif zainurrohman

Read More

Data mahasiswa repeat until

arif zainurrohman

program rataasli;
uses wincrt;
type
mhs = record
nim : longint;
Nama : string[40];
nilai : array[1..144] of real;
end;
var
univs : array[1..10] of mhs;
i,j,n : longint;
juml : longint;
total,rata : real;
lagi:char;
Begin
repeat
clrscr;
write('Jumlah data yang dientri : ');readln(juml);
{entri data}
Writeln('Pengisiam data mahasiswa');
for i:=1 to juml do
begin
with univs[i] do
begin
write('Isikan NIM : ');readln(NIM);
write('Isikan nama : ');readln(nama);
end;
end;
{entri data nilai}
Writeln('Pengisiam data nilai mahasiswa');
for i:=1 to juml do
begin
writeln('Entri data nilai mahasiswa ke-',i);
with univs[i] do
begin
write('banyak nilai : ');readln(n);
for j:=1 to n do
begin
write('Isikan nilai-',j,' : ');readln(nilai[j]);
end;
end;
end;
{Report data}
for i:=1 to juml do
begin
total:=0;
with univs[i] do
begin
writeln('NIM : ',NIM);
writeln('nama : ',nama);
for j:=1 to n do write(' nilai- ',j);
writeln;
for j:=1 to n do
begin
write(nilai[j]:10:2);
total:=total+nilai[j];
rata:=total/n;
end;
end;
writeln;
writeln('Nilai totalnya adalah ',total:10:2);
writeln('rata rata : ',rata:10:2);
end;
readkey;
writeln(' anda ingn ulangi ? (y/t)');readln(lagi);
if lagi = 't' then
clrscr;
gotoxy(30,10);
writeln (' TERIMA KASIH ')
until (lagi = 't');
end.


Kota Pempek , 23 Maret 2012




akhukum fillah arif zainurrohman

Read More

Data mahasiswa

arif zainurrohman

program rataasli;
uses wincrt;
type
mhs = record
nim : longint;
Nama : string[40];
nilai : array[1..144] of real;
end;
var
univs : array[1..10] of mhs;
i,j,n : longint;
juml : longint;
total,rata : real;
Begin
clrscr;
write('Jumlah data yang dientri : ');readln(juml);
{entri data}
Writeln('Pengisiam data mahasiswa');
for i:=1 to juml do
begin
with univs[i] do
begin
write('Isikan NIM : ');readln(NIM);
write('Isikan nama : ');readln(nama);
end;
end;
{entri data nilai}
Writeln('Pengisiam data nilai mahasiswa');
for i:=1 to juml do
begin
writeln('Entri data nilai mahasiswa ke-',i);
with univs[i] do
begin
write('banyak nilai : ');readln(n);
for j:=1 to n do
begin
write('Isikan nilai-',j,' : ');readln(nilai[j]);
end;
end;
end;
{Report data}
for i:=1 to juml do
begin
total:=0;
with univs[i] do
begin
writeln('NIM : ',NIM);
writeln('nama : ',nama);
for j:=1 to n do write(' nilai- ',j);
writeln;
for j:=1 to n do
begin
write(nilai[j]:10:2);
total:=total+nilai[j];
rata:=total/n;
end;
end;
writeln;
writeln('Nilai totalnya adalah ',total:10:2);
writeln('rata rata : ',rata:10:2);
end;
readkey;
end.


Kota Pempek , 23 Maret 2012



akhukum fillah arif zainurrohman

Read More

Data mahasiswa dengan for..to..do & if bersarang & repeat until

arif zainurrohman

program arifmahasiswa;
uses wincrt;
var
i,n,nima,b:integer;
nama,u:string;
begin
repeat
write ('masukkan jumlah mahasiswa : ');readln(n);
for i:=1 to n do
begin
write(i,' nama  mahasiswa : ');readln(nama);
write('  nim   mahasiswa : ');readln(nima);
write('  nilai mahasiswa : ');readln(b);
if b > 21 then
begin          
if (b>21) and (b<=40) then begin    
writeln('D') ;
end;
if (b>41) and (b<=60) then
begin
writeln('C')  ;
end;
if (b>61) and (b<=80) then
begin
writeln('B')   ;
end;
if (b>81) and (b<=100) then
begin
writeln('A')   ;
end;        
 end
else
begin
writeln('E');
end;
end;
writeln;
write ('anda ingin ulangi ? (y/t)');readln(u);
if u ='t' then
clrscr;
gotoxy(30,10);
writeln(' TERIMA KASIH ')
until(u='t');
end.


Kota Pempek , 22 Maret 2012

akhukum fillah arif zainurrohman

Read More

Nilai rata-rata dan jumlah (for..to..do)

oleh arif zainurrohman

 program arifjum;
 uses wincrt;
 var
 i,n,angka,jum:integer;
 rata:real;
 begin
 jum:=0;
 write ('berapa banyak pengulangan akan dilakukan ? ');readln(n);
 for i:=1 to n do
 begin
 write ('masukkan angka ',i,' :');readln(angka);
 jum:=jum+angka;
 rata:=jum/n
 end;
 writeln('jumlah angka :',jum);
 writeln('rata - rata  :',rata);
 end.


Kota Pempek , 22 Maret 2012



akhukum fillah arif zainurrohman

Read More

Contoh sederhana program for..to..do

arif zainurrohman

program arifbykangka;
uses wincrt;
var
i,n:integer;
begin
write ('masukkan banyak angka : ');readln(n);
i:=1;
while (i<=n) do
begin
writeln(i);
i:=i+1;
end;
end.

Kota Pempek , 22 Maret 2012

akhukum fillah arif zainurrohman

Read More

Urutan bilangan genap

arif zainurrohman

program ulanggenap;
uses wincrt;
var
i,j:integer;
begin
for i:= 1 to 10 do
begin
if (i mod 2 = 0) then for j:=1 to (i div 2) do
begin
write (j*2);
if (j mod 2 = 0) then write('');
end;
writeln;
end;
end.


Kota Pempek , 22 Maret 2012

akhukum fillah arif zainurrohman

Read More

Beberapa contoh program python

Pemberian pak dedy

Program_1

1          import math

2          def time1(dist,v,n):

3          x=0                  # Initialize the position.

4          dx = dist/n       # Divide dist into n equal parts.

5          t=0                  # Initialize the time.

6          for i in range(n):

7          x = x+dx          # Change x.

8          dt=dx/v            # time=distance/speed

9          t=t+dt               # Keep track of elapsed time.

10         return t

>>>     time1(1.0,1.0,10)         # dist, v, n

0.99999999999999989

>>>     time1(1.0,1.0,1)           # dist, v, n

1.0

Program_2

1          import math

2          def time2(h,n):

3          g=9.8               # gravitational field

4          y=h                  # Initialize the height.

5          v=0                  # Initialize the velocity.

6          dy = -h/n          # Divide h into n equal parts.

7          t=0                   # Initialize the time.

8          for i in range(n):

9          y = y+dy          # Change y. (Note dy<0.)

10         v = -math.sqrt(2*g*(h-y)) # from cons. of energy

11         dt=dy/v            # dy and v are <0, so dt is >0

12         t=t+dt               # Keep track of elapsed time.

13         return t

>>> time2(1.0,10)       # h, n

0.35864270709233342

>>>     time2(1.0,10000) # h, n

0.44846664060793945

Program_3

1          import math

2          def time3(h,n):

3          g=9.8

4          y=h

5          v=0

6          dy = -h/n

7          t=0

8          for i in range(n):

9          y_old = y

10         y = y+dy

11         v_avg = -(math.sqrt(2*g*(h-y_old))+math.sqrt(2*g*(h-y)))/2.

12         dt=dy/v_avg

13         t=t+dt

14         return t

>>>     time3(1.0,1)     # h, n

0.45175395145262565

Program_4

1          import math

2          def timeb(a,b,c1,c2,n):

3          g=9.8

4          c3 = (b-c1*a-c2*a**2)/(a**3)

5          x=a

6          y=b

7          v=0

8          dx = -a/n

9          t=0

10         for i in range(n):

11         y_old = y

12         x = x+dx

13         y = c1*x+c2*x**2+c3*x**3

14         dy = y-y_old

15         v_avg = (math.sqrt(2*g*(b-y_old))+math.sqrt(2*g*(b-y)))/2.

16         ds = math.sqrt(dx**2+dy**2) # Pythagorean thm.

17         dt=ds/v_avg

18         t=t+dt

19         return t

>>>     b=1.

>>>     n=10000

>>>     c1=1.

>>>     c2=0.

>>>     timeb(a,b,c1,c2,n)

0.63887656499994161

>>>     c1=0.

>>>     c2=0.

>>>     timeb(a,b,c1,c2,n)

0.59458339947087069

Program_5

1          import math

2          def tmoon(vi,ri,rf,n):

3          bigg=6.67e-11   # gravitational constant

4          me=5.97e24      # mass of earth

5          mm=7.35e22     # mass of moon

6          rm=3.84e8         # earth-moon distance

7          r=ri

8          v=vi

9          dr = (rf-ri)/n

10         e=-bigg*me/ri-bigg*mm/(rm-ri)+.5*vi**2

11         t=0

12         for i in range(n):

13         u_old = -bigg*me/r-bigg*mm/(rm-r)

14         k_old = e - u_old

15         v_old = math.sqrt(2.*k_old)

16         r = r+dr

17         u = -bigg*me/r-bigg*mm/(rm-r)

18         k = e - u

19         v = math.sqrt(2.*k)

20         v_avg = .5*(v_old+v)

21         dt=dr/v_avg

22         t=t+dt

23         return t

>>>      re=6.378e6        # radius of earth

>>>      rm=1.74e6         # radius of moon

>>>      ri=re+3.363e5    # re+initial altitude

>>>      rf=3.8e8-rm       # earth-moon distance minus rm

>>>      vi=1.083e4        # initial velocity

>>>      tmoon(vi,ri,rf,1000)/3600. # convert seconds to hours

59.654047441976552

>>>      vi=1.2e4

>>>      tmoon(vi,ri,rf,1000)/3600.

18.177752636111677

Program_6

1          import math

2          def u(k,x):

3          return .5*k*x**2

4

5          def osc(m,k,a,n):

6          x=a

7          v=0

8          dx = -2.*a/n

9          t=0

10         e = u(k,x)+.5*m*v**2

11         for i in range(n):

12         x_old = x

13         v_old = v

14         x = x+dx

15         kinetic = e-u(k,x)

16         if kinetic<0. :

17         v=0.

18         print "warning, K=",kinetic,"<0"

19         else :

20         v = -math.sqrt(2.*kinetic/m)

21         v_avg = (v+v_old)/2.

22         dt=dx/v_avg

23         t=t+dt

24         return 2.*t

>>>     osc(1.,1.,1.,100000)

warning, K= -1.43707268307e-12 <0

6.2831854132667919

>>>     osc(1.,1.,2.,100000)

warning, K= -5.7482907323e-12 <0

6.2831854132667919

Program_7

1          import math

2          k=39.4784       # chosen to give a period of 1 second

3          m=1.

4          b=0.211           # chosen to make the results simple

5          x=1.

6          v=0.

7          t=0.

8          dt=.01

9          n=1000

10         for j in range(n):

11         x=x+v*dt

12         a=(-k*x-b*v)/m

13         if (v>0) and (v+a*dt<0) :

14         print "turnaround at t=",t,", x=",x

15         v=v+a*dt

16         t=t+dt

turnaround at t= 0.99 , x= 0.899919262445

turnaround at t= 1.99 , x= 0.809844934046

turnaround at t= 2.99 , x= 0.728777519477

turnaround at t= 3.99 , x= 0.655817260033

turnaround at t= 4.99 , x= 0.590154191135

turnaround at t= 5.99 , x= 0.531059189965

turnaround at t= 6.99 , x= 0.477875914756

turnaround at t= 7.99 , x= 0.430013546991

turnaround at t= 8.99 , x= 0.386940256644

turnaround at t= 9.99 , x= 0.348177318484

Kota Pempek , 18 Maret 2012

akhukum fillah arif zainurrohman

Read More

Negara yang mengakui kemerdekaan Indonesia

:

Secara de facto:     

1. Argentina                                               40.Yugoslavia     

2. Australia                                                41.Malaysia

3. Alberia                                                   42.Norwegian

4. Bangladesh                                            43.New zealand

5. Belgium                                                 44.Papua new guinea

6. Brazil                                                     45.Philippines

7. Brunai Darussalam                                46.Pakistan

8. Bulgaria                                                 47.Poland

9. United kingdom                                    48.Romania

10.Cambodia                                             49.Srilangka

11Canadian                                               50.Sudan

12.Chile                                                     51.Sweden

13.RRC                                                      52.Singapore

14.Czech                                                    53.Slovak

15.Finland                                                  54.South africa

16.French                                                   55.Spain

17.Germany                                               56.Belanda

18.Switzerland                                           57.Denmark

19.Thailand                                                58.Yunani

20.Tunisia                                                  59.Somalia

21.Turkey

22.United states of ame

23.Ekuador.

24.Royal Danish

25.Hungaria

26.India

27.Iraq

28.Italy

29.Jordan

30.Japan

31.Korea

32.Kuwait

33.Laos

34.Marocco

35.Myanmar

36.Mexico

37.Venezuela

38.Vietnam

39.Yemen  

NB : Ini dahulu dicopy dari situs resmi Deplu RI , namun entah kenapa sekarang ini situs tersebut sedang tidak dapat  diakses (-_-)
Kota Pempek , 18 Maret 2012

akhukum fillah arif zainurrohman

Read More

Melihat informasi system pada windows xp

Untuk menampilkan informasi system pada Windows XP, Anda dapat mengetikkan pada MS DOS Prompt:

systeminfo

Setelah Anda menekan enter maka akan muncul informasi seperti yang terlihat pada gambar di bawah ini:

Kota Pempek , 18 Maret 2012

akhukum fillah arif zainurrohman

Read More

Beberapa IP command

Di bawah ini adalah perintah-perintah yang berhubungan dengan jaringan. Untuk melakukan perintah-perintah tersebut Anda harus masuk ke MS DOS Prompt.

ipconfig /all
Menampilkan informasi konfigurasi koneksi, misalnya Host Name, Primary DNS Type, Ethernet Adapter LAN.

ipconfig /displaydns
Menampilkan DNS Cache.

ipconfig /flushdns
Menghapus DNS Cache

ipconfig /release
“Menghapus” semua koneksi IP Address.

ipconfig /renew
Membuat IP Address baru untuk adapter tertentu.

ipconfig /registerdns
Melakukan refresh DNS dan meregister kembali koneksi DNS.

ipconfig /showclassid
Menampilkan informasi DHCP Class.

ipconfig /setclassid
Mengubah DHCP Class ID

control netconnections
Menampilkan Network Connection.

ping
Contoh: ping www.klik-kanan.com
Melakukan test koneksi ke situs www.klik-kanan.com. Semakin sedikit % loss-nya makan semakin baik koneksinya.

tracert
Menampilkan informasi IP Address route.

netstat
Menampilkan informasi koneksi TCP/IP yang sedang aktif.

route
Menampilkan local route.

hostname
Menampilkan nama komputer.

Kuliah PIK

Kota Pempek , 18 maret 2012

akhukum fillah arif zainurrohman

Read More

PDF2word

dari Pak khrisna

merubah atau mengkonversi file pdf ke dalam bentuk file word. Disertai dengan fitur - fitur menarik dari aplikasi ini.

Rar pass: www.softarchive.net

http://www.ziddu.com/download/18898992/pdf2word3.rar.html


akhukum fillah arif zainurrohman

Read More

KONFIGURASI ROUTER CISCO

oleh oleh dari pak iwan sewaktu PRAKERIN   ^_^

 Konfigurasi awal.

1. Memberi nama Router

Router > enable

Router# conf t

Router(config)# hostname Nama Router

2. Memberi password Enable /Secret

Router(config)# enable password passwordnya

Router(config)# enable secret passwordnya

3. Memberi password console

Router(config)# line console 0

Router(config-line)# login

Router(config-line)#password paswordnya

4. Mengaktifkan Telnet

Router(config)#line vty 0 4

Router(config-line)#login

Router(config-line)#password passwordnya

Ctt: Setelah diberi nama router maka promt yang muncul sesuai dengan namanya

Konfigurasi Interface

1. Ethernet

Router(config)#int e0 atau fa0

Router(config-if)#ip add alamat ip subnet mask

Router(config-if)#no shutdown

2. Serial

1. Dengan encapsulation HDLC

Router(config)# int s0

Router(config-if)#ip add alamat ip subnet mask

Router(config-if)#bandwith …  ( unt DTE ) clok rate… ( unt DCE )

Router(config-if)#no shutdown

2. Dengan encapsulation PPP

Router(config)#username router lawan password passwordnya

Router(config)#int s0

Router(config-if)# ip add alamat ip subnet mask

Router(config-if)#bandwith …  ( unt DTE ) clok rate… ( unt DCE )

Router(config-if)#encapsulation ppp

Rouert(config-if)#ppp authentication pap atau chap

                        Router(config-if)#no shutdown

3. Dengan encapsulation Frame Relay

Router(config)#frame-relay swicth

Router(config)#int s0

Router(config-if)#ip add alamat ip subnet mask

Router(config-if)#bandwith …  ( unt DTE ) clok rate… ( unt DCE )

Router(config-if)#encapsulation frame-relay

Router(config-if)#frame-relay lmi-type tipe frame relay

Router(config-if)#frame-relay interface-dlci no dlci

Router(config-if)#frame-relay map ip ip laman no dlci broadcast

                        Router(config-if)#frame-relay intf-type dce (khusus dce)

                        Router(config-if)#no shutdown

3. BRI (ISDN)

Router(config)#isdn switch-type tipe sentralnya

Router(config)#username router lawan password passwordnya

(Untuk encapsulation ppp)

                        Router(config)#dialer-list 1 protocol ip permit

                        Router(config)#int bri0

                        Router(config-if)#ip add alamat ip dan subnet mask

                        Router(config-if)#encapsulation ppp

                        Router(config-if)#ppp authentication pap atau chap

                        Router(config-if)#dialer idle-timeout waktu

                        Router(config-if)#dialer map ip alamat ip lawan broadcast no telpon

       isdn yg dituju

                        Router(config-if)#dialer-group 1

                        Router(config-if)#no shutdown

                        Ctt : Untuk dialer map ip cukup di satu sisi saja

Konfigurasi Routing Protocol

1. Menggunakan Static Route

Router(config)#ip route network dan subnet mask yg dituju ip next hopnya

2. Menggunakan RIP

Router(config)#router rip

Router(config-router)#network alamat net yg tersambung langsung

3. Menggunakan IGRP

Router(config)#router igrp nomor AS

Router(config-router)#network alamat net yg tersambung langsung

Menyimpan Konfigurasi

                        Router#wr mem atau

                        Router#copy running config startup config

Mengkonfigurasi Voice

1.    Mendefinisikan Pots

Router(config)#dial-peer voice nomor tag pots

Router(config-dial-pe)destination-pattren nomor

Router(config-dial-pe)port nomor port

2.    Mendefinisikan Voip

Router(config)#dial-peer voice nomor tag voip

Router(config-dial-pe)destination-pattren nomor tujuan

Router(config-dial-pe)session target ipv4:nomor ip router yg di tuju

akhukum fillah arif zainurrohman

Read More