lets start
program luas_segitiga;
var
L,a,t :real;
begin
write('a=');
readln(a);
write('t=');
readln(t);
L;1/2*a*t;
writeln(L);
end.
setelah itu di compile untuk membuktikan apakah program yang kita buat tidak error.setelah itu klik run dan masukkan nilai ke dalam nilai a dan t yang ditanya.setelah itu klik debug->out put,maka akan keluar nilai luas segitiga nya berapa.
2.untuk angka yang sudah kita ketahui sebelumnya
lets start
program luas_segitiga;
var
L,a,t :real;
begin
a:=3;
b:=6;
writeln('a=',a);
writeln('t=',t);
L;1/2*a*t;
writeln('L=',L);
end.
lanjutkan cara pada no 1 diatas.tp kekurangannya ini cuma bisa untuk angka yang telah kita tentukan sebelumnya..
semoga membantu!!!:):):)
