Mencari
Luas Segitiga
List Programnya :
Program luas_segitiga;
Uses crt;
Var a, t : integer;
L : real;
Begin
write(‘Masukkan nilai alas
:’); readln(a);
write(‘Masukkan nilai tinggi :’);
readln(t);
L :=0.5*A*T;
Write(‘Luas segitiga =’ );
Writeln(L);
Readln;
End.
0 komentar:
Post a Comment