Program Bahasa Pascal (Procedure)

Mengitung bangun datar dengan mengunkan bahasa pemrograman pascal, dan kali saya buat dengan mengunakan subprogram ( procedure). Dan anda bisa tau perbedaan pungsi dari subprogram function dan procedure.

Dibawah ini sourcecode pemrograman tersebut.

program menghitung_bangun_datar;

uses wincrt;

const

phi=3.14;

var

sisi,P,L,r,luas,kell,no:integer;

ls,kl:real;

Program Bahasa Pascal (Function)

Mengitung bangun datar dengan menggunakan bahasa pemrogramaan pascal dengan mengunakan subprogram (function). Dan ditulisan berikutnya saya akan coba buat dengan menggunakan subprogram (procedure).

Dibawah ini sourcecodenya.

program menghitung_bangun_datar;
uses wincrt;
const
phi=3.14;
var
a,b,c,no:integer;

Program Bahasa Pascal “case-of” didalamnya ada “while-do”

Sebuah toko swalayan membutuhkan program untuk hitung harga,diskon dan pajak barang. Program tersebut mengunakan “case-of” dan didalamnya terdapat perulangan untuk melakukan peghitungan kembali “while-do”. Program yang akan digunakan, pemrogramaan bahasa pascal.

berikut sourcecode programnya.

uses wincrt;

var

nama:string;

nomor,jumlah,harga:integer;

diskon,pajak,total:real;

lagi:char;

begin

clrscr;

writeln(‘<<< program swalayan >>>’);

writeln(‘========================’);

lagi:=’Y';

while lagi=’Y’ do begin

write(‘masukan nomor program=’); readln(nomor);

case nomor of

Program Bahasa Pascal “Repeat – Until”

program statemenrepeat1;

uses wincrt;

var

i:integer;

begin

clrscr;

i:=1;

repeat

writeln(‘Bahasa Pemograman Pascal’);

i:=i+1;

until (i>5);

readln;

end.

Program Bahasa Pascal “While – Do”

program berikut ini akan menghitung nilai rata-rata dari sejumlah data yang akan dimasukkan. Jumlah dari data dimasukkan dan akan dilakukan perulangan sebanyak jumlah data tersebut untuk menanyakan nilai masing-masing data dan menghitung totalnya.

berikut sourcecode programnya.

Program Bahasa Pascal “Diskon”

Buat program untuk di sebuah toko. dengan ketentuan dibawah dengan menggunakan bahasa pascal.

1. jika pemebili > =100000 maka mendapatkan diskon 15%

2. jika pembeli < 100000 maka mendapatkan diskon 5%

berikut sourcecode programnya.

Program Bahasa Pascal “Case – of”

Buat program untuk menghitung

1. Luas dan keliling persegi panjang
2. Luas dan keliling bujur sangkar
3. Luas dan keliling lingkaran
4. Luas segitiga

Dengan menggunakan case of. Di sini ada 2 alternatif dalam pembutan pemrogramaan di atas. Berikut spourcecodenya.

Program Bahasa Pascal_Konversi Suhu

Buat program untuk membuat tabel konversi dari nilai derajat celcius ke derajat fahrenheit dan dari celcius ke derajat kelvin dengan kelipatan 0.25. Dengan menggunakan bahasa pascal.

Berikut sourcecode programnya.

Pemograman Bahasa Pascal dengan If Then

Di sini saya dapat tugas dari dosen untuk membuat program data,nilai mahasiswa dan membuat program bisokop dengan mengunakan bahasa pascal. Dengan mengunakan If Then.

1. Buat program untuk input nama dan nilai mahasiswa dengan ketentuan:

Nilai > = 85 nilai huruf A

Nilai > = 75 nilai huruf B

Nilai > = 60 nilai huruf C

Nilai > = 50 nilai huruf D

Output/Tampilan

Nama :

Nilai :

Nilai Huruf :

1. 2. Buat program Bioskop dan input no_studio dengan ketentuan:

No studio = 1 judul film = ayat-ayat cinta

No studio = 2 judul film = jumpe

No studio = 3 judul film = CJ7

No studio = 4 judul film = DO

No studio = 5 udul film = In the name of time

Output/Tampilan

No Studio :

Judul Film :

berikut sourcecode programnya.

Pemograman dengan bahasa pascal_1

Pada Pertemuan pertama di bahasa pascal saya belajar cara menghitung luas dan keliling bangun datar.

1. Program untuk menghitung luas dan keliling empat persegi panjang, adapun rumus luas dari empat persegi panjang adalah:

Luas=panjang*lebar

Sedangkan keliling empat persegi panjang adalah:

Keliling=2*panjang+lebar

2. Progam menghitung luas dan keliling lingkaran, adapun rumus luas lingkaran adalah:

Luas=phi*r*r

Sedangkan keliling lingkaran adalah:

Killing=2*phi*r

Catatan r adalah jari-jari dan phi=3.1415593

Dan berikut sourcecode programnya.