Get Gifs at CodemySpace.com


------------------------------------------------------


Get Gifs at CodemySpace.com



---------------------------------------------------------
<html> <title>Membuat program kalkulator sederhana menggunakan textbox 

Jumat, 07 Oktober 2011

Pascal

uses wincrt; var i:integer; begin For i:=1 to 5 do begin writeln (i); writeln ('pascal'); end; end.

Tugas..............!!!

program no_1; Uses Wincrt ; Var I : Integer ; K : String ; Begin Writeln ('Masukkan kalimat yg akan ditampilkan :') ; Readln (K) ; Writeln ('Masukkan jumlah penampilan :') ; Readln (I) ; For I := 1 To I Do Writeln (k) ; End. Program no_2; Uses Wincrt ; Var I,J : Integer ; K,K2 : String ; Begin Writeln ('Masukkan kalimat yg akan ditampilkan :') ; Readln (K) ; Writeln ('Masukkan kalimat kedua yg ditampilkan :') ; Readln (K2) ; Writeln ('Masukkan nilai 1 :') ; Readln (I) ; Writeln ('Masukkan nilai 2 :') ; Readln (J) ; For I := 1 To I Do Begin For J := 1 To J Do Write (K :8 , K2 :3) ; Writeln ; End; End.¬¬ Program No_3; Uses Wincrt ; var num :array[1..10] of longint; i,j,n,batas:integer; begin readln(n); num[1]:=1; writeln(1); for i:=1 to n do begin batas:=(i+1) div 2; if not odd(i) then num[batas+1]:=num[batas]*2; for j:=batas downto 2 do num[j]:=num[j]+num[j-1]; for j:=1 to batas do write(num[j],' '); if not odd(i) then write(num[batas+1],' '); for j:=batas downto 1 do write(num[j],' '); writeln; end; end.¬¬ Program no_4; Uses wincrt; Var x,i,j : integer; Begin j := x*i; Readln (x); For i := j*i to x do Writeln (i:8, i*x:8); i := j*x; Readln (i); For i := x*j to i do i := x * j; For j := i*x to j do j := i * x; For x := j*i to x do x := j * i; Writeln (x); readln (j); End. Program No_4; uses wincrt; var matriks1, matriks2, matriks_hasil1, matriks_hasil2: array[1..3, 1..3] of integer; i, j,k,l: integer; begin Randomize; for i :=1 to 3 do for j:=1 to 3 do begin matriks1[i,j]:=random(5); matriks2[i,j]:=random(5); end; writeln('Matriks 1'); for i:=1 to 3 do begin for j:=1 to 3 do begin write(matriks1[i,j]:5); end; writeln; end; writeln('Matriks 2'); for i:=1 to 3 do begin for j:=1 to 3 do begin write(matriks2[i,j]:5); end; writeln; end; for i:=1 to 3 do for j:=1 to 3 do begin l:=0; for k:=1 to 3 do l:=l + matriks1[i,k] * matriks2[k,j]; matriks_hasil1[i,j]:=l; matriks_hasil2[i,j]:=matriks1[i,j]+matriks2[i,j]; end; writeln('Hasil perkalian matriks 1 dan matriks 2'); for i:=1 to 3 do begin for j:=1 to 3 do begin write(matriks_hasil1[i,j]:5); end; writeln; end; end.

Kamis, 06 Oktober 2011

Menghitung gaji karyawan

Program Menghitung_Gaji_Karyawan; Uses Wincrt; Var Nama_Karyawan:string; Gaji_Pokok:real; Jumlah_Anak:longint; Tunjangan_Istri,Tunjangan_anak,Gaji_Keseluruhan,Pajak,Gaji_Akhir:real; Begin Write ('Masukkan Nama Karyawan: ');readln (Nama_Karyawan); Write ('Masukkan Gaji Pokok=Rp ');readln (Gaji_Pokok); Write ('Masukkan Jumlah anak= ');readln (Jumlah_Anak); Tunjangan_Istri:=0.15*Gaji_Pokok; Tunjangan_Anak:=Jumlah_Anak*0.20*Gaji_Pokok; Gaji_Keseluruhan:=Gaji_Pokok+Tunjangan_Istri+Tunjangan_Anak; Pajak:=0.15*Gaji_Keseluruhan; Gaji_Akhir:=Gaji_Keseluruhan-Pajak; Writeln ('Tunjangan Istri =Rp ',(Tunjangan_Istri):15:2); Writeln ('Tunjangan anak =Rp ',(Tunjangan_Anak):15:2); Writeln ('Gaji Keseluruhan =Rp ',(Gaji_Keseluruhan):15:2); Writeln ('Pajak =Rp ',(Pajak):15:2); Writeln ('Gaji Akhir =Rp ',(Gaji_Akhir):15:2); End.

