A : Accept. “Terimalah diri anda sebagaimana adanya, apapun kelebihan & kekurangan anda.”

B : Believe. “Percayalah terhadap kemampuan anda untuk meraih apa yang anda harapkan.”

C : Care. “Pedulilah pada usaha anda. Jangan setengah hati.”

D : Direct. “Arahkanlah pikiran pada hal – hal positif yang meningkatkan kepercayaan diri.”

E : Earn. “Terimalah penghargaan yg diberi orang lain dengan tetap berusaha menjadi yg    

      terbaik. “

F : Face. “Hadapilah semua realita yang ada, suka, duka, maupun problem karena itu adalah proses 

     pembentukan karakter dan pendewasaan iman sebagai anak – anak Allah.”

G : Go. “ Berangkatlah dari kebenaran akan Firman Allah.”

H : Homework. “Pekerjaan rumah adalah langkah penting untuk pengumpulan informasi.”

I : Ignore. “Abaikan celaan orang yang menghalangi jalan anda mencapai tujuan. Abaikan rasa 

     minder anda dan berharaplah kepada Allah untuk mendapatkan tujuan tersebut.

J : Jealously. “Rasa iri dapat membuat anda tidak menghargai kelebihan anda sendiri.”

K : Keep. “Terus berusaha walaupun beberapa kali gagal.”

L : Learn. “Belajar dari kesalahan dan berusaha untuk tidak mengulanginya.”

M : Mind. “Perhatikan urusan sendiri dan tidak menyebar gossip tentang orang lain.”

N : Never. “Jangan terlibat skandal seks, obat terlarang dan alkohol.”

O : Observe. “Amatilah segala hal di sekeliling anda. Perhatikan, dengarkan, dan belajar dari orang

      lain.”

P : Patience. “Sabar adalah kekuatan tak ternilai yang membuat anda terus berusaha.”

Q : Question. “Pertanyaan perlu untuk mencari jawaban yang benar dan menambah ilmu.”

R : Respect. “ Hargai diri sendiri dan juga ornag lain.”

S : Self. Self Confidence, self esteem, self respect. “Percaya diri, harga diri, citra diri, penghormatan

     diri membebaskan kita dari saat – saat tegang”.

T : Take. “Anda berani mengambil tindakan dan andapun berani ambil tanggungjawab.

U : Understand. “Pahami bahwa hidup itu naik turun, namun tak ada yang dapat mengalahkan anda.”

V : Value. “Hargailah diri anda sendiri dan hargai orang lain, berusahalah berikan yang terbaik.”

W : Work. “Bekerja dengan giat dan jangan lupa berdoa”.

X : Xtra. “Usaha lebih keras membawa keberhasilan”.

Y : You. “Anda adalah orang yang sangat berharga dan unik dimata Allah.”

Z : Zero. “Usaha nol membawa hasil nol pula, jadi berikan yang terbaik bagi Allah.”

DATABASE - PEMROGRAMAN MULTI LIST

Ketikkan pada software Pascal seperti dibawah ini :

uses crt;

type
filebio = record
npm:string[8];
nirm:string[3];
nama:string[15];
alamat:string[12];
end;
filenirm = record
nirm2:string[3];
masuk:string[10];
akhir:string[10];
end;
var
biodata :array[1..10] of filebio;
tglnirm :array[1..10] of filenirm;
isi:text;
a,x,y:integer;

Procedure tbio;
begin
a:=5;
assign(isi,’biodata2.dat’);
reset(isi);
writeln(‘Biodata’);
writeln(‘————————————————————’);
writeln(‘*    Npm    *   Nirm   *      Nama        *      Alamat    *’);
writeln(‘————————————————————’);
for x:=1 to 10 do
begin
readln(isi,biodata[x].npm);
readln(isi,biodata[x].nirm);
readln(isi,biodata[x].nama);
readln(isi,biodata[x].alamat);
write(‘*  ‘,biodata[x].npm,’    ‘,biodata[x].nirm,’        ‘,biodata[x].nama,’        ‘,biodata[x].alamat:5);
gotoxy(60,a);
writeln(‘*’);
a:=a+1;
end;
close(isi);
writeln(‘————————————————————’);
readln;
end;

procedure tnirm;
begin
assign(isi,’filenirm.dat’);
reset(isi);
writeln(‘File Nirm’);
writeln(‘—————————————————–’);
writeln(‘* Nirm   *    Tanggal Masuk    *    Tanggal Akhir   *’);
writeln(‘—————————————————–’);
for x := 1 to 10 do
begin
readln(isi,tglnirm[x].nirm2);
readln(isi,tglnirm[x].masuk);
readln(isi,tglnirm[x].akhir);
writeln(‘*  ‘,tglnirm[x].nirm2,’   *     ‘,tglnirm[x].masuk,’      *     ‘,tglnirm[x].akhir,’     *’);
end;
writeln(‘—————————————————–’);
close(isi);
readln;
end;

procedure daftarsiswa;
begin
a:=5;
gotoxy(1,30);writeln(‘Daftar Siswa’);
writeln(‘———————————————————————–’);
writeln(‘* No *    Npm   * Nirm *       Nama       *  Tgl masuk  *  Tgl Akhir  *’);
writeln(‘———————————————————————–’);
for x := 01 to 10 do
begin
write(‘  ‘,x,’    ‘,biodata[x].npm,’   ‘,biodata[x].nirm,’    ‘,biodata[x].nama,’   ‘,’              ‘,’   ‘,’    ‘);
for y := 01 to 10 do
if biodata[x].nirm = tglnirm[y].nirm2 then
begin
gotoxy(46,a);
writeln(tglnirm[y].masuk);
gotoxy(60,a);
writeln(tglnirm[y].akhir);
a:=a+1;
end;
end;
writeln(‘———————————————————————–’);
readln;
end;

begin
clrscr;tbio;
clrscr;tnirm;
clrscr;daftarsiswa;
end.

 TAMPILAN OUTPUT PROGRAM untuk :

 FILE BIODATA :

  FILE NIRM :

FILE AKHIR :

  

www.gunadarma.ac.id