Program Menu_Pilihan; ( Algoritma dan Pemograman )

Program Menu_Pilihan;
uses crt;
var
   pilihan : char;
   alas, tinggi : integer;
   luas : real;
begin
     textbackground(RED);clrscr;
     window (17,7,63,19); textbackground (BLUE);clrscr;
     gotoxy(19,2) ;write ('Menu Pilihan');
     gotoxy(19,3) ;write ('============');
     gotoxy(3,4) ;write ('1. Menghitung Luas Segitiga');
     gotoxy(3,5) ;write ('2. Menentukan Nilai Tertinggi dari 2 Nilai');
     gotoxy(3,6) ;write ('3. Menyusun 3 Angka Secara Ascending');
     gotoxy(3,7) ;write ('4. Menghitung Lama Pembicaraan Ditelepon');
     gotoxy(3,8) ;write ('0. Keluar');
     gotoxy(3,10) ;write ('Pilihan Anda [0-4] : ');readln(pilihan);

     if (pilihan < '0') or (pilihan > '4')
        then
          begin
           gotoxy(3,11);write('Salah Memilih Menu!');
          end
        else
          begin
             case (pilihan)of

                  '1' : begin
                          clrscr;
                          gotoxy(13,2);
                          write('Menghitung Luas Segitiga');
                          gotoxy (13,3);
                          write('------------------------');
                          gotoxy(13,4);
                          write('Alas Segitiga   : ');
                          readln(alas);
                          gotoxy(13,5);
                          write('Tinggi Segitiga : ');
                          readln(tinggi);
                          luas :=0.5*alas*tinggi; {hitung luas}
                          gotoxy(13,6);
                          write ('Luas Segitiga   : ');
                          textcolor(RED);
                          write(luas :0:1);
                          gotoxy(10,8);textcolor(15);
                          write ('Tekan Enter Untuk Melanjutkan!');
                        end;
                  '2' : begin

                        end;
                  '3' : begin

                        end;
                  '4' : begin

                        end;
                  '0' : begin
                            clrscr;
                            gotoxy(10,7);
                            write ('Keluar Program..Tekan Enter!');
                        end;
                 end;
            end;
     readln;
end.