Mengenai Saya
- airinda ektria
- airinda orang yang imut,hehe tapi punya kekurangan yakni sifat ngmbek....
Sabtu, 20 Juni 2009
MENGHITUNG LUAS SEGITIGA
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.
Langganan:
Posting Komentar (Atom)
Tidak ada komentar:
Posting Komentar