Rabu, 11 Januari 2012

Latihan Pra UAS

A. buatlah sebuah program menu karyawan dimana jika memilih menu
1. program data karyawan (nik,nama,alamat,tgl lahir,jabatan,status,no telpon)
2. program data barang (kde barang, nama barang, quantity,harga satuan,total harga,diskon,harga bayar (harga setelah diskon))
 diskon jika total harga lebih besar atau sama dengan 50000 maka diskon 0,5%,jika total harga lebih besar atau sama dengan 500000 maka diskon 10%.
jika memilih menu di atas 3 maka akan muncul pesan *menu yang anda pilih tidak ada*
gunakan pengulangan uncounted loop untuk mengulang ke menu awal, dan buatlah pembatas yang bisa digunakan berklai-kali  (misal :bintang,samadengan,simbol2 lainnya dengan subrutin).

B.buatlah sebuah program menu untuk data kampus dimana jika memilih menu
1.program data mahasiswa (nim,nama,jurusan,tahun ajaran,smster,dosen wali,alamat,telpon)
2.program data dosen (nip,nama,ttl,alamat,telpon,status,jabatan,ruangan,mata kuliah)
3.program menghitung grade mahasiswa(nama,nim,jurusan,smster,angkatan,NH,NUTS,NUAS,NA,Grade)
jika memilih menu di atas 4 maka akan muncul pesan *menu yang anda pilih tidak ada*
gunakan pengulangan uncounted loop untuk mengulang ke menu awal, dan buatlah pembatas yang bisa digunakan berklai-kali  (misal :bintang,samadengan,simbol2 lainnya dengan subrutin).

C. Buatlah program konversi suhu, dimana jika memilih menu
1.  merubah celcius ke kelvin
     CeLKel = Celcius + 273,15
2.  merubah celcius ke rheamur
     CelRea= Celcius x 0,8
3. merubah reamur ke celcius
     ReaCel = Rheamur x 1,25
4.  merubah celcius ke fahrenheit
     CelFa = (Celcius x 1,8) + 32
5. merubah fahrenheit ke celcius
     FaHCel = (Fahrenheit - 32) / 1,8
6. merubah rheamur ke farenheit
     ReFa = (Rheamur x 2,25) + 32
jika memilih menu di atas 7 maka akan muncul pesan *menu yang anda pilih tidak ada*
gunakan pengulangan uncounted loop untuk mengulang ke menu awal, dan buatlah pembatas yang bisa digunakan berklai-kali  (misal :bintang,samadengan,simbol2 lainnya dengan subrutin).


selamat mencobaa iiiaahhh,,GOOD LUCK,,
^_^

array data mahasiswa

program array_1Dimensi; uses  winCrt; var  nim,nm,smstr,mk,grade:array[1..4] of string;  nh,uts,uas:array[1..4] of integer;  na:array...