segitiga


mudahnnya belajar pascal

mulailah dengan program sederhana contoh segitiga

uses wincrt;
var
a,t,s,k,l:real;

begin
writeln('  program segitiga ');
write('masukkan alas  :');readln(a);
write('masukkan tinggi:');readln(t);
s:=sqrt(a*a + t*t);
k:=a+t+s;
l:=0.5*a*t;
writeln('sisi miring :',s);
writeln('keliling    :',k);
writeln('luas        :',l);
end.

Copyright 2009 AYO BLAJAR BARENG. All rights reserved.
Bread Machine Reviews | watch free movies online by Blogger Templates