PASCAL : menghitung luas segitiga

PROGRAM luas_segitiga;
USES CRT;
VAR alas, tinggi : integer;
luas : real;
BEGIN
CLRSCR;
WRITELN(‘Program Menghitung Luas Segi Tiga’);
WRITELN(‘Diketahui :’);
WRITE(‘ alas = ‘);READLN(alas);
WRITE(‘ tinggi = ‘);READLN(tinggi);
                 luas:=1/2*alas*tinggi;
                 WRITELN(‘ Phi = ‘,phi);
                 WRITELN(‘Maka :’);
         WRITELN(‘ Luas Segi Tiga = ‘,luas);
                 WRITE(‘ Luas Segi Tiga = ‘,luas:0:0);
READLN;
END.

Komentar

Postingan populer dari blog ini

Makalah Algoritma Hough Transform & Source Code

Pengolahan Citra Digital : Laporan Praktikum Jobsheet 3

Pengolahan Citra Digital : Laporan Jobsheet 5