Mengenai Saya

Foto Saya
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.

Tidak ada komentar:

Poskan Komentar