program Alat_Hitung_Matematika;
uses wincrt;
var
NoPilih : integer;
panjang, lebar, luas, keliling, diagonal ,Rata: real;
r,l,k,t:real;
a,b,c,e:integer;
D:integer;
x1,x2:real;
label awal;
begin
clrscr;
awal:
writeln(' ========= MENU =========');
writeln('1. Program Menghitung Luas dan Keliling Lingkaran');
writeln('------------------------------------------------------------------');
writeln('2. Program Mencari Sisi Pada Segitiga');
writeln('------------------------------------------------------------------');
writeln('3. Program Menghitung Diagonal Pada Persegi Panjang');
writeln('------------------------------------------------------------------');
writeln('4. Program Menghitung Luas Persegi Panjang');
writeln('------------------------------------------------------------------');
writeln('5. Program Mencari Luas Segitiga Siku-siku');
writeln('------------------------------------------------------------------');
writeln('6. Program Mencari Persamaan Kuadrat');
writeln('------------------------------------------------------------------');
writeln('7. Program Mencari Nilai Rata-Rata Lima Bilangan');
writeln('------------------------------------------------------------------');
writeln('0. Keluar');
writeln('------------------------------------------------------------------');
write('Masukan Pilihan Anda 1, 2, 3, 4, 5, 6,7, 0:');readln(NoPilih);
clrscr;
case NoPilih of
1 :begin
clrscr;
writeln('Menghitung Luas dan Keliling Lingkaran');
writeln('-------------------------------------------');
writeln('masukkan data dengan benar');
write('masukkan nilai r?');readln(r);
l:=pi*r*r ;
k:=2*pi*r ;
writeln(' ');
writeln('maka luas dan kelilingnya adalah');
writeln('l=',l:5:2);
writeln('k=',k:5:2);
readln;
clrscr;
goto awal;
end;
2 :begin
writeln('Mencari Sisi Pada Segitiga');
writeln('----------------------------------');
writeln('Masukkan data dengan benar');
write('Masukkan nilai a=');readln(a);
write('Masukkan nilai b=');readln(b);
c:=(a*a)+(b*b);
writeln(' ');
writeln('Maka Panjang salah satu sisinya(c) adalah',sqrt(c):5:3);
writeln(' ');
readln;
clrscr;
goto awal;
end;
3 :begin
writeln('Menghitung Diagonal Pada Persegi Panjang');
writeln('-----------------------------');
write('Masukan Panjang:');readln(panjang);
write('Masukan Lebar:');readln(lebar);
diagonal:=sqrt(panjang*panjang+lebar*lebar);
write('Panjang Diagonal=',diagonal);
readln;
clrscr;
goto awal;
end;
4 :begin
writeln(' Menghitung Luas Persegi Panjang');
writeln('-----------------------------');
write('Masukan Panjang:');readln(panjang);
write('Masukan Lebar:');readln(lebar);
luas:=panjang*lebar;
write('Luas Persegi Panjang=',luas:4:2);
readln;
clrscr;
goto awal;
end;
5 :begin
writeln('Menghitung Luas Segitiga Siku-siku');
writeln('-----------------------------');
writeln(' Masukkan data dengan benar');
write('masukkan nilai a:');readln(a);
write('masukkan nilai t:');readln(t);
write('masukkan nilai b:');readln(b);
l:=1/2*a*t;
k:=a+b+t;
writeln(' ');
writeln('Maka Luas Segitiga Siku-siku');
writeln('L=',l:5:4);
writeln('Maka Keliling Segitiga Siku-siku adalah');
writeln('K=',k:5:2);
writeln(' ');
readln;
clrscr;
goto awal;
end;
6 :begin
writeln('Menghitung Persamaan Kuadrat');
writeln('-------------------------');
writeln('bentuk umum persamaan kuadara ax^2+bx+c=0');
write('masukkan nilai a: '); readln(a);
write('masukkan nilai b: '); readln(b);
write('masukkan nilai c: '); readln(c);
D:=(b*b)-(4*a*c);
if D<0 then
begin
writeln('D<0');
writeln('x1 dan x2 tidak real atau imajiner');
end;
if D=0 then
begin
writeln('D=0');
writeln('x1 dan x2 real dan sama');
x1:=(-b+(sqrt(D)))/(2*a);
x2:=(-b-(sqrt(D)))/(2*a);
writeln('x1=',x1:5:2);
writeln('x2=',x2:5:2);
end;
if D>0 then
begin
writeln('D>0');
writeln('x1 dan x2 real dan berlainan');
x1:=(-b+(sqrt(D)))/(2*a);
x2:=(-b-(sqrt(D)))/(2*a);
writeln('x1=',x1:5:2);
writeln('x2=',x2:5:2);
end;
writeln(' ');
writeln('Terimakasih sudah Mencoba :)');
writeln('Salam Super dari Kelompok 3');
readln;
clrscr;
goto awal;
end;
7 :begin
clrscr;
writeln('******PROGRAM MENCARI RATA-RATA 5 BILANGAN******');
writeln('Masukan Data Anda Dengan Benar !');
write ('Masukan nilai a= ');readln(a);
write ('Masukan nilai b= ');readln(b);
write ('Masukan nilai c= ');readln(c);
write ('Masukan nilai d= ');readln(d);
write ('Masukan nilai e= ');readln(e);
Rata:=(a+b+c+d+e)/5;
writeln(' ');
writeln('Jadi Rata-rata Kelima Bilangan Tersebut Adalah: ');
write('Rata-rata= ',rata:5:2);
writeln(' ') ;
readln;
clrscr;
goto awal;
end;
0 :write('=======TERIMA KASIH SUDAH MENCOBA=======');
end;
end.
