Listing Program Penyewaan Mobil

uses crt;
label
awal,akhir;
procedure garis;
begin
writeln('=============================================================');
end;
var
jm,mm:array [1..10] of string;
ls,h,tt:array [1..10] of longint;
j:char;
a: byte;
b:string;
begin
awal:
clrscr;
gotoxy(35,1);writeln('PENYEWAAN MOBIL');
garis;
gotoxy(1,3);write('Nama Penyewa :');readln(b);
writeln;
for a:= 1 to 1 do
begin
write('Jenis Mobil :');readln(jm[a]);
if jm[a] ='J' then
begin
mm[a]:='Cheroke';
h[a]:=500000;
end;
if jm[a]='S' then
begin
mm[a]:='Baleno';
h[a]:=600000;
end;
writeln('Merk Mobil :',mm[a]);
write('Lama sewa :');readln(ls [a]);
tt[a]:= ls[a]*h[a];
writeln('Total :',tt[a]);
garis;
gotoxy(35,11);writeln('STRUK PENYEWAAN');
garis;
gotoxy(1,13);writeln('Nama:',(b));
garis;
gotoxy(5,15);writeln('| No| Jenis Mobil | Merk Mobil | Lama sewa | Harga | Total |');
garis;
for a:= 1 to 1 do
gotoxy(1,17);writeln(a:7,jm[a]:14,mm[a]:16,ls[a]:12,h[a]:11,tt[a]:12);
garis;
write('Input Lagi :');readln(j);
if j='Y' then
goto awal
else
goto akhir;
akhir:
readln;
end;
end.

Rancangan Input

Jika Jenis mobil = 'J' maka Merk Mobil 'Cheroke'
Jika Jenis mobil = 'S' maka Merk mobl 'Baleno'

Semoga Bermanfaat!!!!

Listing Program Perhitungan Nilai Mahasiswa

Pada artike kali ini saya akan bahas bagaimana cara membuat program menggunakan array dan Function dengan bahasa pascal. Sebenarnya cih banyak contoh yang kita bisa implementasikan pada program ini akan tetapi sebagai contoh saya gunakan contoh yang paling sederhana pada sistem perhitungan nilai mahasiswa .

uses crt;
label
awal,akhir;
type
bb=longint;
bp=real;
function garis:string;
begin
garis:=('______________________________________________________________');
end;
function hitung (var tn:bp;abs,tgs,uts,uas:bb):bb;
begin
tn:=(abs*0.1)+(tgs*0.2)+(uts*0.3)+(uas*0.4);
end;


var
i,jml:byte;
nmk:string;
nm:array [1..10] of string;
tt:array [1..10] of bp;
a,t,ut,ua:array [1..10] of bb;
j:char;
begin
awal:


clrscr;
textcolor(3);gotoxy(25,2);writeln('Perhitungan Nilai Mahasiswa');
gotoxy(27,3);writeln('Bina Sarana Informatika');
writeln(garis);
write('Nama Mata Kuliah:');readln(nmk);
write('Masukan Jumlah data:');readln(jml);
for i:= 1 to jml do
begin
writeln('Data Mahasiswa ke-',i);
write('Nama Mahasiswa:');readln(nm[i]);
write('Nilai Absen :');readln(a[i]);
write('Nilai Tugas :');readln(t[i]);
write('Nilai UTS :');readln(ut[i]);
write('Nilai UAS :');readln(ua[i]);
hitung(tt[i],a[i],t[i],ut[i],ua[i]);
end;
clrscr;

textcolor(5);gotoxy (23,2);writeln('Hasil Perhtungan Nilai Mahasiswa');
writeln(garis);
gotoxy(28,3);writeln('Nama Mata Kuliah');
writeln(garis);
textcolor(7);writeln('No Nama Mahasiswa N.Absen N.Tugas N.UTS N.UAS Total Nilai');
writeln(garis);
for i:= 1 to jml do
writeln(i:1,nm[i]:12,a[i]:12,t[i]:12,ut[i]:10,ua[i]:10,tt[i]:10:2);
writeln(garis);
write('Masukan data lagi:');textbackground(3);readln(j);
if j='Y' then
goto awal
else
goto akhir;
akhir:
readln;
end.

Rancangan Input

 

Rancangan Output

Mohon dekoreksi bila ada kesalahan.
Terima kasih.....

Listing Program Penjualan Tiket Pesawat

Pada artike kali ini saya akan bahas bagaimana cara membuat program menggunakan array dan procedure  dengan bahasa pascal. Sebenarnya cih masih banyak contoh yang  kita bisa  implementasikan pada program ini, akan tetapi sebagai contoh saya gunakan contoh yang paling sederhana pada sistem pembelian tiket pesawat .

