Tugas 1

program luas_dan_volume_balok;

uses

wincrt;

var hasil,p,l,t:integer;

begin

writeln(‘masukan nilai panjang’);

readln(p);

writeln(‘masukan nilai lebar’);

readln(l);

writeln(‘masukan nilai tinggi’);

readln(t);

hasil:=p*l*t;

writeln(‘jadi volume dari balok adalah’ ,hasil, ‘satuan kubik’);

writeln(‘masukan nilai panjang’);

readln(p);

writeln(‘masukan nilai lebar’);

readln(l);

writeln(‘masukan nilai tinggi’);

readln(t);

hasil:=p*l+p*t+l*t+p*l+p*t+l*t;

writeln(‘jadi luas balok adalah’,hasil,’satuan persegi’)

end.

 

Tugas 2

program pilihcaseOf;

uses wincrt;

var pilih,tekan:char;

var p1,l1,t1,p2,l2,t2,panjang,lebar,tinggi,luaspermukaan1,luaspermukaan2,luasbalok,volumebalok,angka,hasil:real;

begin

repeat

clrscr;

writeln(‘PROGRAM LUAS PERMUKAAN DAN VOLUME BALOK’);

writeln(‘Pilih sifat-sifat yang dimiliki PRISMA [1=panjang] [2=lebar] [3=tinggi]’); readln(pilih);

writeln;

case pilih of

‘1’:writeln(‘balok memiliki sisi-sisi berupa segiempat ‘);

‘2’:writeln(‘balok memiliki 6 buah sisi’);

‘3’:writeln(‘balok mempunyai 12 rusuk’)

else

writeln(‘Segera periksa kembali..’);

end;

writeln(‘Anda masih mau lanjut?? [Tekan y/t]:….’);

readln(tekan);

until tekan=’t’;

begin

clrscr;

writeln;

writeln;

writeln(‘INGAT!! Rumus volume balok adalah:’);

angka:=1;

while (angka)<6 do

begin

angka:=(angka)+1;

writeln(‘Volume = panjang*lebar*tinggi ‘);

end;

begin

clrscr;

writeln;

writeln;

writeln(‘Ingat!!!!!!! Rumus luas permukaan Limas adalah:’);

angka:=1;

while (angka)<6 do

begin

angka:=(angka)+1;

writeln(‘luas balok=(panjang*lebar)+(lebar*tinggi)+(panjang*tinggi)+(panjang*lebar)+(lebar*tinggi)+(panjang*tinggi)’);

end;

if (pilih=’1′)then

begin

write(‘masukkan panjang: ‘);readln(p1);

write(‘masukkan lebar: ‘);readln(l1);

write(‘masukkan tinggi: ‘);readln(t1);

luasbalok:=(p1*l1)+(l1*t1)+(p1*t1)+(p1*l1)+(l1*t1)+(p1*t1);

writeln(‘Sehingga,’);

writeln(‘Luas balok: ‘,luasbalok:0:2);

writeln;

end;

if (pilih=’2’)then

begin

write(‘masukkan panjang: ‘);readln(p2);

write(‘masukkan lebar: ‘);readln(l2);

write(‘masukkan tinggi: ‘);readln(t2);

volumebalok:=p2*l2*t2;

writeln(‘Sehingga,’);

writeln(‘Volume balok:’,volumebalok:0:2 );

volumebalok:=(hasil);

writeln;

end;

end;

end;

end.

 

Tugas 3

program menuOke_Luas_dan_Volume_balok;

uses wincrt;

var tanya,pilih:char;

procedure luasbalok;

var s,luasbalok:real;

begin

clrscr;

writeln(‘LUAS BALOK’);

writeln(‘———————-‘);

write(‘masukkan panjang: ‘);readln(p);

write(‘masukkan luas: ‘);readln(l);

write(‘masukkan tinggi: ‘);readln(t);

luasbalok:=(p*l)+(l*t)+(p*t)+(p*l)+(l*t)+(p*t);

writeln(‘Sehingga,’);

writeln(‘Luas balok: ‘,luasbalok:0:2);

writeln;

end;

procedure volumebalok;

var p,l,t,volumebalok:real;

begin

clrscr;

writeln(‘VOLUME BALOK’);

writeln(‘———————-‘);

write(‘masukkan panjang: ‘);readln(p);

write(‘masukkan lebar: ‘);readln(l);

write(‘masukkan tinggi: ‘);readln(t);

volumebalok:=p*l*t;

writeln(‘Sehingga,’);

writeln(‘Volume balok: ‘,volumebalok:0:2);

writeln;

end;

begin

repeat

clrscr;

writeln(‘nama :edi_hermanto’);

writeln(‘NIM  :2225091931’);

writeln(‘Kelas:3D’);

writeln(‘………………………….’);

writeln(‘——————————-‘);

writeln(‘Program balok ‘);

writeln(‘——————————-‘);

writeln(‘………………………….’);

writeln(‘1.menghitung luas balok’);

writeln(‘2.menghitung volume balok’);

writeln(‘===================’);

write(‘masukkan pilihan anda:….’);

readln(pilih);

case pilih of

‘1’:luasbalok;

‘2’:volumebalok;

else

writeln(‘pilih sesuai menu…..!!!’);

writeln;

end;

write(‘Anda Masih Mau Lanjut [TEKAN y/t]:…’);readln(tanya);

until tanya=’t’;

clrscr;

writeln(‘TERIMA KASIH ANDA TELAH MEMAKAI PROGRAM INI ‘);

writeln(‘edi_fourscience@yahoo.com’);writeln(‘SEE YOU GOOD BYE…..’);

end.

 

TUGAS 4


program bALOK;

 

uses wincrt;

procedure garis;

 

begin

writeln(‘================================================’);

