Membuat Rumus Sederhana dengan Turbo Pascal

Sesuai dengan judulnya, hati ini saya akan memberikan rumus untuk turbo pascal, dan rumus yang saya berikan itu adalah rumus luas segitiga.Daripada bengong nggak jelas, langsung aja ke main topic





Rumus luas segitiga

program rumus;
uses crt,dos;
var
alas,tinggi:Integer;
luas:Real;
sl:char;
begin
clrscr;
writeLn('Program Mencari Luas Segitiga');
writeLn;
write('Masukkan Alas');ReadLn(Alas);
write('Masukkan Tinggi');ReadLn(Tinggi);
luas:=(Alas*Tinggi)/2;
WriteLn;
WriteLn('Luasnya Adalah',Luas:15:2);
sl:=Readkey;
end. 

Semoga dapat Membantu