Contoh Program Procedure Dan Function Pada Pascal 8,0/10 372reviews

January 21, 2010 Reserved Word (kata yang dicadangkan/disediakan) merupakan kata-kata khusus yang disediakan oleh bahasa pemrograman yang memiliki arti dan fungsi spesifik. Kata-kata ini tidak boleh digunakan sebagai identifier dan tidak boleh didefinisikan kembali (misalnya sebagai nama prosedur atau fungsi).

Berikut ini kata-kata yang termasuk dalam reserved word di dalam bahasa pemrograman Pascal. RESERVED WORD and asm array begin case const constructor destructor div do downto else end exports file for function goto if implementation in inherited inline interface label library mod nil not object of or packed procedure program record repeat set shl shr string then to type unit until uses var while with xor.

Program sin(x); uses crt; const pi = 3.14; var x,rad,p1,tot: real; n,i,faktor,p2,j: integer; tanda: byte; begin clrscr; writeln(‘ Menentukan nilai sin(x)’); write(‘Nilai x = ‘); readln(x); write(‘Masukkan pangkat = ‘); readln(n); rad:= pi*x/180; i:= 1; tanda:= 1; while i. Program Administrasi_Mahasiswa; uses crt; const pkkspp = 400000; infospp = 600000; elekspp = 500000; bogaspp = 450000; ptikspp = 500000; pkkprak = 100000; infoprak = 500000; elekprak = 450000; bogaprak = 600000; ptikprak = 350000; sehat: real = 10000; var nm,jur: string; nojur: byte; tahun:integer; spp,prak: real; tot: real; begin clrscr; writeln(‘Administrasi Mahasiswa Fakultas Teknik dan Kejuruan’); writeln(‘===================================================’); write(‘Nama: ‘); readln(nm); writeln(‘Keterangan Jurusan: ‘); writeln(‘1. PKK’); writeln(‘2.

D3 Informatika’); writeln(‘3. D3 Elektro’); writeln(‘4. D3 Boga Perhotelan’); writeln(‘5. PTIK’); write(‘Jurusan (tulis no saja): ‘); readln(nojur); write(‘Tahun Masuk: ‘); readln(tahun); if tahun. Program tokoPD; uses crt; const dancowb = 10000; dancows = 4250; dancowk = 2100; indob = 8500; indos = 4000; indok = 2025; milob = 7750; milos = 4000; milok = 2200; suprib = 9600; supris = 5100; suprik = 2600; sustab = 17000; sustas = 14500; sustak = 8300; ovalb = 11250; ovals = 6500; ovalk = 3200; var no: byte; ukuran: char; banyak: longint; bayar: real; begin clrscr; writeln(‘===============================================’); writeln(‘ P & D Toserba’); writeln(‘Susu yang tersedia di P & D Toserba: ‘); writeln(‘1.

Dancow’); writeln(‘2. Indomilk’); writeln(‘3. Milo’); writeln(‘4.

Suprima’); writeln(‘5. Sustagen’); writeln(‘6. Ovaltime’); writeln(‘————————————–‘); write(‘No susu: ‘); readln(no); write(‘Ukuran (b:besar,s:sedang,k:kecil): ‘); readln(ukuran); write(‘Banyak barang: ‘); readln(banyak); case no of 1: begin case ukuran of ‘b’: bayar:=dancowb*banyak; ‘s’: bayar:=dancows*banyak; ‘k’: bayar:=dancowk*banyak; else writeln(‘Ukuran salah!!’); end; Download source code lengkap nya di. Uses crt; const epsilon=0.00001; var a,b,c,fa,fb,fc: real; begin writeln(‘Mencari akar dari persamaan f(x)=(x^3 + 1)/3’); writeln(‘ Dengan Metode Bagi Dua’); writeln(‘============================================’); write(‘Masukkan batas awal(a): ‘); readln(a); fa:=(a*a + 1)/3; writeln(‘f(a) = ‘,fa:0:5); repeat write(‘Masukkan batas akhir(b): ‘); readln(b); fb:=(b*b +1)/3; writeln(‘f(b) = ‘,fb:0:5); if fa*fb. Program regula_falsi; uses crt; label ulang; var x1,x2,x3,y1,y2,y3: real; i: integer; Ab:char; data1: real; begin ulang: clrscr; writeln(‘Tentukan nilai akar dari persamaan f(x)=x^3+x^2-3x-3=0 dengan Regula Falsi’); write(‘Masukan nilai x1 = ‘);readln(x1); y1:= x1 * x1 * x1 + x1 * x1 – 3 * x1 – 3; writeln(‘ Nilai f(x1)= ‘,y1:0:4); repeat begin write( ‘Masukan nilai x2 = ‘ ); readln(x2); y2:= x2 * x2 * x2 + x2 * x2 – 3 * x2 – 3; write(‘ Nilai f(x2)= ‘,y2:0:4); end; if (y1*y2).

