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
Posting Komentar