Ini adalah program pascal, tentang program matematika, menghitung luas segitiga, di bawah ini adalah programnya:
Program menghitung_luas_segitiga;
uses crt;
var a,b,c:integer;
s,luas:real;
begin
clrscr;
writeln (’ PROGRAM MEMNGHITUNG LUAS SEGITIGA ’);
writeln (’CREATED BY:AIRINDA EKTRIA K 070793 4B ');
writeln;
writeln (’masukkan a’); readln (a);
writeln (’masukkan b’); readln (b);
writeln (’masukkan c’); readln (c);
s:=(a+b+c)/2;
writeln (’nilai s adalah:’,s:2:2);
luas:=sqrt(s*(s-a)*(s-b)*(s-c));
writeln (’luas segitiga adalah:’ , luas:2:2);
readln;
end.
Tidak ada komentar:
Posting Komentar