Anyting About AntiVirus

abdulmail - Perkembangan teknologi informasi yang kian hari  kian pesat telah memberikan banyak kemudahan dalam berbagai bidang, hampir seluruh aspek kehidupan saat ini membutuhkan teknologi informasi. Semua pekerjaan terasa jauh lebih mudah dan...

09.32.00 | 8 komentar | Read More

Mencari Nilai Maximum dan Minimum dengan Pascal

abdulmail - program maximum dan minimum dengan pascal. program max_min; uses crt; var bil:array[1..100] of integer; terbesar :integer; terkecil :integer; i,n :integer; begin clrscr; writeln;write(' Ada berapa bilangan =');readln(n); for i:= 1 to n do begin write('...

18.21.00 | 5 komentar | Read More

Volume & Luas Kulit Bola dengan Pascal

abdulmail - source code pascal untuk mencari volume bola dan luas kulit bola. program vk_bola; uses crt; Var Luas,R,V :Real; Begin clrscr; writeln(' -----------------------------------------------'); writeln(' Program Menghitung Volume & Luas Permukaan...

18.17.00 | 5 komentar | Read More

Membuat Deret Fibonacci dengan Pascal

abdulmail - Membuat deret fibonacci dengan pascal program DeretFibonacci; uses crt; var i,n,f,f1,f2 : longint; pil:char; label A,B,C,D,E; begin A: clrscr; textcolor(green); writeln(' --------------------------------'); writeln(' MENAMPILKAN DERET...

18.46.00 | 2 komentar | Read More

Membuat Segitiga Pascal

abdulmail - ni ada source code pascal lagi untuk membuat segitiga pascal. Program Segitiga_Pascal; Uses crt; Var i,j,n:integer; x: array[1..100, 1..100] of integer; Begin Write('Masukkan Jumlah Baris: ');Readln(n); For i:= 1 to n do For j:= 1 to i do Begin if...

18.40.00 | 6 komentar | Read More

Menampilkan Bilangan Ganjil dengan Pascal

abdulmail - ni adalah source code pascal untuk menampilkan bilangan ganjil < 50. program bilGanjil; uses crt; var x:integer; begin clrscr; x := 1; REPEAT Writeln ('Isi x = ',x); x := x + 2; UNTIL x > 50; readln; end. mohon koreksi... & feedback...

18.34.00 | 0 komentar | Read More