Contoh Program Procedure Dan Function Pada Pascal

Manfaat lainnya dari fungsi adalah menyusun program secara terstruktur. Saat kamu membuat program sampai berbaris-baris kode. Terkadang untuk membaca kembali apa sudah kamu tulis terasa sulit dan membutuhkan waktu. Misalnya saja kamu mau mencari kode di baris berapa yang mengatur percabangan ini atau itu, karena kamu mau merubahnya. Nah, dari banyak baris kode itu kamu harus mencarinya.

Supaya lebih efisien, ubah program itu menjadi lebih terstruktur. Bagian yang mengatur pengecekan string, perulangan yang bercabang-cabang pula, masing-masing dapat kamu uraikan dengan membuat fungsi. Uses wincrt; var panjang, lebar: integer; procedure intro; begin writeln; writeln; writeln( 'Hai, aku Pascal!'

); writeln( 'Aku butuh bantuanmu.' ); writeln( 'Aku sedang membuat kandang burung.' ); writeln( 'Aku butuh papan segiempat'); writeln( 'Jika kamu punya. Beritahu aku.' ); end; procedure input; begin write( 'Berapa panjang papannya (satuan meter)?

When you are required to debug the program, bugs could be much more easier to find out as the program is sliced into smaller chunks. You may run the program and notice a mistake at a certain point and which is located in a particular procedure/function. It would be much more difficult to find a mistake in a program if it.Missing. Mar 15, 2014 Pascal - Mengenal Procedure dan Function. Pada program tadi, fungsi itu. Sejelas-jelasnya dengan memberikan penjelasan secara terperinci dan contoh.

'); readln( panjang); write( 'Berapa lebar papannya (satuan meter)? '); readln( lebar); end; function luas ( a, b: integer): integer; begin luas:= a * b; end; function keliling: integer; begin keliling:= 2 * ( panjang + lebar); end; BEGIN intro; writeln; writeln( 'Tentang papan persegi milikmu.' ); input; writeln; writeln( 'Hmm. Kalau aku hitung-hitung.' ); writeln( 'Luas papanmu adalah ', luas( panjang, lebar), ' meter persegi.'

); writeln( 'Dan keliling papanmu adalah ', keliling, ' meter.' ); writeln( 'Terima kasih.

Aku membutuhkannya.' ); readln; END. Mari kita rinci hal-hal baru pada program diatas. • Dari BEGIN ke END adalah program utama. Seperti variabel, sebelum digunakan prosedur dan fungsi harus dideklarasikan apa-apa saja perintahnya. Pendeklarasian terjadi sebelum program utama dan sesudah pendeklarasian variabel.

• Masing-masing fungsi dan prosedur bisa diberi nama. Nama itu berguna untuk memanggil fungsi/prosedur pada program utama. Coba lihat pada fungsi luas dan keliling. Kamu bisa lihat nama dari fungsi itu diberikan nilai, seperti luas:= a * b dan keliling:= 2 * (panjang + lebar).

Itulah bagian dimana fungsi mengembalikan nilai nantinya. • Fungsi itu mirip seperti variabel.

Variabel hanya bisa dimasukan nilai, tapi fungsi bisa menjalankan perintah-peritah tertentu dan kemudian memiliki nilai. Oleh karena itu, pada nama fungsi, disertai juga tipe data, seperti pada function luas (a, b: integer): integer. Lihat integer yang di bold berwarna merah, itu adalah penentuan tipe data dari fungsi luas.

• Bedakan dengan prosedur yang tidak mengembalikan nilai apa-apa. Prosedur hanya menjalankan kumpulan-kumpulan perintah. • Coba kamu perhatikan fungsi luas dan keliling.

Ada perbedaan? Saya sengaja membuat perbedaan itu supaya kamu dapat mengetahui variasi menulis fungsi. Pada fungsi luas, terdapat yang disebut parameter. Lihat, function luas (a, b: integer): integer. Bagian berwarna merah disebut parameter. Pengertian mudahnya, parameter adalah pengambilan nilai. Coba lihat saat fungsi luas dipanggil, luas (panjang, lebar).

Nah, sudah bisa menebak? Nilai a akan sama dengan nilai panjang, dan nilai b akan sama dengan nilai lebar. Seandainya kamu ganti seperti ini, luas (10, 12). Nilai a akan sama dengan 10 dan nilai b akan sama dengan 12. • Kenapa fungsi keliling tidak menggunakan parameter? Manfaat menggunakan parameter, nilai asli variabel yang berhubungan tidak akan berganti nilai oleh karena menjalankan fungsi.

Pada fungsi luas, variabel yang berhubungan adalah variabel panjang dan lebar. Terkadang, pada fungsi tertentu, nilai variabel itu perlu diubah-ubah, padahal kita masih butuh nilai aslinya. Oleh karena itu, variabel itu digantikan dengan variabel dalam parameter dengan mengambil nilai dari variabel panjang dan lebar. Tapi, jika tidak masalah menggunakan variabel aslinya, ya tidak perlu ada parameter. • Terakhir, mengenai pemanggilan fungsi/prosedur. Memanggil fungsi/prosedur hanya tinggal menuliskan nama fungsi/prosedur itu. Oh iya, kamu bisa lho memanggil fungsi untuk mengisi nilai variabel, seperti ini: nilai:= fungsi(3, 4); Variabel nilai nanti akan bernilai hasil dari pengembalian nilai fungsi.

Gimana paham? Kamu harus sudah mengerti apa itu percabangan () dan tentang tipe data ().

Agak sulit menjelaskannya. Tapi, saya akan coba.

Emergency 4 Portuguese Mod Em4 here. Begini alurnya: • Kita memasukan (input) nilai pada variabel angka. • Output writeln memanggil fungsi faktorial dengan memasukan nilai variabel angka sebagai parameter dan akan sama nilainya dengan variabel n. • Misal nilai angka adalah 5, maka n juga 5. • Mulai fungsi faktorial(5).

• Masuk ke percabangan fungsi faktorial. Program menjalankan cabang yang pertama, karena nilai n adalah 5 dan 5 nilainya lebih dari 1. Kemudian, fungsi faktorial mengembalikan nilai senilai 5 * faktorial(5 - 1).

Artinya adalah 5 * faktorial(4). • Fungsi faktorial dipanggil lagi. Kali ini dengan nilai n sama dengan 4.

Program menjalankan cabang pertama lagi, karena nilai n masih lebih dari 1. Kemudian, fungsi faktorial mengembalikan nilai lagi senilai 4 * faktorial(4 - 1), yang artinya 4 * faktorial(3). • Begitu seterusnya, fungsi faktorial dipanggil terus dengan nilai parameternya yang semakin berkurang. • Hingga akhirnya pada saat nilai n sama dengan 2, fungsi faktorial akan mengembalikan nilai senilai 2 * faktorial(2 - 1), yang berarti 2 * faktorial(1). • faktorial(1) dipanggil. Kali ini masuk ke cabang 2, karena nilai n tidak lebih dari 1, melainkan sama dengan 1. Kemudian, fungsi faktorial mengembalikan nilai 1.

• Apa kesimpulannya? Fungsi ini akan membentuk pola perkalian yang dalam Matematika disebut faktorial. Fungsi faktorial(5), menghasilkan: 5 x 4 x 3 x 2 x 1 = 120. SALAM ADMIN, Terima kasih atas kunjungannya. Saya berharap artikel ini sangat berguna bagi anda. Blog Codex-Mania sangat-sangat membutuhkan komentar dan saran dari pengunjung demi meningkatkan kualitas setiap artikel.

Blog ini membutuhkan beberapa komentar mengenai: 1. Pewarnaan Teks, blog Codex-Mania mencoba berinovasi untuk membuat artikel yang lebih menarik dengan memberi warna pada bagian-bagian tertentu. Pendapat anda? Gaya Bahasa, blog Codex-Mania berusaha untuk menyajikan artikel dengan bahasa yang mudah luwes dan mudah dipahami. Pendapat anda? Kejelasan Artikel, blog Codex-Mania berusaha untuk memberi tutorial sejelas-jelasnya dengan memberikan penjelasan secara terperinci dan contoh-contoh program. Pendapat anda?

Sekali lagi demi meningkatkan kualitas penulisan, saya sangat mengharapkan komentar dan saran dari anda. Terima kasih.