program luas_dan_volume_tabung;
uses
wincrt;
var
r,t,vol,luas:real;

begin
write(‘PROGRAM TABUNG’);writeln;
write(‘masukkan jari-jari tabung’);readln(r);
writeln(‘masukkan tinggi tabung’);readln(t);
luas:=2*22/7*r*r+t;
writeln(‘jadi luas tabung adalah’,luas:0:2);
write(‘masukkan jari-jari alas tabung:’);readln(r);
write(‘masukkan tinggi tabung;’);readln(t);
vol:=22/7*r*r*t;
writeln(‘volume tabung tersebut adalah’,vol:0:2);

end.

 

 

 

tugas 2

program Tabung;

uses wincrt;

const

phi=3.141593;

var

nomor,panjang,lebar,sisi,luas,vol,keliling:integer;

r,d,alas,tinggi,selimut,tutup:real;

pilih: char;

begin

clrscr;

writeln(‘Selamat datang di Program Hitung Tabung’);

writeln(‘———–‘);

writeln(‘1. Tinggi Tabung ‘);

writeln(‘2. Luas alas Tabung ‘);

writeln(‘3. Luas Tabung dengan jaring berbentuk persegi panjang’);

writeln(‘4. Luas Tabung dengan jaring berbentuk lingkaran’);

writeln(‘5. Keluar program’);

writeln(‘Masukan pilihan (1..5): ‘);

writeln(‘———–‘);

write(‘Masukan nomor =’);

readln(nomor);

case(nomor)of

1:writeln(‘Menghitung tinggi tabung’);

2:writeln(‘Menghitung luas alas tabung’);

3:writeln(‘Menghitung selimut tabung dengan jaring berbentuk persegi panjang’);

4:writeln(‘Menghitung tutup tabung dengan jaring berbentuk lingkaran’);

else

write(‘tidak ada program di nomor=’,nomor);

end;

if (nomor=1) then begin

writeln(‘/*===mulai menghitung Tinggi Tabung===*/’);

write(‘Masukan jari-jari =’);readln(r);

write(‘Masukan volume =’);readln(vol);

tinggi:=2*phi*r*r/vol;

writeln(‘jadi tinggi tabung adalah’,tinggi:0:2);

end else if (nomor=2) then begin

writeln(‘/*===mulai menghitung Luas Alas Tabung===*/’);

write(‘Masukan volume =’);readln(vol);

write(‘Masukan tinggi =’);readln(tinggi);

alas:=vol/tinggi;

writeln(‘jadi alas tabung adalah’,alas:0:2);

end else if (nomor=3) then begin

writeln(‘/*===mulai menghitung Selimut Tabung===*/’);

write(‘Masukan diameter =’);readln(d);

writeln(‘masukan tinggi =’);readln(tinggi);

selimut:=phi*d*tinggi;

writeln(‘jadi selimut tabung dengan jaring berbentuk persegi panjang adalah’,selimut:0:2);

end else if (nomor=4) then begin

writeln(‘/*===mulai menghitung Tutup Tabung===*/’);

write(‘Masukan diameter =’);readln(d);

tutup:=1/4*phi*d;

writeln(‘tutup tabung dengan jaring berbentuk lingkaran adalah’,tutup:0:2);

end else if (nomor=5) then begin

writeln(‘***Keluar program***’);

write(‘…^_^terima kasih^_^…’)

end;

readln;

end.

 

 

 

TUGAS 3 Menu oke

program menuOke;

uses wincrt;

var tanya,pilih:char;

{Lalas=luas alas tabung, Ltutup=luas permukaan tabung tertutup, Lptanpa=luas permukaan tanpa tutup}

procedure Lalas;

var R,Lalas:real;

const

phi=3.141593;

begin

clrscr;

writeln(‘OPERASI LUAS ALAS TABUNG’);

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

write(‘masukkan jari-jari:’);

readln(R);

Lalas:=phi*R*R;

writeln(‘jadi luas alas tabung adalah’,Lalas:10:2);

end;

procedure Ltutup;

var T,Ltutup,Lalas:real;

begin

clrscr;

writeln(‘OPERASI LUAS PERMUKAAN TABUNG BERTUTUP’);

writeln(‘<<<<<<<<<<<<>>>>>>>>>>>’);

write(‘masukkan Lalas:’);

readln(Lalas);

write(‘masukkan T:’);

readln(T);

Ltutup:=2*Lalas*T ;

