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

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.

the reason............