MENGHITUNG LUAS SEGITIGA

MENGHITUNG LUAS SEGITIGA

uses WinCrt;

VAR

 A,T : INTEGER;

 L:REAL;

  LAGI:CHAR;

BEGIN

    

     LAGI:='Y';

     WHILE (LAGI='Y') OR (LAGI= 'y') DO

     BEGIN

          CLRSCR;

          WRITELN;

          WRITELN('HITUNG LUAS SEGI TIGA');

          WRITE('ALAS    : ')    ; READLN(A);

          WRITE('TINGGI  : '); READLN(T);

          L:=1/2*A*T;

          WRITE('LUAS    : ',L:2:2) ;

          WRITELN;

          WRITE('AKAN MENGHITUNG LAGI [Y/T] : '); READLN(LAGI);

     END;

     WRITELN;

     WRITELN(' SELESAI ............................................. ');

END.