Praktikum Algoritma & Pemograman 2A

Pada kali ini saya disuruh membuat program mencari luas kubus dengan menggunakan Delphi
berikut tampilan form dan listingnya :


Form :

Listing Program :

Output Program :

Logika Program :

      Pada listing program delphi ini “a:integer;” akan membuat inputan dengan tipe data integer pada “a”. Kemudian “i:real;” akan membuat inputan pada “i”. Lalu “a:=StrtoInt(sisi1.text);” akan membuat inputan dengan tipe data string yang diubah menjadi tipe data pada “sisi1.text”. Setelah itu “i:=6*a;” akan membuat rumus kubus pada “i”. Kemudian “hasil.Caption:=’luas kubus’+FloatToStr(i);” akan mencetak hasil sekaligus membuat inputan dengan tipe data float yang diubah menjadi tipe data string. Lalu “end.” akan menutup program yang telah dibuat.