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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  1. Memberi password Enable /Secret
Router(config)# enable password passwordnya
Router(config)# enable secret passwordnya

  1. Memberi password console
Router(config)# line console 0
Router(config-line)# login
Router(config-line)#password paswordnya

  1. 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


  1. 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


  1. 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

    1. 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


  1. 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

    1. Menggunakan RIP

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

  1. 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