program maksimum sort pada pascal

kali ini saya akan memposting program yang telah saya buat yaitu maksimum sort pada pascal

maksimum sort sendiri merupakan pengurutan data pada pascal dengan cara mencari nilai tertinggi dan mengurutkannya hingga nilai terendah ... prosesnya hampir sama seperti bubble sort

pertama2 kita ketik kode programnya,.... anda bisa memakai free pascal, turbo pascal maupun turbo pascal for windows...

dibawah ini merupakan kode programnyaa...

dan output programnya

segitiga angka perulangan (while) pada delphi

 Membuat program segitiga angka pada delphi.... saya menulis program ini dengan harapan dapat berguna bagi yang membutuhkannya suatu hari.....
program ini berasal dari program pascal yang diterapkan pada delphi

pertama tama kita buat form pada delphi seperti berikut

form diatas memakai component pallete 1 lstbox dan 1 button 

lalu klik 2x pada button dan isi code programnya

lalu isi pada code editor seperti berikut

maka ketika di run akan berjalan seperti berikut....

ketika kita klik button akan muncul segitiga program  

sekian program dari saya mudah2an bermanfaat....
bagi anda yang tertarik pada bidang programming latihan sangat diperlukan.. terus mencoba adalah kuncinya...