writeln(‘================================================’);

end;

 

 

var t,p,l,luasBalok:real;

var panjang,lebar,tinggi,volumeBalok:real;

var lagi,lagi2,pilih,pilih2:char;

var n,i,tot,data,angka:integer;

var faktorial:longint;

x:array [1..100] of integer;

function pangkat1(a:integer; n:integer):integer;

var

pangkat:integer;

begin

pangkat:=1;

for i:=1 to n do

pangkat:=pangkat*a;

pangkat1:=pangkat;

end;

 

 

procedure lainnya;

 

begin

repeat

clrscr;

writeln(‘MENU “LAINNYA” ‘);

garis;

writeln(‘[1] BILANGAN FAKTORIAL’);

writeln(‘[2] PROGRAM ARRAY’);

writeln(‘[3] BILANGAN BERPANGKAT’);

garis;

write(‘pilih no: ‘);readln(pilih2);

case pilih2 of

 

 

‘1’:begin

clrscr;

writeln(‘BILANGAN FAKTORIAL’);

garis;

writeln;

write(‘masukkan nilai faktorial: ‘);readln(n);

writeln;

if (n<=0) then

writeln(‘hasil faktorial dari ‘,n,’ = ‘,1)

else

 

begin

 

faktorial:=1;

for i := 1 to n do

faktorial:=faktorial*i;

Writeln(‘hasil faktorial dari ‘,n,’ = ‘,faktorial);

garis;

end;

end;

 

 

 

 

‘2’:begin

clrscr;

writeln(‘PROGRAM ARRAY’);

garis;

writeln;

write(‘masukkan jumlah data: ‘);readln(n);

writeln;

for i:= 1 to n do

readln(x[i]);

writeln;

write(‘data yang telah dimasukkan: ‘);

for i:= 1 to n do

write(x[i],’ ‘);

writeln;

garis;

end;

 

 

‘3’:begin

clrscr;

writeln(‘BILANGAN BERPANGKAT’);

garis;

writeln;

write(‘masukan angka yang mau dipangkatkan: ‘);readln(angka);

write(‘masukan jumlah pangkat: ‘);readln(n);

writeln;

writeln(‘hasil dari ‘,angka,’ pangkat ‘,n,’ = ‘,pangkat1(angka,n));

writeln;

garis;

end;

else

clrscr;

writeln(‘########## ERROR ##########’);

garis;

end;

write(‘mau lagi?(y/t): ‘);readln(lagi2);

lagi2:=upcase(lagi2);

writeln;

until lagi2=’T’;

end;

 

 

procedure selesai;

begin

clrscr;

writeln(‘TERIMA KASIH TELAH MENGGUNAKAN PROGRAM INI’);

writeln(‘e-mail : edi_fourscience@yahoo.com’);

writeln(‘blog   : http://edihermanto.wordpress.com&#8217;);

 

garis;

end;

begin

lagi:=’y’;

while (lagi=’y’) or (lagi=’Y’) do

begin

clrscr;

 

begin

clrscr;

begin

writeln(‘       ======SELAMAT   DATANG=======’);

writeln;

writeln(‘NAMA   : EDI HERMANTO’);

writeln(‘NIM    : 2225091931’);

writeln(‘KELAS  : 3D       ‘);

writeln;

writeln(‘==============================================’);

writeln(‘PROGRAM VOLUME DAN LUAS PERMUKAAN BALOK’);

writeln(‘==============================================’);

writeln(‘[1] LUAS PERMUKAAN BALOK’);

Writeln(‘[2] VOLUME BALOK’);

Writeln(‘[3] LAINNYA’);

writeln(‘[4] SELESAI’);

writeln(‘==============================================’);

writeln(‘[5] KELUAR’);

writeln(‘==============================================’);

writeln;

writeln(‘Pilih Materi Nomor:….’); readln(pilih);

 

case pilih of

‘1’: begin

clrscr;

 

 

begin

clrscr;

writeln(‘LUAS BALOK’);

 

writeln(‘———————-‘);

 

write(‘masukkan lebar BALOK:.. ‘);readln(l);

writeln;

write(‘masukkan tinggi BALOK:.. ‘);readln(t);

writeln;

write(‘Masukkan Panjang BALOK:..’); readln(p);

writeln;

 

 

luasBalok:=(p*l)+(l*t)+(p*t)+(p*l)+(l*t)+(p*t);

 

 

writeln(‘Sehingga,’);

 

writeln(‘Luas BALOK: ‘,luasBalok:0:2);

writeln;

end;

end;

 

‘2’:begin

clrscr;

writeln(‘VOLUME BALOK’);

 

writeln(‘———————-‘);

 

write(‘masukkan panjang BALOK:.. ‘);readln(p);

writeln;

write(‘masukkan tinggi BALOK:.. ‘);readln(t);

writeln;

write(‘Masukkan lebar BALOK:..’); readln(l);

writeln;

 

 

volumeBalok:=p*l*t;

 

 

writeln(‘Sehingga,’);

 

writeln(‘Volume BALOK:.. ‘,volumeBalok:0:2);

 

writeln;

 

end;

 

‘3’:lainnya;

‘4’:selesai;

‘5’:donewincrt;

else

clrscr;

Writeln(‘Menu tidak tersedia!! Silahkan Pilih Menu yang ada’);

garis;

end;

 

 

writeln;

writeln(‘ANDA MAU KEMBALI KE MENU AWAL????  [Y/T]’); Readln(lagi);

clrscr;

writeln(‘TERIMA KASIH TELAH MENGGUNAKAN PROGRAM INI’);

writeln(‘e-mail : edi_fourscience@yahoo.com’);

writeln(‘blog   : http://edihermanto.wordpress.com&#8217;);

end;

end;

end;

 

end.