nick name


I made this widget at MyFlashFetish.com.

Jumat, 16 April 2010

jadwal UTS ATA 2010

Jadwal Kuliah (1KA25) - UTS ATA 2010

Hari

Tanggal

Mata Kuliah

Waktu

Ruang

Jum'at

23/04/2010

Pendidikan Pancasila (*)

31

J1210

Jum'at

23/04/2010

Pendidikan Pancasila (*)

31

J1211

Sabtu

24/04/2010

Konsep Sistem Informasi (*)/**

3

J1210

Sabtu

24/04/2010

Konsep Sistem Informasi (*)/**

3

J1211

Senin

26/04/2010

Matematika Dasar 2

2

J1210

Senin

26/04/2010

Matematika Dasar 2

2

J1211

Selasa

27/04/2010

Bahasa Inggris 2

3

J1210

Selasa

27/04/2010

Bahasa Inggris 2

3

J1211

Kamis

29/04/2010

Algoritma & Pemrograman 2 A

3

J1423

Kamis

29/04/2010

Algoritma & Pemrograman 2 A

3

J1424

Sabtu

01/05/2010

Algoritma & Pemrograman 2 BC

3

J1412

Sabtu

01/05/2010

Algoritma & Pemrograman 2 BC

3

J1415

Senin

03/05/2010

Fisika & Kimia Dasar 2

3

J1311

Senin

03/05/2010

Fisika & Kimia Dasar 2

3

J1312



Kode

Waktu

Jam

Keterangan

1

I

08.30 . 10.00

Ujian Pagi
Hari : Senin, Selasa, Rabu, Kamis, Sabtu

2

II

10.30 . 12.00

3

III

13.00 . 14.30

4

IV

15.00 . 16.30

5

V

18.15 . 19.45

Ujian Malam Semua hari

6

VI

20.00 . 21.30

11

I

09.00 . 10.30

Ujian Pagi Khusus Jum.at

21

II

13.30 . 15.00

31

III

15.30 . 17.00

12

I-II

08.30 . 11.30

Ujian Pagi
Hari : Senin, Selasa, Rabu, Kamis, Sabtu

13

I-III

08.30 . 13.00

14

I-IV

08.30 . 14.30

15

I-V

08.30 . 15.30

34

III-IV

13.00 . 16.00

56

III-IV

18.15 . 21.15

Ujian Malam (lebih dari satu sessie)

121

I-II

09.00 . 12.00

Ujian pagi (lebih dari satu sessie) Khusus Jum.at

122

I+

09.00 . 11.00

131

I-III

09.00 . 13.30

132

II-III

13.30 . 17.00

141

I-IV

09.00 . 15.00

Jumat, 09 April 2010

manfaat memberi maaf


1. Memberi maaf membuat kepribadian kita berkembang.

Memang ada orang yang lebih memilih menyimpan rasa sakit hati dan dendam. Karena itu membuat mereka dalam posisi “benar” dan orang lain yang salah. Perasaan itu justru membuat mereka “nyaman” dan tidak perlu berubah.


Memberi maaf dalam kasus-kasus “berat” seringkali sama sakitnya dengan sakit hati itu sendiri. Karena mengharuskan kita melakukan introspeksi, yang tak jarang berakhir pada kesimpulan bahwa kita juga memiliki andil dalam kesalahan yang dilakukan orang itu terhadap kita. Pada satu titik, kita menyadari bahwa pasangan yang selingkuh justru diakibatkan karena sikap kita dirumah selama ini yang kurang memberi kasih sayang, penghargaan atau bersikap egois. Bahwa kita bisa ditipu orang justru karena keserakahan kita sendiri.

Pengakuan seperti ini sering menyakitkan. Alih-alih menyalahkan orang lain, kita malah dihadapkan pada sebuah kesadaran mengenai kesalahan kita sendiri. Sebuah kesadaran yang mengharuskan kita berubah. Tapi ketahuilah, rasa sakit yang satu ini akan berbuah kenikmatan dan kedamaian di hati pada akhirnya. Ia akan membuat kita lebh bijaksana dan menjadi orang yang lebih baik.

2. Memberi maaf membuat kita berdamai dengan masa lalu

Memberi maaf membebaskan kita dari belenggu jiwa yang mengikat dan mengerdilkan diri kita. Setiap langkah yang kita lalui dalam hidup ini memuat pelajaran kehidupan yang bersifat Ilahi. Ada pelajaran yang hendak disampaikan Tuhan melalui langkah dan tahapan yang kita lalui dalam hidup ini.


Dengan memberi maaf (dari dasar hati, bukan sekedar ucapan pemanis bibir), berarti kita telah berdamai dengan masa lalu kita, termasuk diantaranya adalah orang-orang yang telah menyakiti hati kita.

Bila kita masih menyimpan sakit hati dan kekecewaan, berarti kita belum lulus ujian pelajaran kehidupan yang diberikan Tuhan. Kalau belum lulus ujian, maka kelak kita akan diharuskan mengulang kembali pelajaran tersebut.

3. Memberi maaf adalah hadiah terbesar yang kita berikan kepada diri kita.

Tidak masalah apakah orang yang kita maafkan itu pantas atau tidak untuk dimaafkan. Apalagi bila orang itu tidak pernah meminta maaf. (Memang ada orang yang tidak pernah meminta maaf untuk kesalahan yang ia lakukan. Lebih parah lagi, ia bahkan tidak merasa salah!)

Dalam situasi seperti itu, sadarilah bahwa itu bukan urusan kita. Orang seperti itu punya masalah dengan diri mereka sendiri, dan mereka pasti menerima akibat dari sikap seperti itu. Bukannya mensyukuri, tapi orang seperti itu justru perlu dikasihi.

Pada hakikatnya, tindakan memberi maaf adalah tindakan menyangkut diri kita sendiri, bukan orang lain. Bukan pula tergantung bagaimana sikap orang yang sudah menyakiti hati kita. Karena memberi maaf membuat pikiran kita lebih jernih, lebih terbuka dan lebih luas. Ia membuat jiwa kita lebih kaya. Ingat, orang yang “memberi” adalah orang yang lebih “kaya.” Ia membuat kita lebih sabar dan lebih percaya diri.

4. Memberi maaf membuat kita lebih jujur kepada diri sendiri.

Mungkin saja kita sama sekali tidak pernah berbuat salah kepada orang yang bersalah kepada kita. (“Apa salah saya kepada kamu sehingga kamu berbuat seperti ini pada saya?”) Namun bila kita sedikit lebih jujur dan terbuka kepada diri sendiri, maka segera kita sadari bahwa kitapun pernah berbuat salah kepada orang lain. Kita juga manusia yang jauh dari sempurna. Mungkin saja orang yang menyakiti hati kita hanyalah perantara utusan Tuhan untuk menyadarkan kesalahan yang pernah kita lakukan kepada orang lain. Karena itu, bukannya malah benci dan mendendam, kita justru patut berterima kasih kepada “si utusan Tuhan” ini.

5. Secara sosial, tindakan memberi maaf diterima sebagai sikap seorang ksatria dan berjiwa besar.

Apakah memaafkan perlu diucapkan secara verbal? Saya kira tidak ada sebuah pedoman baku untuk itu, karena sangat tergantung pada situasinya. Apalagi bila yang bersangkutan tidak pernah meminta maaf, tentu akan aneh bila tiba-tiba kita mengatakan bahwa kita memaafkan kesalahannya.

Namun yang terpenting adalah, apakah kita sudah memaafkannya dari dasar hati? Apakah kita sudah memetik pelajaran yang hendak disampaikan Tuhan melalui dia? Kalau sudah, maka sikap kita yang memaafkan akan tercermin dalam bahasa tubuh dan tutur kata kita. Dan dengan itu, sebuah jalinan tali persaudaraan umat manusia yang sempat terputus bisa tersambung kembali.

Saya selalu yakin, Tuhan memberikan moment-moment tertentu dalam hidup manusia sebagai saat yang tepat untuk menjalin kembali tali persaudaraan yang sempat putus. Moment-moment itu adalah Tahun Baru, Lebaran, Natal, Hari Nyepi, Hari Waisak, atau hari ulang tahun. Bisa juga moment berupa kelahiran seorang bayi, pesta pernikahan, atau upacara wafat anggota keluarga. Itulah moment menurut saya kita perlu saling memaafkan. Niscaya hidup kita akan lebih damai dan menjadi orang yang lebih mencintai dan dicintai.



pascal prosedure


algope 2a 1:

Program satu;
uses crt;
var
i:byte;
procedure garis;
var
counter:integer;
begin
textcolor(green);
for counter:= 1 to 10 do
begin
write(char(196));
end;
end;

begin
for 1:= 1 to 5 do
begin
gotoxy(10,5);
garis;
end;
readln;
end.

algpe2
uses crt;
procedure kali;
var
a,b,c:integer;
begin
write('nilai A= ');readln(a);
write('nilai B= ');readln(b);
c:= a*b;
writeln('hasil c= ',c);
end;
var d,e,f:integer;
procedure jumlah;
begin
write('niali D= ');readln(d);
write('nilai E= ');readln(e);
f:= d*e;
writeln('nilai f= ',f);
end;

begin
clrscr;
kali;
jumlah;
readln;
end.

algope3
procedure kali(a,b:integer);
var
hasil:integer;
begin

hasil:=a*b;
writeln('hasil= ',:6);
end;

var
bil1,bil2:integer;
begin
write('bilangan 1= ');readln(bil1);
write('bilangan 2= ');readln(bil2);
kali(bil1,bil2);
readln;
end.

algpe4

program pengiriman_parameter_secara_acuan;
uses crt;
procedure kali(var a,b,c:integer);
begin
c:=a*b;
end;
var x,y,z:integer;
begin
clrscr;
write('nilai x=');readln(x);
write('nilai y=');readln(y);
kali(x,y,z);
writeln(' niali z=',z);
readln;
end.

algpe5

program panggil;
uses crt;
procedure satu(a1:integer);
begin
writeln(' nilai a=',a1,' procedure satu');
end;
procedure dua(a2:integer);
begin
writeln(' nilai a=',a2,' procedure dua');
satu(a2);
end;
var a:integer;
begin
clrscr;
write(' nilai a=');readln(a);
dua(a);
readln;
end.

algpe6

program tersarang;
uses crt;
procedure satu;
procedure dua;
begin
writeln(' procedure dua ada di procedure satu ');
end;
procedure tiga;
begin
writeln(' procedure tiga ada di procedure satu ');
end;
begin
writeln('procedure satu ');
dua;
tiga;
end;
begin
clrscr;
writeln(' modul utama ');
satu;
readln;
end.

algpe 7

program rekursi;
uses crt;
var i:integer;
procedure rekursi;
begin
writeln(' pemanggil procedure ke=',i);
i := i +1;
if i<5 then rekursi;
end;

begin
clrscr;
i:= j;
rekursi;
readln;
end.

met job.....

pascal (menu)



uses crt;
var pil,a,b,c,d,e,f,i,j,n:integer;
var nama,kelas,npm:string;
var
mat : array[1..2,1..2] of byte;
label awal;
begin
awal:
clrscr;
writeln('--MASUKAN PILIHAN ANDA--');
writeln(' OPSI :');
writeln(' 1. IDENTITIY');
writeln(' 2. DERET');
writeln(' 3. MATRIX');
writeln(' 4. GENAP & GANJIL');
writeln(' 5. EXIT');
writeln;
write('PILIHAN ANDA ADALAH :');readln(pil);
case pil of
1:begin
clrscr;
writeln('ANDA MEMILIH PILIHAN 1');writeln;
write('NAMA :');readln(nama);
write('KELAS :');readln(kelas);
write('NPM :');readln(npm);
clrscr;
writeln('IDENTITAS ANDA');writeln;
writeln('NAMA :',nama);
writeln('KELAS :',kelas);
writeln('NPM :',npm);
readln;
goto awal;
end;

2:begin
clrscr;
writeln('ANDA MEMILIH PILIHAN 2');writeln;
write('masukan jumlah deret:');readln(a);
writeln;
for b:= 1 to a do
begin
for c:= 1 to b do
write(c);
writeln;
end;
for d:= a-1 downto 1 do
begin
for e:= 1 to d do
write(e);
readln;
end;
goto awal;
end;

3:begin
clrscr;
writeln('ANDA MEMILIH PILIHAN 3');writeln;
writeln('Matrix 2x2');
writeln('----------');
for i := 1 to 2 do
begin
for j := 1 to 2 do
begin
write('matrix elemen [',i,'][',j,'] : ');
readln(mat[i][j]);
end;
writeln;
end;
writeln;
writeln('Matrixnya adalah');
writeln('----------------');
writeln;
for i:= 1 to 2 do
begin
for j:= 1 to 2 do
begin
write(' ',mat[i][j],' ');
end;
writeln;
writeln;
end;
readln;
goto awal;
end;

4:begin
clrscr;
writeln('ANDA MEMILIH PILIHAN 4');writeln;
writeln('masukan nilai : ');readln(n);
if n MOD 2=0 then
writeln('bilangan genap')
else
writeln('bilangan ganjil');
readln;
goto awal;
end;

5:begin
clrscr;
writeln('ANDA MEMILIH PILIHAN 5');writeln;
writeln('---THANK YOU---');
readln;
end;
end;
end.
readln;
end.

Jumat, 02 April 2010

Pages