Tanggal 18-Desember-2013
|
program pendaftaran_peserta_tour;
uses wincrt; var no, tot_biaya,b_daftar,b_akomodasi,tanggal, bln, thn : longint; nm, tempat : char;
begin
writeln(' Formulir Pendaftaran
Peserta tour ');
writeln; write('No : ');readln(no); write('Nama : ');readln(nm); write('Tempat, Tanggal Lahir : ');readln(tempat);
gotoxy(35,5);read(tanggal);
if tanggal > 30 then begin write('tanggal yang anda masukkan salah!'); readkey; donewincrt; end;
gotoxy(38,5);read(bln);
if bln > 12 then begin write('bulan yang anda masukkan salah!'); readkey; donewincrt; end;
gotoxy(41,5);read(thn);
if thn > 1996 then begin write('tahun yang anda masukkan salah!'); readkey; donewincrt; end;
write('biaya
pendaftaran
: Rp. ');readln(b_daftar);
write('biaya akomodasi : Rp. ');readln(b_akomodasi); writeln('===================================='); tot_biaya:=b_daftar + b_akomodasi; write('Sisa Pembayaran : Rp. ',tot_biaya); end. |
jika anda telah mengetikan program di atas pada
TPW anda maka coba anda RUN dan lihat layout nya, inilah contoh layout pada
program di atas yang saya jalankan pada komputer saya
Program tersebut memiliki ketentuan – ketentuan
yaitu
1. tanggal akan mencakup 1 – 30 , namun jika
anda salah dalam memasukan tanggal maka akan uncul layout seperti ini
 |
.2.bulan akan mencakup 1 – 12 , namun jika
anda salah dalam memasukan bulan maka akan uncul layout seperti ini
3.tahun memiliki ketentuan yaitu hanya akan
dapat menerima inputan dari tahun kurang dari 1996 , namun jika anda
salah dalam memasukan tahun maka akan uncul layout seperti ini
cukup sekian semoga bermanfa'at...trimakasih
pada hari ini saya
akan sedikit memeberikan gambaran dari Manfaat Belajar Turbo Pascal .
dalam
pembelajaran kita seringkali tidak menyadari Manfaat dari belajar turbo pascal
,kita hanya memakai Turbo Pascalnya saja .
sebelum
ke manfaat belajar turbo pascal kita bahas dulu sedikit tentang turbo pascal
itu sendiri .
Bahasa
Pascal berorientasi data, programmer diberi kemampuan untuk mendefenisikan tipe
data sendiri. Dengan kebebasan ini pengecekan tipe data dilakukan secara ketat,
yang menjamin bahwa tipe data yang didefenisikan tidak membingungkan. Pascal
ditujukan sebagai bahasa pembelajaran, dan telah diterima secara luas.
pascal
masi bisa di bilang mudah daam pengsintakannya,,,
contohnya
program
latihan;
uses wincrt;
begin
writeln('Hallo DEA');
end;
Nah sekarang langsung aja ke pembahasan apa sih manfaat belajar Turbo Pascal dalam bentuk gambaran dari manfaat Turbo Pascal :
1. Kecepatan (speed)
Kecepatan bahasa pascal untuk mengkompilasi baris program dapat dikatakan sekejap mata saja. Anda banyangkan kode baris program yang ribuan jumlahnya diterjemahkan dalam hitungan detik. Coba anda buktikan dengan bahasa pemrograman lainnya (C, C++, Java, dll)
Kecepatan bahasa pascal untuk mengkompilasi baris program dapat dikatakan sekejap mata saja. Anda banyangkan kode baris program yang ribuan jumlahnya diterjemahkan dalam hitungan detik. Coba anda buktikan dengan bahasa pemrograman lainnya (C, C++, Java, dll)
2. Tipe data yang kuat
Pascal mengijinkan pemakainya untuk membuat tipe data sendiri, tetapi dengan beberapa batasan. Pascal tidak mengenal pengubahan tipe data (type casting) dan hal ini tentu saja memberi manfaat karena kemungkinan timbulnya kesalahan (error) kecil. Hal ini merupakan salah satu alasan utama yang dilakukan panitia ujian masuk mahasiswa untuk mata ujian komputer di Amerika.
Pascal mengijinkan pemakainya untuk membuat tipe data sendiri, tetapi dengan beberapa batasan. Pascal tidak mengenal pengubahan tipe data (type casting) dan hal ini tentu saja memberi manfaat karena kemungkinan timbulnya kesalahan (error) kecil. Hal ini merupakan salah satu alasan utama yang dilakukan panitia ujian masuk mahasiswa untuk mata ujian komputer di Amerika.
3. Ukuran
Hasil compilasi dari program pascal hanya beberapa kilo byte saja. Sungguh kecil. Bila kita bandingkan dengan kapasitas ruang hard disk yang 40 mega byte, dapat dibanyangkan berapa besar program pascal yang dapat kita buat.
4. Portabilitas
Portabilitas berarti program pascal dapat berjalan pada jenis komputer yang berbeda, seperti : IBM, Apple, dll.
Hasil compilasi dari program pascal hanya beberapa kilo byte saja. Sungguh kecil. Bila kita bandingkan dengan kapasitas ruang hard disk yang 40 mega byte, dapat dibanyangkan berapa besar program pascal yang dapat kita buat.
4. Portabilitas
Portabilitas berarti program pascal dapat berjalan pada jenis komputer yang berbeda, seperti : IBM, Apple, dll.
4. Produktivitas
Untuk belajar suatu bahasa pemrograman pada dasarnya sama, yaitu : harus mengenal aturan dan struktur data dari bahasa tersebut. Anda dapat bayangkan kalau tukang bangun tidak memiliki arsitektur yang jelas tentang bangunan rumah tersebut, tentu saja rumah yang akan dibangun tidak akan baik. Pascal menyediakan struktur data yang jelas, dengan demikian produktivitas hasil kerja kita tentu saja akan bertambah.
Dan satu hal yang jelas bahasa turbo pascal for windows atau visual delphi adalah turunan dari turbo pascal. Dan bila struktur dari program pascal sudah kita pahami, maka untuk memahami pascal for windows atau visual Delphi tidaklah sulit lagi.
Untuk belajar suatu bahasa pemrograman pada dasarnya sama, yaitu : harus mengenal aturan dan struktur data dari bahasa tersebut. Anda dapat bayangkan kalau tukang bangun tidak memiliki arsitektur yang jelas tentang bangunan rumah tersebut, tentu saja rumah yang akan dibangun tidak akan baik. Pascal menyediakan struktur data yang jelas, dengan demikian produktivitas hasil kerja kita tentu saja akan bertambah.
Dan satu hal yang jelas bahasa turbo pascal for windows atau visual delphi adalah turunan dari turbo pascal. Dan bila struktur dari program pascal sudah kita pahami, maka untuk memahami pascal for windows atau visual Delphi tidaklah sulit lagi.
Orang bijak
berkata‘belajar dari dasar merupakan modal yang paling besar’. Untuk itulah
Pascal hadir bagi kita.angannya mudah dipahami...selamat membaca mudah-mudahan bermanfaat buat teman-teman semua...
Jumat, 06 Desember
2013
KATA PENGANTAR
Puji syukur alhamdulillah pemakalah panjatkan
kepada Allah ilahi robbi, yang dengan takdirnya menciptakan jagat raya ini
dengan segala bentuk isinya. Tak ada kata yang patut di lupakan kecuali hanya
rasa syukur yang berbunyi ” Alhamdulillahirobbil’alamin”.
Shalawat serta salam juga tak lupa pemakalah haturkan
kepada Baginda Khatimun Ambiya’, Nabi Muhammad SAW, yang dengan pancaran Nur
(cahaya) ilmunya, Dunia terasa lebih hidup, lebih terang dari Nur apapun.
DAFTAR ISI
KATA PENGANTAR
DAFTAR ISI
BABI PENDAHULUAN
A. FLOW CHART
B. CODING PROGRAM
BAB II PEMBAHASAN
BAB III PENUTUP
A. KESIMPULAN
B. SARAN
BAB I
PEMBAHASAN
A. FLOW CHART
Rancangan pembuatan
coding MENU DALAM PENJUALAN adalah sebagai berikut
· Pertama
pastinya menjalankan program MENU DALAM PENJUALAN
· Tampil
menu penjualan yang kita kehendaki misal ada 7 sub menu
· Memilih
salah satu menu yang kita kehendaki
percabangan
yang kita buat
· Ketika
terpilih salah satu sub menu akan ada sub menu ukuran
· Ukuran
menampilkan L/M/S
· Di
anjurkan untuk memilih salah satu sub menu L/M/S
· Ketika
memilih L akan ditampilkan Harga barang tersebut pada ukuran L
· Ketika
memilih M akan ditampilkan Harga barang tersebut pada ukuran M
· Ketika
memilih S akan ditampilkan Harga barang tersebut dalam ukuran S
· Harga yang
telah terpilih akan di kalikan ke banyak beli yang akan di tampilkan
ke Harga pembelian
· setelah
itu akan ada imputan Bayar di kurangi Harga pembelian yang
menampilkan kembalian.
· Setelah
proses diatas selesai akan tampil menanyakan transaksi lain [ y/t ] ketika
memilih tombol ’ y ’ akan di tampilkan kembali program seperti awal dalam
coding goto Balik (MENU DALAM PENJUALAN). Dan ketika
memilih tombol ’ t ’ akan langsung keluar dari program.
B. CODING
PROGRAM
program
penjualan;
uses wincrt;
const Nmaks=100;
type
barang=record
kode:string[10];
nama:string[35];
quantity:integer;
harsat:integer;
subtotal:integer;
end;
procedure utama;
begin
write('==============TOKO
TIKTOK===========');
writeln('===================================');
writeln('===Jalan
Raya Singaparna No. 123===');
end;
procedure member;
var
kd_member:string;
nm_member:string;
alamat:string;
no_hp:string;
begin
writeln('----------------------------DATA
MEMBER--------------------------------');
writeln;
write('Kode
member :');
readln(kd_member);
if kd_member = 'M1'
then
begin
nm_member
:= 'Vania Larissa';
alamat :=
'Pontianak';
no_hp :=
'08921234567';
end;
if kd_member = 'M2'
then
begin
nm_member
:= 'Megan Young';
alamat :=
'Piliphines';
no_hp :=
'0876543123';
end
else
begin
nm_member
:= 'Tidak ditemukan';
alamat :=
'-';
no_hp :=
'-';
end;
writeln('Nama
Member :', nm_member);
writeln('Alamat :',
Alamat);
writeln('No
Hp :', no_hp);
end;
procedure garis;
begin
write('===========================================================');
end;
procedure petugas;
var
kd_petugas:string;
nm_petugas:string;
no_hpp:string;
alamatp:string;
begin
writeln('----Petugas
Kasir------------------------------');
writeln('Kode
Petugas :
P1-P2');read(kd_petugas);
if kd_petugas = 'P1'
then
begin
nm_petugas
:= 'Soleh';
alamatp :=
'Jl. Wawan';
no_hpp :=
'08765454398';
end;
if
kd_petugas = 'P2' then
begin
nm_petugas
:= 'Mahfud';
alamatp :=
'Jl. Duren';
no_hpp :=
'087643212398';
end;
writeln('Nama
Petugas :',
nm_petugas);
writeln('Alamat :',
alamatp);
writeln('No
Hp :',
no_hpp);
end;
type
nilai=array[1..Nmaks] of barang;
var
M:nilai;
N:integer;
i:integer;
total,disc,bayar,hrg,kembali:real;
y:string;
lagi:char;
begin
clrscr;
utama;
petugas;
garis;
lagi
:= 'y';
while
lagi = 'y' do
begin
for
i:=1 to Nmaks do
begin
M[i].kode:='
';
M[i].nama:='
';
M[i].quantity:=0;
M[i].harsat:=0;
M[i].subtotal:=0;
end;
write('Banyaknya
Barang : '); readln(N);
for
i:=1 to N do
begin
writeln('Barang
Ke-',i,' dari ',N);
write('Kode
Barang : '); readln(M[i].kode);
if
M[i].kode = 'B1' then
begin
M[i].nama
:= 'Pensil';
M[i].harsat
:= 1200;
end;
if
M[i].kode = 'B2' then
begin
M[i].nama
:= 'Penghapus';
M[i].harsat
:= 2000;
end;
write('Nama
Barang : ',M[i].nama);
write('Quantity
: '); readln(M[i].quantity);
write('Harga
Satuan : ',M[i].harsat);
M[i].subtotal:=M[i].quantity*M[i].harsat;
total:=total+M[i].subtotal;
writeln('Subtotal
: ',M[i].subtotal);
writeln('Ada
transaksi lagi ?'); readln(lagi);
if
lagi = 't' then
end;
end;
clrscr;
begin
writeln('----------------------DATA
PENJUALAN BARANG--------------------');
writeln('===============================================================');
writeln('No
| Kode | Nama Barang | jumlah | Harga Satuan | Subtotal');
writeln('===============================================================');
for
i:=1 to N do
begin
writeln(i,' ',M[i].kode,' ',M[i].nama,' ',M[i].quantity,' ',M[i].harsat,' ',M[i].subtotal);
end;
writeln('========================================================================');
writeln('Total
Bayar : ',total:3:2);
writeln('Discount
Untuk member sebesar 20%');
writeln('Ada
Member? Jika ada masukan Kode'); readln(y);
if
y = 'ada' then
begin
member;
disc:=total*0.2;
hrg:=total-disc;
end
else
disc:=total*0;
hrg:=total-disc;
writeln('Harga
Total :' ,hrg:3:2);
writeln('Bayar :
');read(bayar);
Kembali:=
bayar-hrg;
writeln('Kembali :
',kembali:3:2);
end;
end.
TAMPILAN DALAM PASCAL
:
BAB II
PENUTUP
Demikian
makalah ini kami susun dengan sebaik-baiknya mohon maaf apabila ada kesalahan
yang terjadi pada program dan makalah yang kami buat ini.
A. KESIMPULAN
Setelah dibuatnya program penjualan dengan menggunakan program
Turbo Pascal dapat membantu proses transaksi pada sebuah toko dengan
menggunakan prosedure dan if, karena lebih simpel dalam penggunannya. Ketika
pembuatan program ini tidak sesulit pembuatan program yang lain.
B. SARAN
Kami terima jika ada kritik dan saran dari pembaca, karena semua
program tidak luput dari sebuah kesalahan. Untuk menjadikan kami agar bisa
membuat program yang lebih baik lagi.
Jumat, 06 Desember
2013
BAB
I
PENDAHULUAN
a. Latar belakang
Turbo Pascal adalah sebuah sistem pengembangan perangkat lunak yang
terdiri atas kompiler dan lingkungan pengembangan terintegrasi (dalam
bahasa inggris: Integrated Development Environment - IDE) atas
bahasa pemrograman pascal untuk sistem
operasi CP/M, CP/M-86, dan MS-DOS, yang dikembangkan oleh
Borland pada masa kepemimpinan Philippe Kahn. Nama Borland Pascal umumnya
digunakan untuk paket perangkat lunak tingkat lanjut (dengan kepustakaan yang
lebih banyak dan pustaka kode sumber standar) sementara versi yang lebih murah
dan paling luas digunakan dinamakan sebagai Turbo Pascal. Nama
Borland Pascal juga digunakan sebagai dialek spesifik Pascal buatan Borland.
Borland telah menembangkan tiga versi lama dari Turbo Pascal secara gratis
disebabkan karena sejarahnya yang panjang khusus untuk versi 1.0, 3.02, dan 5.5
yang berjalan pada sistem operasi MS-DOS.
Turbo Pascal pada
awalnya adalah kompiler Blue Label Pascal yang dibuat untuk sistem operasi
komputer mikro berbasis kaset, NasSys, milik Nascom tahun 1981 oleh Anders
Hejlsberg. Kompiler tersebut ditulis ulang untuk CP/M dan dinamai Compas
Pascal, dan kemudian dinamai Turbo Pascal untuk sistem operasi MS-DOS dan CP/M.
Versi Turbo Pascal untuk komputer Apple Macintosh sebenarnya pernah
ditembangkan tahun 1986, namun pengembangannya dihentikan sekitar tahun 1992.
Versi-versi lain pernah tersedia pula untuk mesin-mesin CP/M seperti DEC
Rainbow dalam beberapa penembangan.
b. Rumusan masalah
Berdasarkan latar
belakang yang telah dipaparkan di atas, maka penulis telah menentukan beberapa
rumusan masalah dalam pembuatan program data barang.
yaitu:
1. Gambaran umum
program;
2. Flow Chart program;
3. Koding program;
4. Lay out program.
c. Tujuan
Sejalan dengan rumusan
masalah di atas, makalah ini disusun dengan tujuan untuk mengetahui dan
mendeskripsikan:
1. Struktur
pemrograman dan analisa masalah;
2. Implementasi sebuah
program.
BAB II
PEMBAHASAN
a. Gambaran umum
program
Program data barang
ini dibuat untuk memudahkan dalam pekerjaan khusunya dibidang penjualan, dimana
seorang user dengan mudah mengetahui data barang yang ada di toko/grosir.
Program ini dibuat dengan menggunakan bahasa pemrograman Pascal dan ditulis
dengan aplikasi Turbo Pascal For Window dengan lay out program yang sederhana
sehingga user dapat dengan mudah mengoperasikannya.
b. Flow chart
program
Diagram alur (flowchart) merupakan
gambar atau bagan yang memperlihatkan urutan dan hubungan antar proses beserta
instruksinya. Bagan ini dinyatakan dengan simbol. Dengan demikian setiap simbol
menggambarkan proses tertentu sedangkan hubungan antar proses digambarkan
dengan garis penghubung. Simbol-simbol diagram alur.
Simbol Flow chart dan
fungsi Flow chart struktur IF
c. Koding program
c.1. Pengkodean dengan
struktur pemilihan (IF)
PROGRAM DATA_BARANG;
USES WINCRT;
VAR
ULANG : CHAR;
KDBR,PILIH : STRING;
KET1 : LONGINT;
BEGIN
ULANG := 'Y';
WHILE ULANG = 'Y' DO
BEGIN
CLRSCR;
WRITELN(' PROGRAM DATA
BARANG');
WRITELN(' TOKO BERKAH
MAKMUR GROSIR DAN ECERAN');
WRITELN('ALAMAT : JL.
KHZ. MUSTHAFA NO. 22 SUKAHIDENG-SUKARAPIH-TASIKMALAYA 43364');
WRITELN('=======================================================================');
WRITELN('Struktur IF
Kelompok 2 © 2013');
WRITELN('=======================================================================');
WRITELN;
WRITELN('KODE JENIS
BARANG');
WRITELN('---------------------------------------------------');
WRITELN('* B11
[SEMBAKO] - B12 [MAKANAN] - B13 [MINUMAN] *');
WRITELN('---------------------------------------------------');
WRITELN;
WRITE('PILIH JENIS
DATA BARANG : ');READLN(PILIH);
IF PILIH = 'B11' THEN
BEGIN
CLRSCR;
WRITELN('KATEGORI
SEMBAKO');
WRITELN;
WRITELN('DAFTAR KODE
BARANG : ');
WRITELN('------------------------------------------');
WRITELN('BR-001 [SABUN
MANDI] BR-002 [SABUN CUCI ]');
WRITELN('BR-003
[TERIGU ] BR-004 [MINYA GORENG]');
WRITELN('------------------------------------------');
WRITELN;
WRITE('KODE BARANG :
');READLN(KDBR);
IF KDBR = 'BR-001' THEN
BEGIN
WRITELN('NAMA BARANG :
SABUN MANDI');
KET1 :=2500;
WRITELN('HARGA :
',KET1);
WRITELN('lOKASI : RAK
1');
WRITELN('STOK : 10
BTG');
END;
IF KDBR = 'BR-002'
THEN
BEGIN
WRITELN('NAMA BARANG :
SABUN CUCI');
KET1 :=3500;
WRITELN('HARGA :
',KET1);
WRITELN('lOKASI : RAK
1');
WRITELN('STOK : 5
BKS');
END;
IF KDBR = 'BR-003'
THEN
BEGIN
WRITELN('NAMA BARANG :
TERIGU');
KET1 :=2300;
WRITELN('HARGA :
',KET1);
WRITELN('lOKASI : RAK
2');
WRITELN('STOK : 10
KG');
END;
IF KDBR = 'BR-004'
THEN
BEGIN
WRITELN('NAMA BARANG :
SABUN CUCI');
KET1 :=3500;
WRITELN('HARGA :
',KET1);
WRITELN('lOKASI : RAK
2');
WRITELN('STOK : 5');
END;
END;
IF PILIH = 'B12' THEN
BEGIN
CLRSCR;
WRITELN('KATEGORI
MAKANAN');
WRITELN;
WRITELN('DAFTAR KODE
BARANG : ');
WRITELN('--------------------------------------------');
WRITELN('BR-005 [WAFER
NISSIN] BR-006 [KACANG GARUDA]');
WRITELN('BR-007 [SARI
ROTI ] BR-008 [KHONG GUAN ]');
WRITELN('--------------------------------------------');
WRITELN;
WRITE('KODE BARANG :
');READLN(KDBR);
IF KDBR = 'BR-005'
THEN
BEGIN
WRITELN('NAMA BARANG :
WAFER NISSIN');
KET1 :=12500;
WRITELN('HARGA :
',KET1);
WRITELN('lOKASI : RAK
3');
WRITELN('STOK : 5
KLG');
END;
IF KDBR = 'BR-006'
THEN
BEGIN
WRITELN('NAMA BARANG :
KACANG GARUDA');
KET1 :=1500;
WRITELN('HARGA :
',KET1);
WRITELN('lOKASI : RAK
3');
WRITELN('STOK : 10
PAK');
END;
IF KDBR = 'BR-007'
THEN
BEGIN
WRITELN('NAMA BARANG :
SARI ROTI');
KET1 :=2500;
WRITELN('HARGA :
',KET1);
WRITELN('lOKASI : RAK
3');
WRITELN('STOK : 20
BKS');
END;
IF KDBR = 'BR-008'
THEN
BEGIN
WRITELN('NAMA BARANG :
KHONG GUAN');
KET1 :=25000;
WRITELN('HARGA :
',KET1);
WRITELN('lOKASI : RAK
2');
WRITELN('STOK : 5
KLG');
END;
END;
IF PILIH = 'B13' THEN
BEGIN
CLRSCR;
WRITELN('KATEGORI
MINUMAN');
WRITELN;
WRITELN('DAFTAR KODE
BARANG : ');
WRITELN('----------------------------------------------');
WRITELN('BR-009
[COCA-COLA ] BR-010 [TEH PUCUK ]');
WRITELN('BR-011
[POCARI SWEAT] BR-012 [LARUTAN PENYEGAR]');
WRITELN('----------------------------------------------');
WRITELN;
WRITE('KODE BARANG :
');READLN(KDBR);
IF KDBR = 'BR-009'
THEN
BEGIN
WRITELN('NAMA BARANG :
COCA-COLA');
KET1 :=12500;
WRITELN('HARGA :
',KET1);
WRITELN('lOKASI : RAK
4');
WRITELN('STOK : 7
BTL');
END;
IF KDBR = 'BR-010'
THEN
BEGIN
WRITELN('NAMA BARANG :
TEH PUCUK');
KET1 :=1500;
WRITELN('HARGA :
',KET1);
WRITELN('lOKASI : RAK
4');
WRITELN('STOK : 5
BTL');
END;
IF KDBR = 'BR-011'
THEN
BEGIN
WRITELN('NAMA BARANG :
POCARI SWEAT');
KET1 :=2500;
WRITELN('HARGA :
',KET1);
WRITELN('lOKASI : RAK
4');
WRITELN('STOK : 8
BTL');
END;
IF KDBR = 'BR-012'
THEN
BEGIN
WRITELN('NAMA BARANG :
LARUTAN PENYEGAR');
KET1 :=25000;
WRITELN('HARGA :
',KET1);
WRITELN('lOKASI : RAK
4');
WRITELN('STOK : 5
KLG');
END;
END;
WRITELN;
WRITE('APAKAH AKAN
MENGULANG PENCARIAN DATA Y/T ? ');READLN(ULANG);
IF ULANG = 'T' THEN
DONEWINCRT;
END;
END.
c.2. Pengkodean dengan
struktur parameter (Procedure)
PROGRAM DATA_BARANG;
USES WINCRT;
VAR
ULANG : CHAR;
PILIH : STRING;
PROCEDURE MULAI;
BEGIN
WRITELN('KODE JENIS
BARANG');
WRITELN('---------------------------------------------------');
WRITELN('* B11
[SEMBAKO] - B12 [MAKANAN] - B13 [MINUMAN] *');
WRITELN('---------------------------------------------------');
WRITELN;
WRITE('PILIH JENIS
DATA BARANG : ');READLN(PILIH);
END;
PROCEDURE SEMBAKO;
VAR
KDBR : STRING;
KET1 : LONGINT;
BEGIN
CLRSCR;
WRITELN('KATEGORI
SEMBAKO');
WRITELN;
WRITELN('DAFTAR KODE
BARANG : ');
WRITELN('------------------------------------------');
WRITELN('BR-001 [SABUN
MANDI] BR-002 [SABUN CUCI ]');
WRITELN('BR-003
[TERIGU ] BR-004 [MINYA GORENG]');
WRITELN('------------------------------------------');
WRITELN;
WRITE('KODE BARANG :
');READLN(KDBR);
IF KDBR = 'BR-001'
THEN
BEGIN
WRITELN('NAMA BARANG :
SABUN MANDI');
KET1 :=2500;
WRITELN('HARGA :
',KET1);
WRITELN('lOKASI : RAK
1');
WRITELN('STOK : 10
BTG');
END;
IF KDBR = 'BR-002'
THEN
BEGIN
WRITELN('NAMA BARANG :
SABUN CUCI');
KET1 :=3500;
WRITELN('HARGA :
',KET1);
WRITELN('lOKASI : RAK
1');
WRITELN('STOK : 5
BKS');
END;
IF KDBR = 'BR-003'
THEN
BEGIN
WRITELN('NAMA BARANG :
TERIGU');
KET1 :=2300;
WRITELN('HARGA :
',KET1);
WRITELN('lOKASI : RAK
2');
WRITELN('STOK : 10
KG');
END;
IF KDBR = 'BR-004'
THEN
BEGIN
WRITELN('NAMA BARANG :
SABUN CUCI');
KET1 :=3500;
WRITELN('HARGA :
',KET1);
WRITELN('lOKASI : RAK
2');
WRITELN('STOK : 5');
END;
END;
PROCEDURE MAKANAN;
VAR
KDBR : STRING;
KET1 : LONGINT;
BEGIN
CLRSCR;
WRITELN('KATEGORI
MAKANAN');
WRITELN;
WRITELN('DAFTAR KODE
BARANG : ');
WRITELN('--------------------------------------------');
WRITELN('BR-005 [WAFER
NISSIN] BR-006 [KACANG GARUDA]');
WRITELN('BR-007 [SARI
ROTI ] BR-008 [KHONG GUAN ]');
WRITELN('--------------------------------------------');
WRITELN;
WRITE('KODE BARANG :
');READLN(KDBR);
IF KDBR = 'BR-005'
THEN
BEGIN
WRITELN('NAMA BARANG :
WAFER NISSIN');
KET1 :=12500;
WRITELN('HARGA :
',KET1);
WRITELN('lOKASI : RAK
3');
WRITELN('STOK : 5
KLG');
END;
IF KDBR = 'BR-006'
THEN
BEGIN
WRITELN('NAMA BARANG :
KACANG GARUDA');
KET1 :=1500;
WRITELN('HARGA :
',KET1);
WRITELN('lOKASI : RAK
3');
WRITELN('STOK : 10
PAK');
END;
IF KDBR = 'BR-007'
THEN
BEGIN
WRITELN('NAMA BARANG :
SARI ROTI');
KET1 :=2500;
WRITELN('HARGA :
',KET1);
WRITELN('lOKASI : RAK
3');
WRITELN('STOK : 20
BKS');
END;
IF KDBR = 'BR-008'
THEN
BEGIN
WRITELN('NAMA BARANG :
KHONG GUAN');
KET1 :=25000;
WRITELN('HARGA :
',KET1);
WRITELN('lOKASI : RAK
2');
WRITELN('STOK : 5
KLG');
END;
END;
PROCEDURE MINUMAN;
VAR
KDBR : STRING;
KET1 : LONGINT;
BEGIN
CLRSCR;
WRITELN('KATEGORI
MINUMAN');
WRITELN;
WRITELN('DAFTAR KODE
BARANG : ');
WRITELN('----------------------------------------------');
WRITELN('BR-009
[COCA-COLA ] BR-010 [TEH PUCUK ]');
WRITELN('BR-011
[POCARI SWEAT] BR-012 [LARUTAN PENYEGAR]');
WRITELN('----------------------------------------------');
WRITELN;
WRITE('KODE BARANG :
');READLN(KDBR);
IF KDBR = 'BR-009'
THEN
BEGIN
WRITELN('NAMA BARANG :
COCA-COLA');
KET1 :=12500;
WRITELN('HARGA :
',KET1);
WRITELN('lOKASI : RAK
4');
WRITELN('STOK : 7
BTL');
END;
IF KDBR = 'BR-010'
THEN
BEGIN
WRITELN('NAMA BARANG :
TEH PUCUK');
KET1 :=1500;
WRITELN('HARGA :
',KET1);
WRITELN('lOKASI : RAK
4');
WRITELN('STOK : 5
BTL');
END;
IF KDBR = 'BR-011'
THEN
BEGIN
WRITELN('NAMA BARANG :
POCARI SWEAT');
KET1 :=2500;
WRITELN('HARGA :
',KET1);
WRITELN('lOKASI : RAK
4');
WRITELN('STOK : 8
BTL');
END;
IF KDBR = 'BR-012'
THEN
BEGIN
WRITELN('NAMA BARANG :
LARUTAN PENYEGAR');
KET1 :=25000;
WRITELN('HARGA :
',KET1);
WRITELN('lOKASI : RAK
4');
WRITELN('STOK : 5
KLG');
END;
END;
BEGIN
ULANG := 'Y';
WHILE ULANG = 'Y' DO
BEGIN
CLRSCR;
WRITELN(' PROGRAM DATA
BARANG');
WRITELN(' TOKO BERKAH
MAKMUR GROSIR DAN ECERAN');
WRITELN('ALAMAT : JL.
KHZ. MUSTHAFA NO. 22 SUKAHIDENG-SUKARAPIH-TASIKMALAYA 43364');
WRITELN('=======================================================================');
WRITELN('Struktur
Procedure Kelompok 2 © 2013');
WRITELN('=======================================================================');
WRITELN;
MULAI;
IF PILIH ='B11' THEN
BEGIN
SEMBAKO
END;
IF PILIH ='B12' THEN
BEGIN
MAKANAN
END;
IF PILIH ='B13' THEN
BEGIN
MINUMAN
END;
WRITELN;
WRITE('APAKAH AKAN
MENGULANG PENCARIAN DATA Y/T ? ');READLN(ULANG);
IF ULANG = 'T' THEN
DONEWINCRT;
END;
END.
d. Lay out
program
BAB III
PENUTUP
a. Kesimpulan
Program data barang
ini dibuat untuk memudahkan dalam pekerjaan dimana seorang user dengan mudah
mengetahui data barang yang ada di toko/grosir. Program ini dibuat dengan
menggunakan bahasa pemrograman Pascal. Diagram alur (flowchart) merupakan
gambar atau bagan yang memperlihatkan urutan dan hubungan antar proses beserta
instruksinya. Koding program adalah perintah program dengan struktur
pemrograman bahasa Pascal dan Lay out program adalah hasil akhir dari
pemrograman yang akan diimplementasikan.
b. Saran
sesuai dengan pepatah
“tiada gading yang tak retak” dengan demikian penulis menyadari sepenuhnya
bahwa makalah ini masih sangat jauh dari kesempurnaan, hal ini dikarenakan
keterbatasan wawasan maupun sumber-sumber data yang dimiliki penulis, dengan
demikian kritik dan saran dari berbagai pihak sangat dinanti guna penyempurnaan
malah ini.
Diposkan oleh Risal
agustian di 12.37
Jumat, 06 Desember
2013
PROGRAM PEGAWAI KEL 3
PASCAL
Program
Pegawai Memakai Procedure
Program DataPegawai;
Uses Wincrt;
Var
nama :array[1..100]of
string;
kerja:array [1..100]of
char;
nip, gol, jam, Gapok,
Insentif, Gaber :array[1..100]of longint;
a,n,gaji:longint;
ulang,kembali:char;
proceduregaris;
begin
writeln('================================================================================');
end;
procedurenamapegawai;
begin
If (nip[n]) = 1
then
begin
nama[n] :=
'YosepDwiAnjani';
Writeln('Nama :
', (nama[n]));
end
else if (nip[n]) = 2
then
begin
nama[n] :=
'RisalAgustian';
Writeln('Nama :
', (nama[n]));
end
else if (nip[n]) = 3
then
begin
nama[n] := 'IdhamHanif
N';
Writeln('Nama :
', (nama[n]));
end
else
begin
write('Nama :
');readln(nama[n]);
end;
end;
proceduregolongan;
begin
If
(gol[n]) = 1 then
Gapok[n]:= 1000000
else if (gol[n]) = 2
then
Gapok[n]:=1500000
else if (gol[n]) = 3
then
Gapok[n]:=2000000
Else
begin
Gapok[n]:=0;
writeln('golongan yang
andamasukantidakada');
readkey;
donewincrt;
end;
end;
procedurelembur;
begin
ifupcase(kerja[n])
='Y' then
begin
Write('Lama
KerjaTambahan (jam) : ');Readln(jam[n]);
if (jam[n]) >20
then
Insentif[n]:=(jam[n])*20000
else
if (jam[n])>=10
then
insentif[n]
:=(jam[n])*10000
else
Insentif[n]:=(jam[n])*5000;
Writeln('Insentif :
Rp. ',(insentif[n]));
Gaber[n]:=Gapok[n]+Insentif[n]
;
end
else
begin
gaber[n]:=Gapok[n];
jam[n]:=0;
insentif[n]:=0;
end;
end;
procedurelaporan;
begin
clrscr;
writeln('Laporan Data
PegawaidanGajiPegawai ');
garis;
writeln('| | | | | | | | |
');
writeln('| No | NIP
| NamaPegawai |Gol|GajiPokok|JamLembur|Insentif
|GajiBersih| ');
writeln('| | | | | | | | |
');
garis;
writeln;
for a:=1 to n do
begin
gotoxy(1,a+7);write('|');
gotoxy(3,a+7);write(a);
gotoxy(6,a+7);write('|');
gotoxy(8,a+7);write(nip[a]);
gotoxy(12,a+7);write('|');
gotoxy(13,a+7);write(nama[a]);
gotoxy(29,a+7);write('|');
gotoxy(31,a+7);write(gol[a]);
gotoxy(33,a+7);write('|');
gotoxy(34,a+7);write(gapok[a]);
gotoxy(44,a+7);write('|');
gotoxy(45,a+7);write(jam[a]);
gotoxy(55,a+7);write('|');
gotoxy(56,a+7);write(insentif[a]);
gotoxy(65,a+7);write('|');
gotoxy(68,a+7);write(gaber[a]);
gotoxy(77,a+7);write('|');
gaji:=gaji+(gaber[a]);
end;
writeln;
writeln;
writeln (' Total
GajiPegawai Yang Harus Di bayaradalahRp. ',gaji);
readln;
end;
procedureutama;
begin
n:=0;
repeat
n:=n+1;
Clrscr;
gotoxy(28,2);Writeln('SelamatDatang');
gotoxy(20,3);Writeln('Entri
Data PegawaiKelompok 3');
garis;
Writeln;
Write('NIP :
');Readln(nip[n]);
namapegawai;
Write('Golongan (1,2,3):
');Readln(gol[n]);
golongan;
writeln('GajiPokok :
Rp. ', Gapok[n]);
write('Ada
KerjaTambahan y/t? ');readln(kerja[n]);
lembur;
Writeln('GajiBersih :
Rp. ', (Gaber[n]));
write('Tambah data
Pegawai (y/t): ');readln(ulang);
untilupcase(Ulang)
<> 'Y';
end;
begin
kembali:='Y' ;
whileupcase(kembali) =
'Y' do
begin
gaji:=0;
utama;
laporan;
write('inginulangiAplikasi(y/t)
? ');readln(kembali);
ifupcase(kembali)='T'
then
donewincrt;
end;
end.
Program
PegawaiMemakaiIf
Program DataPegawai;
Uses Wincrt;
Var
nama :array[1..100]of
string;
kerja:array [1..100]of
char;
nip, gol, jam, Gapok,
Insentif, Gaber :array[1..100]of longint;
a,n,gaji:longint;
ulang,kembali:char;
proceduregaris;
begin
writeln('================================================================================');
end;
begin
kembali:='Y' ;
whileupcase(kembali) =
'Y' do
begin
gaji:=0;
n:=0;
repeat
n:=n+1;
Clrscr;
gotoxy(28,2);Writeln('SelamatDatang');
gotoxy(20,3);Writeln('Entri
Data PegawaiKelompok 3');
garis;
Writeln;
Write('NIP :
');Readln(nip[n]);
If
(nip[n]) = 1 then
begin
nama[n] :=
'YosepDwiAnjani';
Writeln('Nama :
', (nama[n]));
end
else if (nip[n]) = 2
then
begin
nama[n] :=
'RisalAgustian';
Writeln('Nama :
', (nama[n]));
end
else if (nip[n]) = 3
then
begin
nama[n] := 'IdhamHanif
N';
Writeln('Nama :
', (nama[n]));
end
else
begin
write('Nama :
');readln(nama[n]);
end;
Write('Golongan (1,2,3):
');Readln(gol[n]);
If
(gol[n]) = 1 then
Gapok[n]:= 1000000
else if (gol[n]) = 2
then
Gapok[n]:=1500000
else if (gol[n]) = 3
then
Gapok[n]:=2000000
Else
begin
Gapok[n]:=0;
writeln('golongan yang
andamasukanTidakada');
readkey;
donewincrt;
end;
writeln('GajiPokok :
Rp. ', Gapok[n]);
write('Ada
KerjaTambahan y/t? ');readln(kerja[n]);
ifupcase(kerja[n])
='Y' then
begin
Write('Lama
KerjaTambahan (jam) : ');Readln(jam[n]);
if (jam[n]) >20
then
Insentif[n]:=(jam[n])*20000
else
if (jam[n]) >=10
then
insentif[n]
:=(jam[n])*10000
else
Insentif[n]:=(jam[n])*5000;
Writeln('Insentif :
Rp. ',(insentif[n]));
Gaber[n]:=Gapok[n]+Insentif[n]
;
end
else
begin
gaber[n]:=Gapok[n];
jam[n]:=0;
insentif[n]:=0;
end;
Writeln('GajiBersih :
Rp. ', (Gaber[n]));
write('Tambah data
Pegawai (y/t): ');readln(ulang);
untilupcase(Ulang)
<> 'Y';
clrscr;
writeln('Laporan Data
PegawaidanGajiPegawai ');
garis;
writeln('| | | | | | | | |
');
writeln('| No | NIP
| NamaPegawai |Gol|GajiPokok|JamLembur|Insentif
|GajiBersih| ');
writeln('| | | | | | | | |
');
garis;
writeln;
for a:=1 to n do
begin
gotoxy(1,a+7);write('|');
gotoxy(3,a+7);write(a);
gotoxy(6,a+7);write('|');
gotoxy(8,a+7);write(nip[a]);
gotoxy(12,a+7);write('|');
gotoxy(13,a+7);write(nama[a]);
gotoxy(29,a+7);write('|');
gotoxy(31,a+7);write(gol[a]);
gotoxy(33,a+7);write('|');
gotoxy(34,a+7);write(gapok[a]);
gotoxy(44,a+7);write('|');
gotoxy(45,a+7);write(jam[a]);
gotoxy(55,a+7);write('|');
gotoxy(56,a+7);write(insentif[a]);
gotoxy(65,a+7);write('|');
gotoxy(68,a+7);write(gaber[a]);
gotoxy(77,a+7);write('|');
gaji:=gaji+(gaber[a]);
end;
writeln;
writeln;
writeln (' Total
GajiPegawai Yang Harus Di bayaradalahRp. ',gaji);
readln;
write('inginulangiAplikasi(y/t)
? ');readln(kembali);
ifupcase(kembali)='T'
then
donewincrt;
end;
end.
OUTPUTNYA:
DAN fLOWCHART NYA
INI
Jumat, 06 Desember
2013
Cara Membuat Tabel Sederhana Dengan HTML
Cara Membuat Tabel Dengan HTML. Tabel penting peranya dalam halaman web, selain untuk
menampilkan text atau gambar dalam format lajur dan kolom. Kita juga bisa
menggunakan tabel untuk membantu me-layout tampilan halaman. Tapi dengan
semakin berkembangnya bahasa pemrograman penggunaan table untuk membuat layout
sudah sangat jarang sekali digunakan, seiring munculnya CSS yang dapat membantu
dalam pembuatan halaman web.
Tabel merupakan sebuah kotak yang terdiri atas
baris (row) – kolom (Column). Untuk membuat tabel, kita dapat menggunakan
perintah tag <table> dan menutupnya dengan tag </table>. Kita juga bisa menambahkan atribut lain di tag <table> pembuka. Misalnya
menetukan border, warna dan sebagainya.
Didalam tag <table> ada beberapa tag
lain yang perlu kita pahami, yaitu :
·
Perintah Tag
<tr>, artinya tag untuk
menuliskan baris biasa di tabel. TR singkatan dari table row.
·
Perintah Tag <td>, atinya tag untuk
menuliskan kotak didalam baris, makanya tag <td> ada di dalam tag
<tr>. TR singkatan dari table data.
·
Perintah Tag
<th>, artinya tag untuk menuliskan kotak biasa seperti <td>, namun
untuk header tabel. TH singkatan dari table
header.
Berikut ini contoh
pembuatan tabel sederhana, silahkan dicopy kode di bawah ini :
1.
<!DOCTYPE html>
2.
<html>
3.
<head>
4.
<title>Tabel Di HTML</title>
5.
</head>
6.
<body>
7.
<h1> Tabel Mahasiswa </h1>
8.
<table border="1" bgcolor="#F2F2F2">
9.
<tr>
10. <th>Nama</th>
11. <th>Nip</th>
12. <th>Tempat, Tanggal Lahir</th>
13. <th>Jenis Kelamin</th>
14. <th>Jurusan</th>
15. <th>Angkatan</th>
16. </tr>
17.
18. <tr>
19. <td>Uray Deden</td>
20. <td>11.0544</td>
21. <td>Bandung, 10 agustus 1986</td>
22. <td>Laki-Laki</td>
23. <td>Manajemen Informatika</td>
24. <td>2001</td>
25. </tr>
26.
27. <tr>
28. <td>Ari kurniawan</td>
29. <td>11.0055</td>
30. <td>Singkawang, 15 januari 1990</td>
31. <td>Laki-Laki</td>
32. <td>Tehnik Informatika</td>
33. <td>2002</td>
34. </tr>
35.
36. <tr>
37. <td>Andre Januar</td>
38. <td>11.4454</td>
39. <td>Semarang, 25 februari 1990</td>
40. <td>Laki-Laki</td>
41. <td>Olahraga</td>
42. <td>2000</td>
43. </tr>
44.
45. <tr>
46. <td>Putra Wibowo</td>
47. <td>11.5443</td>
48. <td>Bandung, 18 oktober 1990</td>
49. <td>Laki-Laki</td>
50. <td>Sejarah</td>
51. <td>2008</td>
52. <tr>
53. </table>
54. </body>
55. </html>
Jika dilihat di browser
tampilan akan menjadi seperti ini :
Sekian dulu ya teman teman, semoga artikel cara membuat
tabel dengan HTML bermanfaat, untuk
penggunaan jumlah kotak di tiap baris tidak wajib sama. Kita bisa mengisikan
jumlah kotak di tiap baris secara berbeda..wasallam
Langganan:
Postingan (Atom)
