02.23
Unknown
Program Menghitung Luas Segitiga
program luas;
uses crt;
var
a,t: integer;
L: real;
begin
clrscr;
write('Masukan Nilai Alas:');
readln (a);
write('Masukan Nilai Tingi:');
readln(t);
writeln(' ');
L:=(a*t)/2;
writeln('Luas Segitiga adalah =',L:6:2);
readln;
end.
program luas;
uses crt;
var
a,t: integer;
L: real;
begin
clrscr;
write('Masukan Nilai Alas:');
readln (a);
write('Masukan Nilai Tingi:');
readln(t);
writeln(' ');
L:=(a*t)/2;
writeln('Luas Segitiga adalah =',L:6:2);
readln;
end.
Posted in: Struktur Data
0 komentar:
Posting Komentar