Pucill Kecil :)

turbo pascal

Diposting oleh Unknown , Jumat, 15 November 2013 22.33

Tugas TIK Turbo Pascal
Uses wincrt;
Var
a,t,sm,ls,kl:real;
Begin
writeln('Program Segitiga');
write('Masukkan alas : ') ; readln (a);
write('Masukkan tinggi :'); readln (t);
sm:=sqrt(a*a+t*t);
ls:=0.5 *a*t;
kl:=a+t+sm ;
writeln('sisi miring:',sm:2:2);
writeln('luas:',ls:2:2);
writeln('keliling:',kl:2:2);
end.

Posted in pelajaran