Desember 9, 2010
Pengumuman Rekapitulasi Tugas PIK D3 Statistik ITS
Sahabat Sekalian peserta MK PIK D3 2010 Jurusan Statistika ITS.
(Mohon MAAf jika pengumumannya memang Terlambat,, Maafin ya…)
Setelah mengamati email yang masuk dalam beberapa hari terakhir ini, Kami telah mencatat banyak entitas yang kemudian kami susun dalam beberapa field yang akhirnya melahirkan suatu database mahasiswa yang mengumpulkan ”bingkisan” untuk liburan dengan kategori TEPAT WAKTU (halah,, bahasanya Access bgt,, hehe).
Adapun nama-nama tersebut antara lain :
Tugas Beras Ketan (Ardil)
1310030005
1310030023
1310030009
1310030019
1310030003
1310030015
1310030013
1310030017
1310030001
1310030021
1310030007
1310030025
Tugas Kalkulator (Alifah)
1310030053
1310030055
1310030059
1310030065
1310030069
1310030071
1310030075
1310030077
1310030081
1310030083
1310030085
Tugas Luas Bidang (Diana)
1310030033
1310030041
1310030037
1310030039
1310030043
Beberapa hal yang perlu disampaikan antara lain :
Yang pertama, Bagi yang belum tercantum dalam database di atas, harap segera mengirimkan tugas Anda (masih dengan format yang sama) ke alamat email yang sudah ditentukan untuk masing-masing jenis Tugas (paling lambat Jum’at, 10 Desember 2010 pkl 09:00).
Yang kedua, untuk soal Beras Ketan, berikut saya cantumkan lampirkan salah satu alternatif program pascal-nya. Tidak menutup kemungkinan Sahabat Sekalian bisa meng-improve-nya menjadi lebih catchy lagi.
Lampiran Program :
Program Beras_Ketan;
Uses winCrt;
Var Angka,kg,harga:longint;
x:Char;
Begin
Clrscr;
Writeln(‘Daftar Perhitungan Penjualan Beras dan Ketan’);
Writeln(‘============================================’);
Writeln(‘Jika anda memilih angka 1 = maka daftar beras’);
Writeln(‘Jika anda memilih angka 2 = maka daftar ketan’);
Writeln;
Write(‘Pilihan anda 1 or 2 ?’);Readln(angka);
Writeln;
While (angka<1) or (angka>2) do
begin
Write(‘Mau coba lagi (Y/N) ?’);Readln(x);
if x=’N’ then write(‘Selesai’);
if x=’Y’ then
Write(‘Pilihan anda (1 or 2) ?’); Readln(angka);
end;
Writeln;
Case angka of
1:Begin
Write(‘Berapa kilo beras yang anda beli ?’);Readln(kg);
harga:=kg*900;
Write(‘Anda harus membayar Rp.’,harga);
End;
2:Begin
Write(‘Berapa kilo ketan yang anda beli ?’);Readln(kg);
harga:=kg*1000;
Write(‘Anda harus membayar Rp.’,harga);
End;
End;
Readln;
End.
Contoh Outputnya :
