Beranda » Algoritma » Pascal » Procedure

Procedure

Selamat Datang

بِسْمِاللَّهِ الرَّحْمَنِ الرَّحِيمِ

Hai sahabat ... Selamat datang di Wisnurat's blog. Sedikit tulisan dan komentar yang mungkin asal-asalan, tapi mudah - mudahan deh bisa bermanfaat. Sebagai salam silaturahmi dengan senang hati kalau bisa tukaran link. Siapa tahu temen-teman yang lain juga ingin mampir ke blog sahabat. Terimakasih telah berkunjung. Jangan lupa mampir lagi ya... :)

Semua tulisan pada blog ini juga diposting pada blog okeguru.com

Masukkan alamat e-mail Anda untuk berlangganan blog ini dan menerima pemberitahuan tulisan-tulisan baru melalui email.

Bergabunglah dengan 13 pengikut lainnya

Blog Stats

  • 201,058 hits

Tamu

free counters

Traffic

Google PageRank Checker

Andaikan ada tugas membuat program untuk mencetak teks:
Teknik Radio
Teknik Analog
Teknik Digital

Kira-kira list programnya adalah seperti berkut:


Program cetakteks;

Uses Crt;

Begin

ClrScr;

Writeln(‘1.Teknik Radio’);

Writeln(‘1.Teknik Analog’);

Writeln(‘1.Teknik Digital’);

End.

Sekarang bagaimana list program untuk mencetak kata seperti tugas diatas sebanyak 3 kali, sehingga outputnya diarapkan seperti berikut:

Teknik Radio
Teknik Analog
Teknik Digital

Teknik Radio

Teknik Analog
Teknik Digital

Teknik Radio
Teknik Analog

Teknik Digital

Sudah tentu list programnya adalah seprti berikut :


Program cetakteks;

Uses Crt;

Begin

ClrScr;

Writeln(‘1.Teknik Radio’);

Writeln(‘2.Teknik Analog’);

Writeln(‘3.Teknik Digital’);

Writeln(‘1.Teknik Radio’);

Writeln(‘2.Teknik Analog’);

Writeln(‘3.Teknik Digital’);

Writeln(‘1.Teknik Radio’);

Writeln(‘2.Teknik Analog’);

Writeln(‘3.Teknik Digital’);

End.

Solusi tersebut tidaklah efektif dan efisien. Dengan menggunakan procedure program yang memiliki baris program sebanyak itu bisa lebih ringkas. Perhatian dengan list program berikut untuk menjawab pertanyaan kasus di atas.


Program cetakteks;

Uses Crt;

Procedure teks;

Begin

Writeln(‘1.Teknik Radio’);

Writeln(‘2.Teknik Analog’);

Writeln(‘3.Teknik Digital’);

End;

Begin

teks;

teks;

teks;

End.

Dengan kata lain procedure adalah sub program yang dapat dipanggil pada bagian isi/badan program dengan cara memanggil nama procedure. Seperti pada kasus diatas dengan cara menuliskan 3 kali nama procedure maka bagain isi/badan program yang ditulis pada bagian procedure dieksekusi sebanyak tiga kali. Hal lain yang perlu diamati adalah penulisan end diakhiri dengan titik koma (;) hal ini bengandung arti bahwa program masih bersambung. Apabila end diakhiri dengan tanda titik mengandung arti program akhir dari program.


2 Komentar

  1. D'aDmiRer mengatakan:

    thank ych ilmunya ..

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

Selamat Datang

بِسْمِاللَّهِ الرَّحْمَنِ الرَّحِيمِ

Hai sahabat ... Selamat datang di Wisnurat's blog. Sedikit tulisan dan komentar yang mungkin asal-asalan, tapi mudah - mudahan deh bisa bermanfaat. Sebagai salam silaturahmi dengan senang hati kalau bisa tukaran link. Siapa tahu temen-teman yang lain juga ingin mampir ke blog sahabat. Terimakasih telah berkunjung. Jangan lupa mampir lagi ya... :)

Semua tulisan pada blog ini juga diposting pada blog okeguru.com

Masukkan alamat e-mail Anda untuk berlangganan blog ini dan menerima pemberitahuan tulisan-tulisan baru melalui email.

Bergabunglah dengan 13 pengikut lainnya

%d blogger menyukai ini: