Program prosedur Pascal

Listing program program Lsegitiga; uses crt; var i,n:integer; a,t:real; procedure hitungLuassegitiga(alas,tinggi:real); var luas:real; begin luas:=(alas*tinggi)/2; writeln('luas segitiga=',luas:10:2); end; begin clrscr; write ( ' banyaknya segitiga ?'); readln(n); for i:=1 to n do begin write(' panjang alas segitiga?'); readln(a); write('tinggi segitiga?'); readln(t); hitungluassegitiga(a,t); readln; End; End. LOGIKA PEMROGRAMAN Uses crt; adalah index atau kamus yang akan digunakan, ini wajib ada dalam turbo pascal. Var adalah variabel yang akan digunakan dalam program, di bagian ini saya memasukkan jenis variabel dan type data yang akan digunakan. Misal: saya ingin membuat sebuah variabel yang menampilkan nama maka kita tinggal mengetik Nama:string;. Maksudnya adalah nama variabelnya ‘Nama’ dan type datanya ‘string’. String adalah type data kumpulan huruf atau kalimat. Variabel yang saya gunakan diatas type datanya ada 2. String artinya kalimat atau kata dan real artinya bilangan pecahan. Di bagian ‘Begin’ adalah kumpulan barisan perintah yang harus dikerjakan oleh komputer, diakhir program harus selalu diakhiri dengan ‘End’. ‘write/writeln’ digunakan untuk menampilkan isi dari suatu nilai variabel di layar. ‘read/readln’ perintah ini digunakan untuk memasukkan (input) data dalam keyboard ke dalam suatu