Tugas Program Dasar

LAPORAN

PROGRAM DASAR

DI SUSUN OLEH:

ELFRID TICKER TH :  131051075 

ANANIAS UMBU LUCKY SABARUA :  131051039

ENGELBERTUS YULIANUS SAE :  131051051

JUFRI IRMANTO PUATIPANNA : 091051077

JURUSAN TEKNIK INFORMATIKA

FAKULTAS TEKNOLOGI INDUSTRI

INSTITUT SAINS & TEKNOLOGI AKPRIND

YOGYAKARTA

2013

  1.      Variabel

Sekarang kita buat tokoh pakaian. Kita buat buat menggunakan record. Record mempunyai kelebihan untuk menyimpan suatu sekumpulan elemen data yang berbeda-beda tipenya di banding array. Setelah itu kita masukan elemen yang kita butukan untuk membuat program tokoh pakaian. Masukan elelmen-elemen data jenis, merek, ukuran yang bertipe string, stok, jumter yang bertipe byte dan harga, total, diskon yang bertipe real. Sekarang kita butuh array yang bertipe record. Dan membutukan variabel global yaitu pakaian yang bertipe array, I, n, pilih, k yang bertipe byte dan j yang bertipe real.

  2.      Procedure tambah pakaian

Sekarang kita menggunakan procedure yang bernama tambah_pakaian, dengan menggunakan variabel x yang bertipe array dengan nama larik. dan menggunakan variabel global yaitu ya yang bertipe char. char adalah tombol yang terdapat pada keyboard, atau lebih lengkapnya sebuah karakter yang terdapat kode. Kita mau menginputkan cuma satu jadi kita memakai repeat until.  Selanjutnya memakai inc(n) yang artinya untuk menambah atau memanggil variable yang kita buat pertama. Setelah itu kita memanggil variabel global dan record dengan readln sebagai contohnya readln(pakaian[n].jenis);. Selanjutnya memanggil ya yang bertipe char. Setelah itu kita menggunakan until (ya=’t’) yang artinya jika menekan t maka akan berakhir.

  3.      Procedure mengisi harga diskon

Selanjutnya mengisi harga diskon dengan menggunakan procedure yang bernama isi_harga_diskon dengan variabel x yang bertipe array dengan nama larik. Dan membutukan variabel global d1 yang bertipe real, d3 yang bertipe byte dan ketemu yang bertipe Boolean. Setelah itu ketemu yang masih bertipe false yang artinya masih salah, melakukan perulangan for i:=1 to n do dan menggunakan kondisi if x[i].diskon=0 then yang artinya jika disk=on bernilai nol kerjakan atan cetak. Setelah itu d3:=i ketemu:=true yang artinya sudah ketemu. Dan melakukan perkondisian if ketemu then jika sudah benar kerjakan pengisian diskon. Selanjutnya mencetak dan menginput harga diskon. Jika sudah di input harga diskonnya maka melakukan pengurangan di harga pakaian tersebut. selanjutnya kita melakukan perkondisian if not ketemu then jika harga diskon sudah di isi semua maka selesai sudah dan mencetak “harga sudah di isi”.

  4.      Procedure menambah stok

Selanjutnya procedure menambah stok pakaian. Procedure dengan nama tambah_stok dan variabel x yang bertipe array dengan nama larik dan membutukan variabel di dalam procedure yaitu e1 yang bertipe string, ada yang bertipe Boolean dan  posisi, tambah yang bertipe byte. selanjutnya mencetak dan menginput merek yang kita inputkan pertama tadi. Setelah itu melakukan perulangan for i:=1 to n do yang artinya kita mau menginputkan hanya satu saja. Setelah itu kita melakukan perkondisian x[i].merek=e1 then jika merek yang kita cari ada di cetak pakaian mana lakukan penambahan stok jika tidak ada maka mencetak “sory e1 tidak ada di daftar’. Setelah kondisinnya booleannya benar maka lakukan penginputan penambahan stok.

Permasalahannya jika kita inputkan tidak sesuai dengan di cetak data maka di melakukan penambahan stok tetapi jika di isi masukan stoknya maka programnya akan eror

  

  5.      Procedure penjualan

Selanjutnya procedure penjualan pakaian tanpa mengguanakan variabel hanya menggunakan variabel local saja. Variabelnya jenis1 yang bertipe string, jual dan posisi yang bertipe byte dan ketemu yang bertipe Boolean. Setelah itu kita mecetak dan mengginput merek pakaian yang kita inputkan pertama tadi dengan memanggil variabel local dengan readln. Selanjutnya melakukan perulangan for i:=1 to n do. Setelah itu kita melakukan perulangan if pakaian[i].merek=jenis then jika merek yang kita inputkan ada di cetak maka lakukan penjualan. Setelah itu ketemu bernilai true, mak lakukan penjualan. Selanjutnya melakukan perkondisian, jika pakaian tersebut masih ada stok maka lakukan lakukan penjualan dengan menggurai stok yang ada di cetak pakaian. Jika stok kurang maka akan mencetak “ jenis pakaian tidak ada di daftar  stok”.

Pemasalahannya jika ada merek sama maka penjualan tersebut hanya berkurang data yang pertama saja.

  

  6.      Procedure cetak stok

Selanjutnya procedur cetak stok barang yang di input. Dengan menggunakan variabel x yang bertipe array dengan nama larik. setelah itu kita melakukan pencetakan. Dan menggunakan perulangan for i:=1 to n do dan with x[i] do. Setelah itu cetaklah yang di input pertama.

  7.      Procedure cetak penjualan

Selanjutnya procedure cetak penjualan dengan variabel x yang bertipe array dengan menggunakan nama larik. setelah itu kita cetak penjualan dengan menggunakan perulangan for i:=1 to n do dan with x[i] do. Setelah itu cetaklah hasil penjualan tersebut.

  

  8.      Program utama

Sekarang program utama. Kita gunakan repeat until karena kita mau mencari sekali saja. Kita ketik clrscr itu fungsinya untuk membersikan data iputan yang kelihatan itu hanya hasil yang kita cari. Setelah itu kita cetak daftar menunya yang sesuai dengan apa yang kita buat di procedure. Setelah di cetak jangan lupa di case of. Case of itu fungsinya digunakan untuk mengontrol statement yang akan dieksekusi dalam program dan hanya dapat menguji kesamaan suatu variabel tertentu dengan nilai yang disajikan, variabel yang diuji hanyalah berupavariabel yang bertipe ( Integer, Boolean, Char, dan byte). . Jangan lupa readln. Readln itu fungsinya untuk memanggil lagi data yang kita buat lagi. Jangan lupa ketik until (pilih=5) itu artinya kalau kita pilih pilihan 7 akan keluar terima kasih.