Mahbub Zulkarnain

Orang normal itu pasang alarm untuk bangunin tidur, bukan buat pengingat tidur

program VolumeTabung; { I.S : Jari - Jari dan Tinggi Di Inputkan Oleh User } { F.S : Menampilkan Volume Tabung } uses crt; var P,R,T,H:real; begin P:=3.14; write(‘Jari - Jari : ‘);readln(R); write(‘Tinggi  : ‘);readln(T); H:=P*R*R*T; clrscr; writeln(‘Volume Tabung - Phi * Jari - Jari * Jari - Jari * T’); writeln(’ ‘); writeln(‘Dik : Phi = ‘,P:1:2,’ , Jari - Jari = ‘,R:1:2,’ Tinggi = ‘,T:1:2); writeln(‘Dit : Volume Tabung’); writeln(‘Jwb : ‘,P:1:2,’ * ‘,R:1:2,’ * ‘,R:1:2,’ * ‘,T:1:2,’ = ‘,H:1:2); readln; end.

program KelilingLingkaran; { I.S : Jari - Jari Di Inputkan User } { F.S : Menampilkan Keliling Lingkaran } uses crt; var P,R,H:real; begin P:=3.14; write('Jari - Jari : ');readln(R); H:=2*P*R; clrscr; writeln('Keliling Lingkaran - 2 * Phi * Jari - Jari '); writeln(' '); writeln('Dik : Phi = ',P:1:2,' , Jari - Jari = ',R:1:2); writeln('Dit : Keliling Lingkaran'); writeln('Jwb : 2 * ',P:1:2,' * ',R:1:2,' = ',H:1:2); readln; end.

program KelilingPersegi; { I.S : Sisi Di Inputkan Oleh User } { F.S : Menampilkan Keliling Persegi } uses crt; var S,H:real; begin write('Sisi : ');readln(S); H:=4*S; clrscr; writeln('Keliling Persegi - 4 * S'); writeln(' '); writeln('Dik : Sisi = ',S:1:2); writeln('Dit : Keliling Persegi'); writeln('Jwb : 4 * ',S:1:2,' = ',H:1:2); readln; end.

program VolumePersegi; { I.S : Sisi Di Inputkan User } { F.S : Menampilkan Volume Persegi } uses crt; var S,H:real; begin write('Sisi : ');readln(S); H:=S*S*S; clrscr; writeln('Volume Persegi - Sisi * Sisi * Sisi '); writeln(' '); writeln('Dik : Sisi = ',S:1:2); writeln('Dit : Volume Persegi'); writeln('Jwb : ',S:1:2,' * ',S:1:2,' * ',S:1:2,' = ',H:1:2); readln; end.

program VolumePersegiPanjang; { I.S : Panjang, Lebar, dan Tinggi Di Inputkan Oleh User } { F.S : Menampilkan Volume Persegi Panjang } uses crt; var P,T,L,H:real; begin write('Panjang : ');readln(P); write('Lebar : ');readln(L); write('Tinggi : ');readln(T); H:=P*L*T; clrscr; writeln('Volume Persegi Panjang - Panjang * Lebar * Tinggi '); writeln(' '); writeln('Dik : Panjang = ',P:1:2,' , Lebar = ',L:1:2,' Tinggi = ',T:1:2); writeln('Dit : Volume Persegi Panjang'); writeln('Jwb : ',P:1:2,' * ',L:1:2,' * ',T:1:2,' = ',H:1:2); readln; end.

program LuasJajarGenjang; { I.S : Tinggi dan Sisi Di Inputkan Oleh User } { F.S : Menampilkan Luas Jajar Genjang } uses crt; var S,T,H:real; begin write('Tinggi : ');readln(T); write('Sisi : ');readln(S); H:=(T*S*S)/2; clrscr; writeln('Luas Jajar Genjang - ( Tinggi * Sisi * Sisi ) / 2 '); writeln(' '); writeln('Dik : Tinggi = ',T:1:2,' , Sisi = ',S:1:2); writeln('Dit : Luas Jajar Genjang'); writeln('Jwb : ( ',T:1:2,' * ',S:1:2,' * ',S:1:2,' ) / 2 = ',H:1:2); readln; end.

program LuasLingkaran; { I.S : Jari - Jari Di Inputkan Oleh User } { F.S : Menampilkan Luas Lingkaran } uses crt; var P,R,H:real; begin P:=3.14; write('Jari - Jari : ');readln(R); H:=3.14*R*R; clrscr; writeln('Luas Lingkaran - Phi * Jari - Jari * Jari - Jari '); writeln(' '); writeln('Dik : phi = ',P:1:2,' , Jari - Jari = ',R:1:2); writeln('Dit : Luas Lingkaran'); writeln('Jwb : ',P:1:2,' * ',R:1:2,' * ',R:1:2,' = ',H:1:2); readln; end.

program LuasSegitiga; { I.s : Alas dan Tinggi Di Inputkan Oleh User } { F.S : Menampilkan Luas Segitiga } uses crt; var A,T,H:real; begin write('Alas : ');readln(A); write('Tinggi : ');readln(T); H:=0.5*A*T; clrscr; writeln('Luas Segitiga - 1/2 * Alas * Tinggi'); writeln(' '); writeln('Dik : Alas = ',A:1:2,' , Tinggi = ',T:1:2); writeln('Dit : Luas Segitiga'); writeln('Jwb : 0.5 * ',A:1:2,' * ',T:1:2,' = ',H:1:2); readln; end.

program LuasPersegiPanjang; { I.S : Panjang dan Lebar Di Inputkan Oleh User } { F.S : Menampilkan Luas Persegi Panjang } uses crt; var P,L,H:real; begin write(‘Panjang : ‘);readln(P); write(‘Lebar  : ‘);readln(L); H:=P*L; clrscr; writeln(‘Luas Persegi Panjang - Panjang * Lebar’); writeln(’ ‘); writeln(‘Dik : Panjang = ‘,P:1:2,’ , Lebar = ‘,L:1:2); writeln(‘Dit : Luas Persegi Panjang’); writeln(‘Jwb : ‘,P:1:2,’ * ‘,L:1:2,’ = ‘,H:1:2); readln; end.

program LuasPersegi; { I.S : Sisi Di Inputkan Oleh User } { F.S : Menampilkan Luas Persegi } uses crt; var S,H:real; begin write('Sisi : ');readln(s); H:=S*S; clrscr; writeln('Luas Persegi - Sisi * Sisi'); writeln(' '); writeln('Dik : Sisi = ',S:1:2); writeln('Dit : Luas Persegi'); writeln('Jwb : ',S:1:2,' * ',S:1:2,' = ',H:1:2); readln; end.