andari_poenya: Juli 2011

Selasa, 05 Juli 2011

terima kasih

aku mau ucapin terima kasih buat pak dosen..
karena akhirnya nilai sudah keluar..

walaupun hasilnya belum maksimal sesuai dengan yg diharapkan
yg penting sudah berusaha semaksimal mungkin

semoga kedepannya hasil yg didapat bisa lebih baik lagi...
Amin......

Senin, 04 Juli 2011

Jawaban Quis soal No.3

uses crt;

var

kd : byte;

sts : string;

nm,nik : string;

gaji : longint;

tot : real;

tj,tjk : real;

lg : char;

begin

clrscr;

repeat

gotoxy(3,3); write('Kode :'); readln(kd);

gotoxy(3,4); write('Nama :'); readln(nm);

gotoxy(3,5); write('NIK :'); readln(nik);

gotoxy(3,6); write('Status :'); readln(sts);

gotoxy(3,7); write('______________________');

gotoxy(3,8); write('Input lagi [Y/T] :'); readln(lg);

until upcase(lg)='T';

if kd =1 then

begin

gaji :=2500000;

tj :=0.35;

end else if kd =2 then

begin

gaji :=2000000;

tj :=0.10;

end else if kd =3 then

begin

gaji :=1500000;

tj :=0.05;

end;

if sts ='menikah' then tjk :=0.15;

tot :=gaji+(tj*gaji)+(gaji*tjk);

gotoxy(5,10); writeln('Kode jabatan :',kd);

gotoxy(5,12); writeln('Nama :',nm);

gotoxy(5,13); writeln('NIK :',nik);

gotoxy(5,14); writeln('Status :',sts);

gotoxy(5,15); writeln('Gaji :Rp.',gaji);

gotoxy(5,16); writeln('Tunjangan :',tj:2:2);

gotoxy(5,17); writeln('tunjangan keluarga:',tjk:2:2);

gotoxy(5,18); writeln('Total gaji :Rp.',tot:4:0);

readln;

end.

Jawaban soal Quis No.4

uses crt;

type

Dosen = record

kode : string[3];

nama : string;

pen : string;

kea : string;

end;

Mahasiswa= Record

NPM : string[7];

NAMA : string[15];

jen,jur : string[15];

thn : string;

end;

var

rDos : array[1..25] of Dosen;

rMah : array[1..15] of Mahasiswa;

i,j : byte;

Pil, lg : char;

procedure InputDosen;

Procedure FormDosen;

begin

clrscr;

gotoxy(13,3); write('INPUT DATA Dosen');

gotoxy(5,4); write('_____________________________');

gotoxy(5,5); write('Kode Dosen :');

gotoxy(5,6); write('NAMA :');

gotoxy(5,7); write('Pendidikan :');

gotoxy(5,8); write('Keahlian :');

gotoxy(5,9); write('_____________________________');

gotoxy(5,10); write('isikan data lagi [Y/T]:');

end;

begin

repeat

Formdosen;

with Rdos[i] do

begin

gotoxy(22,5); readln(kode);

gotoxy(22,6); readln(Nama);

gotoxy(22,7); readln(pen);

gotoxy(22,8); readln(kea);

gotoxy(29,10); readln(lg);

inc(i);

end;

until upcase(lg)='T';

end;

procedure InputMahasiswa;

Procedure FormMahasiswa;

begin

clrscr;

gotoxy(13,3); write('INPUT DATA MAHASISWA');

gotoxy(5,4); write('_____________________________');

gotoxy(5,5); write('NPM :');

gotoxy(5,6); write('NAMA :');

gotoxy(5,7); write('Jenjang :');

gotoxy(5,8); write('Jurusan :');

gotoxy(5,9); write('Tahun :');

gotoxy(5,10); write('_____________________________');

gotoxy(5,11); write('isikan data lagi [Y/T]:');

end;

begin

repeat

FormMahasiswa;

with Rmah[i] do

begin

gotoxy(22,5); readln(NPM);

gotoxy(22,6); readln(NAMA);

gotoxy(22,7); readln(jen);

gotoxy(22,8); readln(jur);

gotoxy(22,9); readln(thn);

gotoxy(29,11); readln(lg);

inc(i);

end;

until upcase(lg)='T';

end;

Procedure OutputDosen;

Procedure TabelDosen;

begin

clrscr;

gotoxy(10,4); write(' INPUT DATA DOSEN');

gotoxy(3,5); write('___________________________________________________');

gotoxy(3,6); write(' NO Kode Nama Pendidikan Keahlian');

gotoxy(3,7); write('---------------------------------------------------');

end;

begin

TabelDosen;

