TUGAS PROKOM KE- 3

Program prosedur_menu;
uses Crt;
Var
r,a,t,p,l,s,s1,s2,s3,luas,kel,luper,vol : real;
pilihan,pilih:char;
const phi=3.14;

procedure input_luaslingkaran;
begin
writeln;
writeln (' # Program Menghitung Luas Lingkaran');
writeln;
write (' Masukan nilai jari-jari: '); read (r);
end;

procedure input_kelilinglingkaran;
begin
writeln;
writeln (' # Program Menghitung Keliling Lingkaran');
writeln;
write (' Masukan nilai jari-jari: '); read (r);
end;

procedure input_luassegitiga;
begin
writeln;
writeln (' # Program Menghitung Luas Segitiga');
writeln;
write (' Masukan nilai alas: '); read (a);
writeln;
write (' Masukan nilai tinggi: '); read (t);
end;

procedure input_kelilingsegitiga;
begin
writeln;
writeln (' # Program Menghitung Keliling Segitiga');
writeln;
write (' Masukan nilai sisi pertama: '); read (s1);
writeln;
write (' Masukan nilai sisi kedua: '); read (s2);
writeln;
write (' Masukan nilai sisi ketiga: '); read (s3);
end;

procedure input_luaspersegipanjang;
begin
writeln;
writeln (' # Program Menghitung Luas Persegi Panjang');
writeln;
write (' Masukan nilai panjang: '); read (p);
writeln;
write (' Masukan nilai lebar: '); read (l);
end;

procedure input_kelilingpersegipanjang;
begin
writeln;
writeln (' # Program Menghitung Keliling Persegi Panjang');
writeln;
write (' Masukan nilai panjang: '); read (p);
writeln;
write (' Masukan nilai lebar: '); read (l);
end;

procedure input_luaskubus;
begin
writeln;
writeln (' # Program Menghitung Luas Permukaan Kubus');
writeln;
write (' Masukan nilai sisi: '); read (s);
end;

procedure input_volumekubus;
begin
writeln;
writeln (' # Program Menghitung Volume Kubus');
writeln;
write (' Masukan nilai sisi: '); read (s);
end;


procedure proses_luaslingkaran;
begin
luas:=phi*r*r;
end;

procedure proses_kelilinglingkaran;
begin
kel:=2*phi*r;
end;

procedure proses_luassegitiga;
begin
luas:=(a*t)/2;
end;

procedure proses_kelilingsegitiga;
begin
kel:=s1+s2+s3;
end;

procedure proses_luaspersegipanjang;
begin
luas:=p*l;
end;

procedure proses_kelilingpersegipanjang;
begin
kel:= 2*(p+l);
end;

procedure proses_luaskubus;
begin
luper:=6*s*s;
end;

procedure proses_volumekubus;
begin
vol:=s*s*s;
end;

procedure output_luaslingkaran;
begin
write ('Luas Lingkaran tersebut adalah: ',luas:2:2);
writeln;
writeln;
write ('----========= TERIMA KASIH TELAH MENGGUNAKAN PROGRAM INI =========----');
readln;
end;

procedure output_kelilinglingkaran;
begin
write ('Keliling Lingkaran tersebut adalah: ',kel:2:2);
writeln;
writeln;
write ('----========= TERIMA KASIH TELAH MENGGUNAKAN PROGRAM INI =========----');
readln;
end;

procedure output_luassegitiga;
begin
write ('Luas Segitiga tersebut adalah: ',luas:2:2);
writeln;
writeln;
write ('----========= TERIMA KASIH TELAH MENGGUNAKAN PROGRAM INI =========----');
readln;
end;

procedure output_kelilingsegitiga;
begin
write ('Keliling Segitiga tersebut adalah: ',kel:2:2);
writeln;
writeln;
write ('----========= TERIMA KASIH TELAH MENGGUNAKAN PROGRAM INI =========----');
readln;
end;

procedure output_luaspersegipanjang;
begin
write ('Luas Persegi Panjang tersebut adalah: ',luas:2:2);
writeln;
writeln;
write ('----========= TERIMA KASIH TELAH MENGGUNAKAN PROGRAM INI =========----');
readln;
end;

procedure output_kelilingpersegipanjang;
begin
write ('Keliling Persegi Panjang tersebut adalah: ',kel:2:2);
writeln;
writeln;
write ('----========= TERIMA KASIH TELAH MENGGUNAKAN PROGRAM INI =========----');
readln;
end;

procedure output_luaskubus;
begin
write ('Luas Permukaan Kubus tersebut adalah: ',luper:2:2);
writeln;
writeln;
write ('----========= TERIMA KASIH TELAH MENGGUNAKAN PROGRAM INI =========----');
readln;
end;

