Penunjang Kuliah UTM

a.       Adanya komandan tingkat (komting) per-kelas, yang bertugas mengakomodasi perkuliahan agar berjalan lancar. Antara lain : membuat milist.

b.      Setiap mahasiswa membuat email baru dengan Nama&NRP. Misal : Artika1301@yahoo.com.

c.       Setiap kelas memiliki mailing list (milist).

d.      Setiap mahasiswa harus update informasi melalui web kampus, web jurusan dan web perkuliahan dosen.

e.      Setiap mahasiswa harus memiliki kalender akademik.

f.        Setiap mahasiswa harus memiliki Buku Panduan Akademik 2013-1014.

g.       Setiap mahasiswa sebaiknya memiliki nomer hp dan email dosen wali dan dosen pengampu mata kuliahnya. Silahkan menggunakan kalimat yang sopan dan memberikan identitas jelas, ketika berkomunikasi dengan dosen.

Misal SMS : Assalamualaikum. Mohon informasi bu, apakah perkuliahan PTI kelas 1A dilaksanakan di ruang C301? Terima kasih. #Artika 13-01#

h.      Setiap mahasiswa sebaiknya memiliki rencana perkuliahan selama 4 tahun (8 semester) dan jadwal perkuliahan pribadi.

i.         Setiap mahasiswa sebaiknya memiliki peralatan utama kuliah di Informatika, antara lain: laptop, flashdisk dan mobile modem. Pastikan setiap perangkat memiliki identitas kepemilikan yang jelas beserta nomer kontak.

j.        Silahkan bergabung ke facebookgrup : Digital Multimedia Research Group (DMRG)

DMRG adalah grup tertutup riset bidang multimedia. Berisi informasi pelatihan, lomba dan topik riset bidang minat multimedia Universitas Trunojoyo. Bila ingin bergabung, pastikan id facebook Anda menunjukkan Anda adalah mahasiswa universitas Trunojoyo.

Program Kasir

Program Kasir;
uses wincrt;
var nama_barang : array[1..20] of string;
harga : array[1..20] of real;
banyak : array[1..20] of byte;
kata,grs :string;
x,y,i,j :byte;
Jum_Harga,Total_Harga,disc,Total_Bayar,uang :real;
begin
clrscr;
grs:='===============================================================';
kata:='Program Kasir';
x:=round((78-length(kata))/2);
gotoxy(x,2);writeln(kata);
x:=round((78-length(grs))/2);
gotoxy(x,3);write(grs);
{-----------------------------}
gotoxy(x,4);write('Data Belanja');
gotoxy(x,5);write(grs);
gotoxy(x,6);writeln('| No | Nama Barang | Harga Satuan |
Banyak | Jumlah Harga |');
gotoxy(x,7);write(grs);
{--------------------------------------------------------------------}
i:=0;
Total_Harga:=0;
repeat
i:=i+1;
gotoxy(x,7+i);write('| ',i);
gotoxy(x+5,7+i);write('|');
gotoxy(x+7,7+i);readln(Nama_barang[i]);
if Nama_Barang[i] <>'' then begin
gotoxy(x+25,7+i);write('|');
gotoxy(x+28,7+i);readln(Harga[i]);
gotoxy(x+28,7+i);writeln(Harga[i]:10:2);
gotoxy(x+41,7+i);write('|');
gotoxy(x+44,7+i);readln(Banyak[i]);
gotoxy(x+50,7+i);write('|');
Jum_Harga:=Harga[i]*Banyak[i];
gotoxy(x+53,7+i);writeln(Jum_Harga:10:2);
gotoxy(x+65,7+i);writeln('|');
Total_Harga:=Total_Harga+Jum_Harga ; end;
until nama_barang[i]='';
{--------------------------------------------------------------------}
disc:=0;
if (Total_Harga > 10000) and (Total_Harga <100000) then
disc:=0.05 * Total_Harga
else
if (Total_Harga >= 100000 ) then
disc:=0.1 *Total_Harga;
{--------------------------------------------------------------------}
kata:='Faktur Penjualan';
y:=round((78-length(kata))/2);
gotoxy(y,2);writeln(kata);
j:=i-1;
gotoxy(x,8+j);write(grs);
gotoxy(x,8+j+1);write('Total Belanja :');
gotoxy(x+53,8+j+1);write(Total_Harga:10:2);
gotoxy(x,8+j+2);write('Discount :');
gotoxy(x+53,8+j+2);write(disc:10:2);
gotoxy(x,8+j+3);write(grs);
gotoxy(x,8+j+4);write('Total Bayar setelah discount :');
Total_Bayar:=Total_Harga-disc;
gotoxy(x+53,8+j+4);write(Total_Bayar:10:2);
gotoxy(x,8+j+5);write('Uang diBayar');
gotoxy(x+53,8+j+5);readln(Uang);
gotoxy(x+53,8+j+5);writeln(Uang:10:2);
gotoxy(x,8+j+6);Write(grs);
gotoxy(x,8+j+7);write('Uang Kembali');
gotoxy(x+53,8+j+7);write(Uang-Total_Bayar:10:2);
end.