09022014Headline:

Contoh Program Pascal dengan menggunakan statment CASE-OF

// Contoh Program Pascal dengan menggunakan statment CASE-OF uses wincrt; var x: byte; begin gotoxy(5,6); write(‘Masukan bil bulat( 0-6 )= ‘); readln(x); gotoxy(4,8); case (x) of 1:writeln(‘ Senin.’); 2:writeln(‘ [...]

Program Pascal Mengubah bilangan bulat menjadi bilangan biner

//Contoh Program Pascal Mengubah bilangan bulat menjadi bilangan biner uses wincrt; var x,sisa,y:integer; hasil:string; begin write(‘Masukan Bilangan Bulat= ‘); readln(y); hasil:=”; x:=y; repeat sisa:= x mod 2; x:= x div 2; case [...]

Contoh Program Bahasa Pascal Mencari Bilangan Genap atau Ganjil

Contoh Program Bahasa Pascal Mencari Bilangan Genap atau Ganjil uses wincrt; var n,tot: longint; begin clrscr; writeln(‘ *Mencari Bilangan Ganjil & Total Jumlahnya*’); writeln(‘ ===========================================’); writeln; write(‘ [...]

Contoh Program Pascal Mencari Bilangan Ganjil dan Totalnya

┬áContoh Program Pascal Mencari Bilangan Ganjil dan Total Jumlahnya : uses wincrt; var x,sisa,y:integer; hasil:string; begin write(‘Masukan Bilangan Bulat= ‘); readln(y); hasil:=”; x:=y; repeat sisa:= x mod 2; x:= x div 2; case [...]