Menghitung Rumus Segitiga dengan Pascal

program segitiga1;
uses crt;

var a,t:integer;
L:real;
const k=0.5;

begin
clrscr;

a:=3;
t:=3;
l:=k*(a*t);

writeln(l);
readln;


end.

Tweet

Jangan sampai ketinggalan postingan-postingan terbaik dari Gadget Mainstream. Berlangganan melalui email sekarang juga:

Atau sobat juga bisa follow Gadget Mainstream dengan mengklik tombol di bawah ini:

Artikel keren lainnya:

Ditulis oleh Gadget Mainstream pada tanggal Senin, 05 Januari 2015