membuat piramit bintang,, Agus

program bintang_piramid; uses wincrt; var c,a,b,n : integer; begin write ('masukkan angka : ');readln(n); writeln; if n mod 2 = 0 then for a := 1 to (n div 2) do begin for b := 1 to (n div 2)-a do write (' '); for c := 1 to (a*2) do write ('*'); writeln; end else for a := 1 to (n div 2)+1 do begin for b := 1 to (n div 2)+(1-a) do write (' '); for c := 1 to (a*2)-1 do write ('*'); writeln; end; end.

mengukur suhu..

Program Konversi_Suhu; Uses WinCrt; var f,c,r : real; a,ul : char; procedure farein_celcius; begin Writeln('Program Konversi Fareinheit Ke Celcius'); Writeln('======================================'); Writeln; Write('Masukan Suhu dalam Farenheit: ');readln(f); c:=5/9*(f-32); Writeln; Writeln('Jadi Suhu Dalam Celcius Adalah: ',c:4:2); end; procedure farein_reamur; begin Writeln('Program Konversi Fareinheit Ke Reamur'); Writeln('====================================='); Writeln; Write('Masukan Suhu dalam Farenheit: ');readln(f); r:=4/9*(f-32); Writeln; Writeln('Jadi Suhu Dalam Reamur Adalah: ',r:4:2); end; procedure celcius_farein; begin Writeln('Program Konversi Celcius Ke Fareinheit'); Writeln('======================================'); Writeln; Write('Masukan Suhu dalam Celcius: ');readln(c); f:=(9/5)*c+32; Writeln; Writeln('Jadi Suhu Dalam Fareinheit Adalah: ',f:4:2); end; procedure celcius_reamur; begin Writeln('Program Konversi Celcius ke Reamur'); Writeln('=================================='); Writeln; Write('Masukan Suhu dalam Celcius: ');readln(c); r:=(4/5)*c; Writeln; Writeln('Jadi Suhu Dalam Reamur Adalah: ',r:4:2); end; procedure reamur_celcius; begin writeln('Program Konversi Reamur ke Celcius'); Writeln('=================================='); Writeln; Write('Masukan Suhu dalam Reamur: ');readln(r); c:=(5/4)*r; Writeln; Writeln('Jadi Suhu Dalam Celcius Adalah: ',c:4:2); end; procedure reamur_farein; begin writeln('Program Konversi Reamur ke Fareinheit'); Writeln('====================================='); Writeln; Write('Masukan Suhu dalam Reamur: ');readln(r); f:= (9/4)*r+32; Writeln; Writeln('Jadi Suhu Dalam Fareinheit Adalah: ',f:4:2); end; begin repeat clrscr; writeln ('Program konversi suhu'); writeln; writeln ('1. fareinheit - celcius'); writeln ('2. fareinheit - reamur'); writeln ('3. celcius - reamur'); writeln ('4. celcius - fareinheit'); writeln ('5. reamur - celcius'); writeln ('6. reamur - farenheit'); writeln; write ('pilih nomor konversi : '); read (a); writeln; case a of '1' : farein_celcius; '2' : farein_reamur; '3' : celcius_reamur; '4' : celcius_farein; '5' : reamur_celcius; '6' : reamur_farein; else writeln ('Nomor yang anda masukkan salah'); end; Writeln;Writeln; Write('Mau Coba Lagi [Y/T]: ');Readln(ul); Until Upcase(ul) = 'Y'; End.