for j:=1 to I-1 do

begin

with RDos[j] do

begin

gotoxy(5,7+j); write(j:1,' ',kode:4);

gotoxy(15,7+j); write(nama);

gotoxy(30,7+j); write(pen);

gotoxy(43,7+j); write(kea);

end;

gotoxy(3,9+j); write('___________________________________________________');

repeat until keypressed;

end;

Procedure OutputMahasiswa;

Procedure TabelMahasiswa;

begin

clrscr;

gotoxy(10,4); write(' INPUT DATA MAHASISWA');

gotoxy(3,5); write('____________________________________________________________________________');

gotoxy(3,6); write(' NO NPM NAMA Jenjang Jurusan Tahun');

gotoxy(3,7); write('----------------------------------------------------------------------------');

end;

begin

TabelMahasiswa;

for j:=1 to I-1 do

begin

with RMah[j] do

begin

gotoxy(5,7+j); write(j:0,' ',NPM:8,' ',NAMA);

gotoxy(33,7+j); write(jen);

gotoxy(44,7+j); write(jur);

gotoxy(56,7+j); write(thn);

end;

gotoxy(3,7+j); write('_____________________________________________________________________________');

repeat until keypressed;

end;

procedure menu;

begin

clrscr;

gotoxy(20,2); write('MENU PEGAWAI');

gotoxy(10,3); write('_________________________________________');

gotoxy(10,4); write('[1]. Input Data Dosen');

gotoxy(10,5); write('[2]. Input Data Mahasiswa');

gotoxy(10,6); write('[3]. Output data Dosen');

gotoxy(10,7); write('[4]. Output data Mahasiswa');

gotoxy(10,8); write('[5]. Keluar Program');

gotoxy(10,9); write('__________________________________________');

gotoxy(10,10); write('Pilihan :');

end;

begin{Program Utama}

i:=1; Pil:='1';

while Pil<>'5' do

begin

menu;

pil:=readkey;

case Pil of

'1': InputDosen;

'2': InputMahasiswa;

'3': OutputDosen;

'4': OutputMahasiswa;

end;

end.

Sabtu, 02 Juli 2011

harapan..

harapan bagiku tidaklah lain adalah sebuah mimpi yang harus kugapai..
aku tau untuk mengggapai itu semua itu bukanlah hal yan mudah

butuh banyak proses untuk dapat mewujudkannya, dan hal itu yang harus aku lakukan untuk menggapai harapan tersebut,,,

aku bersyukur memiliki keluarga yang sangat setia mendukungku,,,
motivasi dari mereka selalu kujadikan landasan untuk menggapai harapan dan mimpiku..

kehidupanku...

untuk saat ini kehidupanku bisa dikatakan masih dalam keadaan yang standart...
kenapa aku bilang seperti itu tentu ada alasan donk...
aku adalah anak pertama dari tiga bersaudara,,,
dan sampai saat ini aku masih bergantung pada orang tua
walaupun sebenarnya aku udah bekerja tetap aja gak cukup,,,
nah ini dia alasan kenapa aku bilang kehidupanku standart
aku belum bisa berdikari.....

BUDIDARMA..

Budi darma adalah kampus tempatku menuntut ilmu pada saat ini,
saat ini aku duduk di semester 2 dengan program studi MANAJEMEN INFORMATIKA.

Dikampus ini aku mendapatkan banyak hal, mulai dari sahabat yang baik,, dosen yang baik n enak diajak buat bertukar fikiran,, dan yg paling penting adalah ilmu komputer yang akan kelak menjadi bekal buatku...

Pembelajaran di kampus ini sangat asyik,,
mengapa aku mengatakan hal demikian karena jika dikelas teori ada hal yg tidak kita mengerti, kita bisa langsung menemui dosen yang bersangkutan...
kiat bisa meminta penjelasan lebih darinya tanpa sungkan2 dan yg gak kalah menariknya dosen nya juga gak gaptek loh...
kita bisa tetap bertukar fikiran lewat: FB, Twiter, dan blog yang lagi marak pada saat ini....

pokoknya Budi Darma is the best deh!!!!

kuliahku......

kuliah selalu butuh pengorbanan yang besar,,,
mulai dari materi, waktu, dan masih banyak lagi...

bagiku kuliah merupakan satu jembatan yang akan mengantarku
kegerbang kesuksesan.....

aku akan selalu berusaha untuk jadi yang terbaik, namun jika hasilnya belum maksimal aku akan tetap berusaha semampuku..

jika kelak aku berhasil semua ini akan kupersembahkan untuk seseorang yang selalu setia memberiku dukungan....

yaitu : MAMA.....