Blog

Kamis, 17 Januari 2013

membuat rumus luas segitiga dengan turbo pascal 7,1

1.jika kita belum memasukkan angkanya
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!!!:):):)

0 komentar:

Poskan Komentar