Mau punya buku tamu seperti ini?
Klik di sini (Info Blog)
program case1; uses wincrt; var nama, alamat:string; nrp:string[8]; keterangan:string[2]; grade, pilih: char; nilai, nilai2, nilai3:integer; nilaiak:real; begin writeln('1. masukkan data mahasiswa --ATAU-- 2. keluar'); write('pilihan anda: '); readln(pilih); case pilih of '1': begin write('masukkan nama anda: '); readln(nama); write('masukan NIM anda: '); readln(nrp); write('masukan alamat anda: '); readln(alamat); write('masukan nilai tugas: '); readln(nilai); write('masukan nilai UTS: '); readln(nilai2); write('masukan nilai UAS: '); readln(nilai3); if (nrp='11') then keterangan:= 'S1' else if (nrp='31') then keterangan:='D3'; if (nilai >= 80) then grade :='A' else if (nilai >= 70) then grade :='B' else if(nilai >= 60) then grade:='C' else grade:='D'; nilaiak:= (2*nilai2+nilai+nilai3)/4; writeln('data mahasiswa yang diinputkan'); writeln('nama: ', nama); writeln('NIM: ', nrp); writeln('program studi: ',keterangan); writeln('alamat: ',alamat); writeln('nilai akhir: ',nilaiak:0:0); writeln('grade: ',grade); if grade='A' then writeln('LULUS') else if grade='B' then writeln('LULUS') else if grade='C' then writeln('LULUS') else writeln('TIDAK LULUS'); end; '2': begin writeln('anda mengakhiri program!'); Exit; end; else begin writeln('pilihan anda salah!'); Exit; end; end; writeln('====== By Agustiawan ======='); end.
http://www.nusinau.com/category/computer/programming/pascal/
http://www.nusinau.com/perulangan-dalam-pascal/ http://turbopascal32.blogspot.com/ http://khazanna032.wordpress.com/2011/09/11/karakteristik-sistem/ http://khazanna032.wordpress.com/2011/09/23/program-perkalian-matrix-turbo-pascal/ http://turbopascal.blogspot.com/

Senin, 03 Oktober 2011

Entahlah tui tiau ki

Program Kalkulator; uses wincrt; var pil:integer; a,b,c:real; ulang:char; {Tampilan Menu Utama} Procedure Menu; Begin gotoxy(30,5); writeln('----------------------------'); gotoxy(30,6); writeln(' MENU UTAMA '); gotoxy(30,7); writeln('----------------------------'); gotoxy(30,8); writeln('1. Penjumlahan '); gotoxy(30,9); writeln('2. Pengurangan '); gotoxy(30,10);writeln('3. Perkalian '); gotoxy(30,11);writeln('4. Pembagian '); gotoxy(30,12);writeln('5. Kuadrat Bilangan '); gotoxy(30,13);Writeln('6. Akar Bilangan '); gotoxy(30,14);writeln('7. Pembuat Program '); gotoxy(30,15);writeln('8. Keluar Program '); gotoxy(30,16);writeln('----------------------------'); gotoxy(30,17);writeln(' Pilih : '); gotoxy(30,18);writeln('----------------------------'); gotoxy(42,17);Readln(pil); End; {Program Penjumlahan} Procedure Penjumlahan; begin gotoxy(22,1);write('-==PROGRAM PENJUMLAHAN==-'); gotoxy(22,2);Write('Masukkan Nilai Pertama : '); Readln(a); gotoxy(22,3);write('Masukkan Nilai Kedua : '); Readln(b); c:=a+b; gotoxy(22,4);writeln('Hasil : ',c:2:2); End; {Program Pengurangan} Procedure Pengurangan; begin gotoxy(22,1);write('-==PROGRAM PENGURANGAN==-'); gotoxy(22,2);Write('Masukkan Nilai Pertama : '); Readln(a); gotoxy(22,3);write('Masukkan Nilai Kedua : '); Readln(b); c:=a-b; gotoxy(22,4);writeln('Hasil : ',c:2:2) End; {Program Perkalian} Procedure Perkalian; Begin gotoxy(22,1);write('--==PROGRAM PERKALIAN==--'); gotoxy(22,2);Write('Masukkan Nilai Pertama : '); Readln(a); gotoxy(22,3);write('Masukkan Nilai Kedua : '); Readln(b); c:=a*b; gotoxy(22,4);writeln('Hasil : ',c:2:2) End; {Program Pembagian} Procedure Pembagian; Begin gotoxy(22,1);write('--==PROGRAM PEMBAGIAN==--'); gotoxy(22,2);Write('Masukkan Nilai Pertama : '); Readln(a); gotoxy(22,3);write('Masukkan Nilai Kedua : '); Readln(b); if (b<>0) then begin c:=a/b; gotoxy(22,4);writeln('Hasil : ',c:2:2) ; end else begin gotoxy(22,4);Writeln('Tidak bisa dibagi Nol!') end; End; {Program Untuk menghitung kuadrat dari suatu bilangan} Procedure Kuadrat; Begin gotoxy(22,1);write('-=KUADRAT BILANGAN=-'); gotoxy(22,2);Write('Masukkan Bilangan : '); Readln(a); b:=sqr(a); gotoxy(22,3);writeln('Kuadrat dari ',a:2:2, ' adalah : ',b:2:2); End; {Program untuk Menghitung akar} Procedure Akar; Begin gotoxy(23,1);write('-==AKAR BILANGAN==-'); gotoxy(22,2);Write('Masukkan Bilangan : '); Readln(a); b:=sqrt(a); gotoxy(22,3);writeln('Akar dari ',a:2:2,' adalah ',b:2:2) End; {Narsis, Untuk Menampilkan yg nama pembuat program} Procedure Pembuat; begin gotoxy(18,1);write('------========================------'); gotoxy(18,2);write(' Program ini dibuat oleh : '); gotoxy(18,3);write('------========================------'); end; {PROGRAM UTAMA} Begin ulang :='Y'; while (ulang = 'Y') or (ulang = 'y') do begin clrscr; Menu; clrscr; case pil of 1 : Penjumlahan; 2 : Pengurangan; 3 : Perkalian; 4 : Pembagian; 5 : Kuadrat; 6 : Akar; 7 : Pembuat; 8 : donewincrt; end; {Jika terjadi kesalahan pemilihan} if (pil>8 ) or (pil<1) then begin gotoxy(27,3);writeln('Pilihan Anda Salah!'); end; gotoxy(15,5);writeln('=========================================='); gotoxy(15,6);writeln('Apakah Anda ingin mencoba lagi? (Y/T) : '); gotoxy(15,7);writeln('=========================================='); gotoxy(55,6);Readln(ulang); end; donewincrt; End.

