6 CONTOH PROGRAM PASCAL SEDERHANA

Bahasa pemrograman adalah instruksi standar yang digunakan untuk memerintah komputer. Bahasa pemrograman ada beberapa macam diantaranya bahasa Basic, Visual Basic, Pascal, Java, PHP dan lainnya.

Pada artikel kali ini saya tidak akan menjelaskan semua bahasa pemroraman tersebut, tetapi saya hanya akan membagikan program pascal sederhana yang sudah pernah saya buat, dari pada nganggur di laptop, mendingan saya share disini siapa tahu dapat bermanfaat bagi yang lainnya.
Untuk software yang saya gunakan untuk membuat program pascal ini adalah Geany. Bagi yang belum punya software bisa di download pada link dibawah ini :

Download Geany

Untuk versi geany yang terbaru bisa di download Disini
Langsung saja berikut ini adalah beberapa contoh program pascal sederhana.

1.Program Input Output
Kode Program :
program P1_Input_Cetak; uses crt; var nama,alamat:String; umur:byte; begin writeln; writeln(' |==============================================|'); writeln(' | INPUT & CETAK DATA |'); writeln(' |==============================================|'); write(' Masukkan Nama : ');readln(nama); write(' Masukkan Umur : ');readln(umur); write(' Masukkan Alamat : ');readln(alamat); writeln; writeln(' |==============================================|'); writeln(' | Nama | Umur | Alamat |'); writeln(' |==============================================|'); writeln(' | ',nama:6,' | ',umur:2,' | ',alamat:9,' |'); writeln(' |==============================================|'); readln; end.
Tampilan Program :

2.Program Cetak Bintang(*)1
Kode Program :
program cetak_btg_1; uses crt; var i,j,jum: byte; begin writeln; writeln(' |=======================|'); writeln(' | CETAK BINTANG |'); writeln(' |=======================|'); writeln; write(' Masukkan Jumlah Baris : ');readln(jum); writeln; for i:=1 to jum do begin write(' '); for j:=1 to i do begin write('*'); end; writeln; end; writeln; readln; end.
Tampilan Program :

3.Program Cetak Bintang(*)2
Kode Program :
program cetak_btg_2; uses crt; var i,j,jum: byte; begin writeln; writeln(' |=======================|'); writeln(' | CETAK BINTANG |'); writeln(' |=======================|'); writeln; write(' Masukkan Jumlah Baris : ');readln(jum); writeln; for i:=jum downto 1 do begin write(' '); for j:=1 to i do begin write('*'); end; writeln; end; writeln; readln; end.
Tampilan Program :

4.Program Konversi Waktu Ke Detik
Kode Program :
Program Konversi_Waktu; Uses crt; Var jam,menit,detik,hasil:integer; begin writeln; writeln(' |=================================|'); writeln(' | Konversi Waktu Ke Detik |'); writeln(' |=================================|'); writeln; write(' Masukkan Jumlah Jam : ');readln(jam); write(' Masukkan Jumlah Menit : ');readln(menit); write(' Masukkan Jumlah Detik : ');readln(detik); writeln; hasil:=(jam*3600)+(menit*60)+detik; writeln(' Jadi Hasil Konversi : ',hasil,' Detik'); readln; end.
Tampilan Program :

5.Program Konversi Waktu(Detik) Ke Jam
Kode Program
Program Konversi_Waktu_Ke_Jam; Uses crt; var jam,menit,detik,awal,sisa,sisa1:integer; begin writeln; writeln(' |======================================|'); writeln(' | Program Konversi Waktu(Detik) Ke Jam |'); writeln(' |======================================|'); writeln; write(' Masukkan Jumlah Detik : ');readln(awal); if (awal/3600)>0 then begin jam:=awal div 3600; sisa:=awal-(jam*3600); end else begin jam:=0; sisa:=awal; end; if (sisa/60)>0 then begin menit:=sisa div 60; sisa1:=sisa-(menit*60); end else begin menit:=0; sisa1:=sisa; end; detik:=sisa1; writeln; writeln(' Hasil => ',jam,' jam ',menit,' menit ',detik,' detik'); readln; end.
Tampilan Program :

6.Program Input Output (Array)
Kode Program :
program Input_Cetak_Array_1; uses crt; var nama: array[0..5] of String; alamat: array [0..5] of String; umur: array [0..5] of byte; i,n: byte; begin writeln; writeln(' |==============================================|'); writeln(' | INPUT & CETAK DATA |'); writeln(' |==============================================|'); for i:=1 to 3 do begin writeln(' Input data Ke-',i); write(' Masukkan Nama : ');readln(nama[i]); write(' Masukkan Umur : ');readln(umur[i]); write(' Masukkan Alamat : ');readln(alamat[i]); writeln; end; writeln; writeln(' |==============================================|'); writeln(' | Nama | Umur | Alamat |'); writeln(' |==============================================|'); for n:=1 to 3 do begin writeln(' | ',nama[n]:6,' | ',umur[n]:2,' | ',alamat[n]:9,' |'); end; writeln(' |==============================================|'); readln; end.
Tampilan Program :

***
Itulah beberapa program pascal sederhana yang bisa saya bagikan, jika ada koreksi, masukan ataupun pertanyaan bisa disampaikan pada kolom komentar dibawah. Semoga bermanfaat.

• Tweet
• Share
• Share
• Share
• Share

About Admin

Jangan menyerah atas impianmu, impian memberimu tujuan hidup. Ingatlah, sukses bukan kunci kebahagiaan, kebahagiaan adalah kunci kesuksesan. Semangat!! Jangan lupa bahagia.

Related Post