Program Menghitung Luas Segitiga
program luas;
uses crt;
var
a,t: integer;
L: real;
begin
clrscr;
write('Masukan Nilai Alas:');
readln (a);
write('Masukan Nilai Tingi:');
readln(t);
writeln(' ');
L:=(a*t)/2;
writeln('Luas Segitiga adalah =',L:6:2);
readln;
end.
hasilnya seperti dibawah ini:
Masukan Nilai Alas:12
Masukan Nilai Tingi:8
Luas Segitiga adalah = 48.00
thanks infonya :)
BalasHapusSama-sama. terimakasih sudah berkunjung ke blog saya :)
Hapusdicobakan tapi ga bisa jalan prognya
BalasHapusAda pesan kesalahannya nggak? Itu soalnya saya Copas langsung dari Program yang sudah jalan.
Hapussaya masih belum bisa,,,pesan kesalahannya di 16,4...itu tepat nya di end. gak tau apa lg yg dirobah
Hapusmakasih atas share nya gan tapi lebih bagus lagi ada logika supaya mudah dipahami :)
BalasHapusOke trimakasih. ditampung ya sarannya :)
BalasHapuskalo :6:2 itu apa maksudnya ya?
BalasHapuskalo nggak salah itu jumlah digitnya sama banyaknya 0 dibelakang koma.
BalasHapuskalo untuk menghitung jarak garis ke pusat lingkaran jak gmna cranya,,,???
BalasHapusMencari jari-jari ya?? r=akar (L/phi) kalo nggak salah, coba cari cari rumusnya yah..
Hapusterimakasih informasi tentang pascalnya
BalasHapusterimakasih banyak bang,, sangat bermanfaat..
BalasHapusTrims... :)
Hapusitu maksud dari L:6:2 << itu apa ya maksudnya mohon penjelasan serinci nya ?? :)
BalasHapusJumlah output 6 Digit. dan angka dibelakang koma 2 digit.
Hapus