- Program Menghitung Luas Segitiga
uses crt;
var
alas,tinggi:integer;
procedure hitung_luas(a,t:integer);
alas,tinggi:integer;
procedure hitung_luas(a,t:integer);
var
luas:real;
luas:real;
begin
clrscr;
luas:=a*t/2;
writeln(‘Luas segitiga =’,luas);
end;
clrscr;
luas:=a*t/2;
writeln(‘Luas segitiga =’,luas);
end;
begin
writeln(‘Masukkan ukuran alas =’);readln(alas);
writeln(‘Masukkan ukuran tinggi =’);readln(tinggi);
hitung_luas(alas,tinggi);
readln;
end.
writeln(‘Masukkan ukuran alas =’);readln(alas);
writeln(‘Masukkan ukuran tinggi =’);readln(tinggi);
hitung_luas(alas,tinggi);
readln;
end.
Komentar
Posting Komentar