Program Pascal : Contoh penggunaan PROCEDURE dan perulangan IF ELSE membuat piramid Bilangan

Procedure --- Dalam melakukan pemrograman dengan bahasa apapun tentu biasanya kita memasukkan sebuah pernyataan atau statement maupun sebuah rumus matematika yang akan menjadi bagian yang akan nantinya diproses didalam program.

Seperti itulah gambaran fungsi utama dari procedure. Procedure sangat membantu kita dalam penulisan rumus matematika tanpa perlu menulisnya berkali-kali, hanya dengan memanggil nama procedure rumus matematika ataupun pernyataan dapat dipenggil dengan mudah. tentu ini sangat memudahkan kita dalam penulisan listing kode yang ingin kita panggil berulang-ulang tanpa menulis prosesnya setiap membuat pernyataan baru. Kali ini saya menggunakan procedure dalam bahasa pemrograman pascal

baca juga : Mengenal Pemrograman Pemrograman Bahasa Pascal.

Program yang besar menggunakan procedure, makanya perlu menguasai penggunaan procedure untuk membuat proyek program yang besar. Procedure ini kita gunakan dalam pemrograman berbasis objek seperti dalam menggunakan delphi, listing kode yang digunakan setiap properti menggunakan procedure sebagai tempat menulis listing kode pascal.

Untuk lebih jelasnya tentang penggunaan procedure, bisa lihat contoh berikut:

Aplikasi yang saya gunakan dalam contoh ini yaitu free pascal.

Listing kode pascal procedure, perulangan if else dan for down to do.

Program piramid_angka_tekprograpp;
Uses crt;

Procedure piramid(n:integer);
Var
A,b,c:integer;{a=baris,b=spasi,c=angka yang muncul di layar}

Begin
If n<=10 then

Begin
For a:=1 to n do

Begin
For b:=n downto a+1 do write(' ');
For c:=1 to (a*2)-1 do write(c);
Writeln;
End;
End;
Writeln;
If n>10 then write('Anda hanya boleh memasukkan nilai<=10');
End;

{program utama}
Var
Nilai:integer;

Begin
clrscr;
writeln(' Program Membuat Piramid Nilai');
writeln('=====================================================');
Writeln;
Write('Masukkan jumlah baris piramid yang ingin Anda buat = ');readln(nilai);
Piramid(nilai);
readln;

End.

Setelah menulis listing kode pascal yang menggunakan procedure, silahkan run atau tekan kombinasi tombol ctrl+f9. Hasil tampilan setelah di run akan seperti berikut..

Silahkan isi sesuai berapa tingkat piramid angka ingin dibuat. berikut saya tulis 7 tingkat

Hasil Running membuat sebagian dari kita mungkin kebingungan untuk melihatnya saja karena pikiran seorang programer akan mencari algoritma pembuatannya jika melihat sebuah program. 

baca juga : Pengertian Algoritma

Dari contohnya kita menggunakan If Else dan For downto do sebagai perulangan yang menulis bilangan setiap barisnya. 

Kenapa posisiya teratur ditengah? Biasanya program yang kita buat otomatis memulai penulisan dibagian paling kiri, namun program procedure yang kita posisi teratur membentuk piramid. perhatikan kode dibawah

For a:=1 to n do

Begin
For b:=n downto a+1 do write(' ');
For c:=1 to (a*2)-1 do write(c);
Writeln;
End;

Listing tersebut yang membuat spasi teratur menjadi terbentuk piramid, menggunakan perulangan for downto do yang akan terulang setiap pembuatan spasi.

Dari hasil running diatas semoga bias dimengerti yah. Untuk selengkapnya tentang caranya bisa tulis di komentar yah..

Sekian contoh penggunaan Procedure dan perulangan IF ELSE untuk membuat piramid Bilangan. semoga bermanfaat...

Bagikan ke:

Facebook Google+ Twitter