calculate.. bukan yang aku mau

uses wincrt; var a,c,d : integer; operator, z:char; begin repeat clrscr; Writeln('PETUNJUK:'); Writeln('1. Masukkan angka pertama'); Writeln('2. Masukkan operator (+, -, /, *)'); Writeln('3. Masukkan Angka kedua'); Writeln('PERHITUNGAN: '); Write('Masukkan angka: '); readln(a); write('Operator: '); readln(Operator); write('Angka ke dua: '); readln(c); case operator of '+': d:=a + c; '-': d:=a - c; '/': d:=a div c; '*': d:=a * c; end; writeln('Hasil: ',d); writeln; Write('Hitung lagi? (y/n) '); readln(z); until Upcase(z) <> 'Y'; end.

Ini masih salah,,, Jika ada yang bisa harap di komen yah,,, Pleess

uses wincrt; var pil:char; angka1,angka2,hasil:real; i:integer; begin repeat i:=0; writeln('KALKULATOR SEDERHANA'); writeln('a. Perkalian'); writeln('b. Pembagian'); writeln('c. Penambahan'); writeln('d. Pengurangan'); writeln('e. Keluar'); writeln; write('Pilihan Anda'); readln(pil); if pil='a' then writeln('Perkalian'); if pil='b' then writeln('Pembagian'); if pil='c' then writeln('Penambahan'); if pil='d' then writeln('Pengurangan'); if pil='e' then begin writeln('Keluar'); i:=1 end else begin writeln('Anda Salah pencet'); i:=2 end; if i=0 then begin write('Angka pertama : ');readln(angka1); write('Angka Kedua : ');readln(angka2); end; if pil='a' then begin hasil:=angka1*angka2; writeln(angka1:4:2,' x ',angka2:4:2,' = ',hasil:8:2); end; if pil='b' then begin hasil:=angka1/angka2; writeln(angka1:4:2,' / ',angka2:4:2,' = ',hasil:8:2); end; if pil='c' then begin hasil:=angka1+angka2; writeln(angka1:4:2,' + ',angka2:4:2,' = ',hasil:8:2); end; if pil='d' then begin hasil:=angka1-angka2; writeln(angka1:4:2,' - ',angka2:4:2,' = ',hasil:8:2); end; until i=1; end.

