Posts

Showing posts from January, 2014

Java - Menampilkan Symbol Bintang Sesuai Inputan

Image
Java ini dibuat di JCreator 5.0 Soutce Code: /**  * @(#)bintang.java  * @author Moch. Afif  * @version 1.00 2014/1/30  */ import java.util.Scanner; public class bintang {     public static void main(String []args) {     Scanner input = new Scanner(System.in);     System.out.println("Masukan Jumlah Angka :");     int m=input.nextInt();     int i,j;     System.out.println("Muncul Jreng-jreng:");     for (i=1;i<=m;i++){     for (j=1;j<=i;j++){     System.out.print("*");     }     System.out.println("\n");     }     }   }

Java - Membalik Kata

Image
Aplikasi Diatas dibuat dengan compiler J Creator 5.0 SOurce Codenya /**  * @(#)Unisla.java  * @author Moch. Afif  * @version 1.00 2014/1/30  */ import java.util.Scanner; public class Unisla {     public static void main(String[]args) {     Scanner kt = new Scanner(System.in);     System.out.println("Masukan kata :");     String k=kt.next();     System.out.println("Hasilnya :");     for(int i=k.length()-1;i>=0;i--){     System.out.print(k.charAt(i));     }     System.out.print("");     } }

Java - Metode Numerik Metode Bagi Dua

Image
/*  *menghitung akar f(x)=3e^x-2x^2 + 5 dengan metoda bagi dua  *  */ package metode.bagidua; import java.text.DecimalFormat; /**  *  * @author Moch. Afif  */ public class MetodeBagidua {      static double fx(double x){           double f_x;           double e=2.718281828459;           f_x = (3*Math.pow(e,x))-(2*Math.pow(x,2))+5;           return f_x;      } public static void main(String[] args) {         System.out.println("------------------------------------------------------------------------------------------");         System.out.println("-                                       Kelompok 5                                       -");         System.out.println("-       Penyelesaian menghitung akar f(x)=3e^x-2x^2 + 5 dengan metoda bagi dua           -");         System.out.println("------------------------------------------------------------------------------------------");         int i;       

NetBean - invalid jdkhome specified (solved)

Image
Saat intall jdk baru atau update jdk biasane akan ditemukan maslah "invalid jdkhome specified" to the point : 1. Buka C:\Program Files (x86)\NetBeans 7.3\etc  2. Klik kanan buka dengan notepad 3. Edit file tersebut dengan alamat jdk baru 4. Kemudian save 5. maka netbean akan bisa dibuka normal

Pascal - Menghitung rata-rata grade yang dimiliki siswa dalam satu kelas

Image
Menghitung rata-rata  garade "A B C D E  "  ini code nya.... Dengan menggunakan pascal kita dapat memngetahui seberapa maju kemampua siswa dengan mengetahui kemajuan atau peningkatan nilai mahasiswa dengan melihat frekuensi grade dalam satu kelas Berikut kode program dalam pascal untuk menghitung grade yang ada program data; uses wincrt; var dat:array[1..10]of char; i:integer; a,b,c,d,e:real; begin dat[1]:='A'; dat[2]:='A'; dat[3]:='B'; dat[4]:='B'; dat[5]:='B'; dat[6]:='C'; dat[7]:='C'; dat[8]:='D'; dat[9]:='E'; dat[10]:='E'; a:=0;b:=0;c:=0;d:=0;e:=0; for i:=1 to 10 do begin if dat[i] = 'A' then a:=a+1; if dat[i] = 'B' then b:=b+1; if dat[i] = 'C' then c:=c+1; if dat[i] = 'D' then d:=d+1; if dat[i] = 'E' then e:=e+1; end; a:=(a/10)*100; b:=(b/10)*100; c:=(c/10)*100; d

Pascal - Konvert Desimal ke Oktal

Image
Pemanfaatan case dalam menanggani konverter desimal ke oktal, ini sebagai referensi, semoga bisa membantu dalam mengelola kode2. yang diperlukan hanya kreatifitas dalam mengelolah. seperti halnya seniman yang melukis, kita adalah seniman yang meng coding .. berikut code program konoktal; uses wincrt; var des,desi:integer; procedure okt(des, desi : integer); var oktal : string; o : integer; begin oktal:=''; repeat    o:=des mod 8;    case o of    0:oktal:='0'+oktal;    1:oktal:='1'+oktal;    2:oktal:='2'+oktal;    3:oktal:='3'+oktal;    4:oktal:='4'+oktal;    5:oktal:='5'+oktal;    6:oktal:='6'+oktal;    7:oktal:='7'+oktal;    end;    des:= des div 8; until des=0; writeln('(',desi,') desimal = ', oktal,' (Oktal)'); end; begin des:=352; desi:=des; okt(des,desi); des:=876; desi:=des; okt(des,desi); end.

Pascal - Pemanfaatan Case dalam memberi nilai

Image
Perkuliahan tanggal 2/01/2014, didapat tugas menampilkan nama nim dan grade nilai yang sesuai dengan ketentuan yang telah dituliskan di papan tulis. Untuk referensi dan bahan belajar di rumah dan UAS yang akan dimulai tanggal 27/01/2014. Berikut code yang ditulis: program nilai; uses wincrt; var a,b:string; c:byte; begin write('Masukan Nama   : ');readln(a); write('Masukan NIM    : ');readln(b); write('Masukan Nilai  : ');readln(c); writeln('============================='); writeln('     Data Mahasiswa          '); writeln('============================='); writeln('Nama    : ',a); writeln('NIM     : ',b); writeln('Nilai   : ',c); case c of 0..45:writeln('Grade   : E'); 46..70:writeln('Grade   : D'); 71..80:writeln('Grade   : C'); 81..90:writeln('Grade   : B'); 91..100:writeln('Grade   : A'); end; end.

Kenapa dinamai windows?

Image
Sejarah dari wikipedia - Versi pertama Microsoft Windows, yang disebut dengan Windows 1.0, dirilis pada tanggal  20 November 1985 . Versi ini memiliki banyak kekurangan dalam beberapa fungsionalitas, sehingga kurang populer di pasaran. Pada awalnya Windows versi 1.0 ini hendak dinamakan dengan  Interface Manager , akan tetapi  Rowland Hanson , kepala bagian pemasaran di  Microsoft Corporation , meyakinkan para petinggi Microsoft bahwa nama " Windows " akan lebih "memikat" konsumen. Windows 1.0 bukanlah sebuah sistem operasi yang lengkap, tapi hanya memperluas kemampuan MS-DOS  dengan tambahan antarmuka grafis. Selain itu, Windows 1.0 juga memiliki masalah dan kelemahan yang sama yang dimiliki oleh  MS-DOS . Lebih jauh lagi,  Apple  yang menuntut Microsoft,sehingga Microsoft membatasi feature yang ada di operating systemnya. Sebagai contoh, jendela-jendela di dalam Windows 1.0 hanya dapat ditampilkan di layar secara " tile " saja, sehingga jendela ters