Minggu, 08 Mei 2011

Membuat program Luas segitiga dengan Turbo Pascal/Free Pascal

20.50

Pada postingan kali ini saya akan membuat sebuah contoh program sederhana untuk menghitung luas segitiga dengan hasil seperti berikut:
untuk source kodenya :


program luas_segitiga;
uses crt;
  var
     luas : real;
     a,t : integer;
 begin
    clrscr;
      write(‘Masukkan Alas : ’);readln(a);
      write(‘Masukkan Tinggi : ’);readln(t);
      luas := ½ * a * t;
      writeln(‘Luas Segitiga adalah :’,luas:2:1);readln;
end.

Selamat mencoba dan berkreasi!

Written by

Penulis Lepas, apa yang ditemukan dan dialami bisa jadi bahan tulisan. 100% saya bisa salah!!! atau bisa benar, jadi bila menemukan konten dalam blog ini yang salah atau menyalahi silahkan saya mohon koreksi dari para pembaca.

3 komentar:

Anonim mengatakan...

punten
bang ko di baris 11 ada tulisan Luas:2:1.
tiu pengertiannya gimana ya?
trimakasih sebelumnya...

Anonim mengatakan...

itu untuk desimal, ato bilangan dibelakang enol koma

Yahya Nursidik mengatakan...

to Anonim untuk menampilkan nilai 0 dibelakangka angka awal, iy tergantung type data yang dipilih

 

© 2014 Gapura PangartiDesigned by Templateism

Back To Top