THE CALCULATE

USES WINCRT; var a,c,d : integer; operator, z:char; begin repeat clrscr; Writeln('PETUNJUK:'); Writeln('1. Masukkan angka pertama'); Writeln('2. Masukkan operator (+, -, /, *)'); Writeln('3. Masukkan Angka kedua'); Writeln('PERHITUNGAN: '); Write('Masukkan angka: '); readln(a); write('Operator: '); readln(Operator); write('Angka ke dua: '); readln(c); case operator of '+': d:=a + c; '-': d:=a - c; '/': d:=a div c; '*': d:=a * c; end; writeln('Hasil: ',d); writeln; Write('Hitung lagi? (y/n) '); readln(z); until Upcase(z) <> 'Y'; end.

Minggu, 02 Oktober 2011

var rate=20;if(document.getElementById) window.onerror=new Function("return true") var objActive;var act=0;var elmH=0;var elmS=128;var elmV=255;var clrOrg;var TimerID;if(document.all){document.onmouseover=doRainbowAnchor;document.onmouseout=stopRainbowAnchor;} else if(document.getElementById){document.captureEvents(Event.MOUSEOVER|Event.MOUSEOUT);document.onmouseover=Mozilla_doRainbowAnchor;document.onmouseout=Mozilla_stopRainbowAnchor;} function doRainbow(obj) {if(act==0){act=1;if(obj) objActive=obj;else objActive=event.srcElement;clrOrg=objActive.style.color;TimerID=setInterval("ChangeColor()",100);}} function stopRainbow() {if(act){objActive.style.color=clrOrg;clearInterval(TimerID);act=0;}} function doRainbowAnchor() {if(act==0){var obj=event.srcElement;while(obj.tagName!='A'&&obj.tagName!='BODY'){obj=obj.parentElement;if(obj.tagName=='A'||obj.tagName=='BODY') break;} if(obj.tagName=='A'&&obj.href!=''){objActive=obj;act=1;clrOrg=objActive.style.color;TimerID=setInterval("ChangeColor()",100);}}} function stopRainbowAnchor() {if(act){if(objActive.tagName=='A'){objActive.style.color=clrOrg;clearInterval(TimerID);act=0;}}} function Mozilla_doRainbowAnchor(e) {if(act==0){obj=e.target;while(obj.nodeName!='A'&&obj.nodeName!='BODY'){obj=obj.parentNode;if(obj.nodeName=='A'||obj.nodeName=='BODY') break;} if(obj.nodeName=='A'&&obj.href!=''){objActive=obj;act=1;clrOrg=obj.style.color;TimerID=setInterval("ChangeColor()",100);}}} function Mozilla_stopRainbowAnchor(e) {if(act){if(objActive.nodeName=='A'){objActive.style.color=clrOrg;clearInterval(TimerID);act=0;}}} function ChangeColor() {objActive.style.color=makeColor();} function makeColor() {if(elmS==0){elmR=elmV;elmG=elmV;elmB=elmV;} else{t1=elmV;t2=(255-elmS)*elmV/255;t3=elmH%60;t3=(t1-t2)*t3/60;if(elmH<60){elmR=t1;elmB=t2;elmG=t2+t3;} else if(elmH<120){elmG=t1;elmB=t2;elmR=t1-t3;} else if(elmH<180){elmG=t1;elmR=t2;elmB=t2+t3;} else if(elmH<240){elmB=t1;elmR=t2;elmG=t1-t3;} else if(elmH<300){elmB=t1;elmG=t2;elmR=t2+t3;} else if(elmH<360){elmR=t1;elmG=t2;elmB=t1-t3;} else{elmR=0;elmG=0;elmB=0;}} elmR=Math.floor(elmR).toString(16);elmG=Math.floor(elmG).toString(16);elmB=Math.floor(elmB).toString(16);if(elmR.length==1)elmR="0"+elmR;if(elmG.length==1)elmG="0"+elmG;if(elmB.length==1)elmB="0"+elmB;elmH=elmH+rate;if(elmH>=360) elmH=0;return'#'+elmR+elmG+elmB;}