Contoh Program Mencari Luas

LISTING PROGRAM SEDERHANA MENCARI LUAS PERSEGI PANJANG, LINGKARAN, SEGITIGA PADA PASCAL MENGGUNAKAN DATETIME.

program menu_gabungan;
uses crt,sysutils;

 var
 p,l,L_persegipanjang:double;
 alas,tinggi:integer;
 jari:integer;
 L_lingkaran,L_Segitiga:real;
 pilih:integer;
 YY,MM,DD : Word;
 x,i:integer;
 label return;

  const
  phi=3.14;

   begin
   return:
   clrscr;
   writeln('Waktu : ',TimeToStr(Now));
   DeCodeDate(Date,YY,MM,DD);
   writeln(format ('Tanggal (DD/MM/YY) : %d/%d/%d ', [dd,mm,yy]));
   write (LongDayNames[DayOfWeek(Date)]);
   writeln();
   writeln();
   writeln('------ MENU PILIHAN -----');
   writeln('-------------------------');
   writeln('1. Luas Lingkaran');
   writeln('2. Luas Segitiga');
   writeln('3. Persegi Panjang');
   writeln('4. Keluar');
   writeln('-------------------------');
   write('Pilih Menu 1-4: ');readln(pilih);
   writeln('-------------------------');

   case pilih of
   1:begin
   clrscr;
     writeln('Mencari Luas Lingkaran');
     writeln('----------------------------');
      write('Inputkan Jari-jari: ');readln(jari);
      L_lingkaran:=phi*jari*jari;
      write('Luas Lingkaran adalah ',L_lingkaran:2:2);
      readln;
      goto return;
      end;

   2:begin
   clrscr;
     writeln('Mencari Luas Segitiga');
     writeln('----------------------');
      write('Inputkan Alas: ');readln(alas);
      write('Inputkan Tinggi: ');readln(tinggi);
      L_Segitiga:=alas*tinggi/2;
      write('Luas Segitiga adalah ',L_Segitiga:2:2);
      readln;
      goto return;
      end;

   3:begin
   clrscr;
     writeln('Mencari Luas Persegi Panjang');
     writeln('-----------------------------');
      write('Inputkan Panjang: ');readln(p);
      write('Inputkan Lebar: ');readln(l);
      L_persegipanjang:=p*l;
      write('Luas Persegi Panjang adalah ',L_persegipanjang:2:2);
      readln;
      goto return;
      end;

   4:begin
   clrscr;
     writeln('Terima Kasih telah mencoba PASCAL');
      halt;
      end;

    else
    begin
    clrscr;
    writeln('Pilihan yang anda masukkan SALAH!');
      readln;
      goto return;
      end;
      end;
      end.

ADS HERE !!!