uses crt;
procedure garis;
begin
writeln('====================================================');
end;
label
awal,akhir;
var
tt:longint;
j:char;
a,b,x:byte;
st,jt,h: array [1..10] of longint;
np,kp,nps:array [1..10] of string;
procedure hitung;
begin
st[a]:= jt[a]*h[a];
end;
begin
awal:
tt:=0;
clrscr;
gotoxy(28,1);writeln('DATA PENJUALAN TIKET PESAWAT');
garis;
write('Masukan Jumlah penumpang:');readln(b);
writeln;
for a:= 1 to b do

begin
writeln('Data penumpang Ke  :',a);
write('Nama penumpang     :');readln(np [a]);
write('Kode Pesawat :');readln(kp [a]);
if kp[a]='G' then
begin
nps[a]:='Garuda';
h[a]:=980000;
end
else
if kp[a] ='M' then
begin
nps [a]:='Merpati';
h[a]:=850000;
end;
writeln('Nama Pesawat       :',nps[a]);
write('Jumlah Tiket       :');readln(jt[a]);
writeln('Harga              :',h[a]);
hitung;
end;
clrscr;
writeln;
gotoxy(30,3);writeln('Data Penumpang');
garis;
gotoxy(x,6);writeln('| No | Nama Pesawat |  Nama Penumpang |  Jumlah Tiket |  Harga |  Subtotal|');
garis;
writeln;
for a:= 1 to b do
begin
gotoxy(x+1,6+a);writeln('|',a);
gotoxy(x+6,6+a);writeln('|');
gotoxy(x+7,6+a);writeln(nps[a]);
gotoxy (x+21,6+a);writeln('|');
gotoxy (x+25,6+a); writeln(np[a]);
gotoxy(x+39,6+a);writeln('|');
gotoxy(x+44,6+a);writeln(jt[a]);
gotoxy(x+55,6+a);writeln('|');
gotoxy(x+57,6+a);writeln(h[a]);
gotoxy(x+64,6+a);writeln('|');
gotoxy(x+66,6+a);writeln(st[a]);
gotoxy(x+75,6+a);writeln('|');
end;
garis;
writeln;
for a:= 1 to b do
begin
hitung;
tt:=st[a]+tt;
end;
writeln('Total Pendapatan   :',tt);
garis;
writeln('Input lagi :');readln(j);
if j='y' then
goto awal
else
goto akhir;
akhir:
readln;
end.

RINGKASAN MATERI PASCAL

Struktur program Pascal :

Judul Program
Blok Program
Bagian deklarasi
- Deklarasi Unit
- Deklarasi Label
- Deklarasi Konstanta ingat baik-baik
- Deklarasi Type
- Deklarasi Variabel
- Deklarasi Prosedur
- Deklarasi Fungsi
Bagian Pernyataan
Begin
Statemen;
End.


- Read dan Readln digunakan untuk meminta masukan dari keyboard untuk di olah computer. Perbedaan antara Read dan Readln setelah meminta masukan, jika Readln akan diakhiri dengan pindah baris, sedangkan pada Read tidak
- Write dan Writeln digunakan untuk mencatak hasil proses, perbedaan antara Write dan Writeln setelah mencetak jika Writeln akan diakhiri dengan pindah baris, sedangkan Write tidak.
- Syarat-syarat penamaan suatu identifier ( Baik untuk Variabel, Konstanta, Type atau yang lainnya ) :
• Karakter pertama huruf
• Karakter kedua dan seterusnya boleh huruf, angka atau garis bawah
• Tidak boleh menggunakan karakter khusus (kecuali garis bawah) seperti :
( , . * / @) dll.
• Tidak boleh mengandung spasi / blank
• Panjang nama bebas, tetapi hanya 63 karakter awal yang signifikan

- Variable suatu tempat di memori computer yang dapat menyimpan nilai / data yang berubah – ubah
- Konstanta suatu nilai atau data bersifat tetap ( tidak dapat berubah ) yang disimpan didalam memori dan dapat diambil nilai / datanya
- Type => Pengenal ( identifier ) dari data yang digunakan harus deperkenalkan type-nya. Jika ingin menggunakan type data dengan nama yang dibuat pemakai, maka harus disebutkan type data standarnya.
- Label
• Label harus dideklarasikan dahulu pada bagian deklarasi
• Nama label boleh berupa string (cth.Selesai) atau berupa integer (cth.100)
• Label digunakan sebagai arah tujuan dari perintah Goto

Article

Cara membuat menu dengan banyak style