procedure output_volumekubus;
begin
write ('Volume Kubus tersebut adalah: ',vol:2:2);
writeln;
writeln;
write ('----========= TERIMA KASIH TELAH MENGGUNAKAN PROGRAM INI =========----');
readln;
end;


procedure luaslingkaran;
begin
writeln;
input_luaslingkaran;
writeln;
proses_luaslingkaran;
writeln;
output_luaslingkaran;
readln
end;

procedure kelilinglingkaran;
begin
writeln;
input_kelilinglingkaran;
writeln;
proses_kelilinglingkaran;
writeln;
output_kelilinglingkaran;
readln;
end;

procedure luassegitiga;
begin
writeln;
input_luassegitiga;
writeln;
proses_luassegitiga;
writeln;
output_luassegitiga;
readln;
end;

procedure kelilingsegitiga;
begin
writeln;
input_kelilingsegitiga;
writeln;
proses_kelilingsegitiga;
writeln;
output_kelilingsegitiga;
readln;
end;

procedure luaspersegipanjang;
begin
writeln;
input_luaspersegipanjang;
writeln;
proses_luaspersegipanjang;
writeln;
output_luaspersegipanjang;
readln;
end;

procedure kelilingpersegipanjang;
begin
writeln;
input_kelilingpersegipanjang;
writeln;
proses_kelilingpersegipanjang;
writeln;
output_kelilingpersegipanjang;
readln;
end;

procedure luaskubus;
begin
writeln;
input_luaskubus;
writeln;
proses_luaskubus;
writeln;
output_luaskubus;
readln;
end;

procedure volumekubus;
begin
writeln;
input_volumekubus;
writeln;
proses_volumekubus;
writeln;
output_volumekubus;
readln;
end;


begin
textcolor(green);
clrscr;
Writeln (' *******************SELAMAT DATANG*****************');
writeln (' 888888888888^YUNIAR DIAN NURINAWATI^88888888888888');
Writeln (' ==================================================');
Writeln ('Silahkan memilih sesuai menu yang anda inginkan!');
writeln;
Writeln ('## MENU ##');
writeln ('[1]. Lingkaran');
writeln ('[2]. Segitiga');
writeln ('[3]. Persegi Panjang');
writeln ('[4]. Kubus');
writeln ('[5]. Keluar');
write ('Masukan pilihan anda: '); readln (pilihan);

case pilihan of
'1': begin
writeln ('[a]. Manghitung Luas atau [b]. Menghitung Keliling');
writeln;
write (' Masukan pilihan anda: '); read (pilih);
case pilih of
'a','A': luaslingkaran;
'b','B': kelilinglingkaran;
end;
end;

'2': begin
writeln ('[a]. Manghitung Luas atau [b]. Menghitung Keliling');
writeln;
write (' Masukan pilihan anda: '); read (pilih);
case pilih of
'a','A': luassegitiga;
'b','B': kelilingsegitiga;
end;
end;
'3': begin
writeln ('[a]. Manghitung Luas atau [b]. Menghitung Keliling');
writeln;
write (' Masukan pilihan anda: '); read (pilih);
case pilih of
'a','A': luaspersegipanjang;
'b','B': kelilingpersegipanjang;
end;
end;
'4': begin
writeln ('[a]. Manghitung Luas permukaan atau [b]. Menghitung Volume');
writeln;
write (' Masukan pilihan anda: '); read (pilih);
case pilih of
'a','A': luaskubus;
'b','B': volumekubus;
end;
end;
'5': exit;
end;

End.

Tampilan Output :

tugas Program Komputer FPB

program MenentukanFPB 2 bilangandengan algoritma euclids;
uses crt;
var a,b,r,q :integer;
label awal,akhir;
begin
clrscr;
writeln (’ program menentukan FPB 2 bilangan‘);
writeln (’ ====================== ‘);
writeln (’masukkan nilai a dan b yang ingin dihitung’);
write (’A=’); readln (a);
write (’B=’); readln (b);
writeln;
if a>=b then
awal:
begin
r:= a mod b;
q:= a div b;
writeln(a, ‘=’ ,b, ‘*’ ,q, ‘+’ ,r);
writeln(’r=’,r); readln;
if r=0 then
begin
write (’maka FPBnya adalah ‘ ,b); readln;
end
else
a:=b; b:=r;
goto awal;
end
else
if athen
akhir:
begin
r:= b mod a;
q:= b div a;
writeln(b, ‘=’ ,a, ‘*’ ,q, ‘+’ ,r);
writeln(’r=’,r); readln;
if r=0 then
begin
write (’maka FPBnya adalah ‘ ,a); readln;
end
else
b:=a; a:=r;
goto akhir;
end
end.