Program Menu

Turbo Pascal For Windows

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.