writeln(‘jadi luas permukaan tabung bertutup adalah’,Ltutup:10:2);

end;

procedure Ltanpa;

var T,Lptanpa,Lalas:real;

begin

clrscr;

writeln(‘OPERASI LUAS PERMUKAAN TABUNG TANPA TUTUP’);

writeln(‘masukkan Lalas:’);

readln(Lalas);

write(‘masukkan T:’);

readln(T);

Lptanpa:=Lalas*T;

writeln(‘jadi luas permukaan tabung tanpa tutup adalah’,Lptanpa:10:2);

end;

begin

repeat

clrscr;

writeln(‘Nama : Desiyatul Umroh’);

writeln(‘Nim  : 2225092846’);

writeln(‘Kelas: 3D’);

writeln(‘FKIP/ Pend. Matematika’);

writeln(‘SELAMAT DATANG DI PROGRAM OPERASI TABUNG’);

writeln(‘<<<<<<<<<<<<>>>>>>>>>>>>’);

writeln(‘1.Lalas’);

writeln(‘2.Ltutup’);

writeln(‘3.Lptanpa’);

writeln(‘<<<<<<<<<<<<>>>>>>>>>>>>’);

writeln(‘masukkan pilihan Anda’);

readln(pilih);

case pilih of

‘1’:Lalas;

‘2’:Ltutup;

‘3’:Ltanpa;

else;

writeln;

writeln(‘pilihlah sesuai menu yang tersedia……’);

end;

write(‘Anda ingin melanjutkan [tekan L/T:…]’);

readln(tanya);

until (tanya=’t’)or (tanya=’T’);

clrscr;

writeln(‘^_^Thank you for using this programme^_^’);

writeln(‘…..desiyatulumroh.wordpress.com……..’);

writeln(‘=====See You In The Next Programme=====’);

readln;

end.

end.

 

 

 

tugas 4_Array

program TABUNG;

uses wincrt;

procedure garis;

begin

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

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

end;

const phi : real=3.14;

var t,r,luasTabung:real;

var jari_jari,tinggi,volumetabung: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} PROGRAM ARRAY’);

writeln(‘{2} BILANGAN FAKTORIAL’);

writeln(‘{3} BILANGAN BERPANGKAT’);

garis;

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

case pilih2 of

‘1’: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;

‘2’: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;

‘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(‘THANK YOU FOR USING THIS PROGRAMME’);

writeln(‘e-mail : desiystul@gmail.com’);

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

garis;

end;

begin

lagi:=’y’;

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

begin

clrscr;

begin

clrscr;

begin

writeln(‘       _______>>>WELCOME TO MY PROGRAMME<<<________’);

writeln;

writeln(‘NAMA   : DESIYATUL UMROH’);

writeln(‘NIM    : 2225092846’);

writeln(‘KELAS  : 3D ‘);

writeln;

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

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

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

writeln(‘{1} LUAS PERMUKAAN TABUNG’);

Writeln(‘{2} VOLUME TABUNG’);

Writeln(‘{3} OTHER’);

writeln(‘{4} FINISH’);

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

writeln(‘{5} EXIT’);

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

writeln;

writeln(‘CHOOSE MATERIAL NUMBER:….’); readln(pilih);

case pilih of

‘1’: begin

clrscr;

begin

clrscr;

writeln(‘LUAS TABUNG’);

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

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

writeln;

write(‘Masukkan jari_jari TABUNG:..’); readln(r);

writeln;

luastabung:=1/2*phi*r*r;

writeln(‘Sehingga,’);

writeln(‘Luas Permukaan TABUNG: ‘,luasTABUNG:0:2);

writeln;

end;

end;

‘2’:begin

clrscr;

writeln(‘VOLUME TABUNG’);

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

write(‘masukkan jari_jari tabung:.. ‘);readln(r);

writeln;

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

writeln;

volumetabung:=4/3*phi*r*r*t;

writeln(‘Sehingga,’);

writeln(‘Volume TABUNG:.. ‘,volumetabung:0:2);

writeln;

end;

‘3’:lainnya;

‘4’:selesai;

‘5’:donewincrt;

else

clrscr;

Writeln(‘Menu is your choice is nothing ! please choice the other menu’);

garis;

end;

writeln;

writeln(‘back to the first menu??  [Y/T]’); Readln(lagi);

clrscr;

writeln(‘****THANK YOU FOR USING THIS PROGRAMME****’);

writeln(‘e-mail : desiyatul@gmail.com’);

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

end;

end;

end;

end.