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 topicRumus 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.
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





.jpg)





