Aku punya Puisi yang dikirim teman dan di tujukan buat
anak2 muda yang lagi jomblo.
Berikut isinya….
Senin, 04 Juli 2011
Sabtu, 02 Juli 2011
Jawaban soal Quis No.4
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;
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;
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;
end.
Ini adalah tampilan hasil programnya setelah di Ctrl+F9
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.
Pembelajaran di Kampus
Sebenarnya pelajaran yang aku sukai di semester II ini Program.
pi program itu sulit, khususnya pascal..
pi aku akan berusaha agar bisa...
jadi aku mohon pada Bpk Mesran selaku dosen yang mengajarkan mata kuliah Pemograman
untuk bisa memberikan bimbingannya...
pi program itu sulit, khususnya pascal..
pi aku akan berusaha agar bisa...
jadi aku mohon pada Bpk Mesran selaku dosen yang mengajarkan mata kuliah Pemograman
untuk bisa memberikan bimbingannya...
Perkulihan
Saat ini saya kuliah di STMIK Budidarma Medan..
Jurusan Manajemen Informatika, jenjang D3..
Saya masih semester II, tentang perkulihan di semester II ada 9 mata kuliah yang saya jalani..
sehingga satu minggu tuch tak ada liburnya,,huftt
pi ya ngak papa namanya menuntut ilmu. Aku berharapnanti lulus dengan baik dan mendapatkan nilai yang memuaskan.Aminnnnn.......
Jurusan Manajemen Informatika, jenjang D3..
Saya masih semester II, tentang perkulihan di semester II ada 9 mata kuliah yang saya jalani..
sehingga satu minggu tuch tak ada liburnya,,huftt
pi ya ngak papa namanya menuntut ilmu. Aku berharapnanti lulus dengan baik dan mendapatkan nilai yang memuaskan.Aminnnnn.......
Kehidupan
Saat ini saya masih bekerja di Perusahaan Swasta (PT.Jaya Plastik)..
Selain bekerja, saya juga menuntut ilmu di STMIK Budidarma Medan, sebagai bekal ke depannya untuk menjadi orang yang berguna...
Saya masih semester II dan mengambil jurusan Manajemen Informatika (D3)..
Ingin menjadi orang yang berguna buat semua orang..do'ain yaaaaaaaaa...
Selain bekerja, saya juga menuntut ilmu di STMIK Budidarma Medan, sebagai bekal ke depannya untuk menjadi orang yang berguna...
Saya masih semester II dan mengambil jurusan Manajemen Informatika (D3)..
Ingin menjadi orang yang berguna buat semua orang..do'ain yaaaaaaaaa...
Langganan:
Postingan (Atom)