Bersyukurlah. Sedikit, paling tidak.

Ini adalah daya tampung universitas kita, tahun ini.



Pak Heri, tetangga ketua prodi kita pernah bercerita yang intinya bahwa :
KITA MEMANG BENAR-BENAR MENYINGKIRKAN RIBUAN ORANG.
Maka, bersyukurlah dengan belajar yang benar (klise).
Bersyukurlah dengan cara kalian deh!.

Bapak dan Ibu Guru yang kami Benci

Dulu saya (eduardo) sempat memendam pertanyaan tentang beberapa guru-guru saya di sekolah saya.
Contoh pertanyaan itu adalah :

Kenapa sih gurunya boring?!

Kenapa sih gurunya rese : Ngajar KWN di Jurusan IPA

(yang notabene malah cuma sering ngasih tugas ngerjain LKS)

Kenapa sih gurunya marah-marah gak jelas?!

Kenapa sih ada guru yang datang cuma ngabesn, terus caw langsung ke koperasi -ngobrol sama penjaga koperasi..

dan Kenapa sih lain-lainnya lagi.

Aaaaaaahhhhhh. Serasa sayalah yang paling benar waktu itu dengan memiliki argumen yang juga tidak cukup kuat. Lagian toh saya lulus juga dari ujian-ujian kayak gitu. Saya lulus juga dengan belajar IPS di jurusan IPA. Waktu itu saya tidak bersyukur dengan mengeluhkan hal-hal yang sebenarnya menunjang cita-cita saya -cita-cita saya adalah orang yang berjurusan IPS (mau tau?).

Poin-nya,

bahwa ada guru-guru yang tidak saya sukai, waktu saya sekolah. Saya sempat berfikir, kalo ternyata sampai sekarang (waktu itu) banyak murid yang tidak nyaman dengan beliau, mengapa sekolah masih mempertahankan guru senior itu. Mungkin alasan politis atau alasan jalinan silaturahmi aja kali ya. Tapi yang ingin saya tekankan adalah bahwa saya ingin berintrospeksi.

Posisi saya sekarang adalah masa mudanya guru-guru saya.
Dulu saya punya guru-guru yang saya benci.
.
Tanyalah pada diri kita tentang : Kalau guru itu kita benci, waktu mudanya kayak gimana ya?
Tanya lagi pada diri kita tentang : Jika sikap dan cara belajar saya sekarang sebagai calon pendidik seperti ini, disukai oleh murid-kah saya nanti?

Mungkin ilmu saya juga belum banyak dengan menulis ini. Harapannya kita bisa lebih menjadi pendidik bagi diri kita terlebih dahulu daripada pendidik manusia di sekitar kita. Introspeksi.

Membuat Fitur Help Delphi 7 berjalan 100% di Windows 7

setelah menganalisis perbedaan windows 7 dan windows xp dalam fitur help pada delphi 7,akhirnya hal itu dapat diselesaikan dengan baik namun ane harus mengorbankan windows 7 lame ane...hiks..hiks hiks..
jadi pengen nangis(lebay mode: on).
tapi ane jamin tutorial ini nggak membahayakan kok paling install ulang lagi klo salah..wakkakakakk

nggk kok ane bercanda ente

oke
untuk mempersingkat waktu langsung aj ke TKP:
1. yang harus ente lakukan adalah download winhelp
2.siapkan live cd ubuntu .
3.setelah file tadi di download saatnya sekarang restart komputer ente
4.sekarang booting dengan live cd ubuntu
5.saatnya melakukan cracking,caranya masuk ke system dari windows ente (C:) trus cari folder windows.
6.cari file dengan nama winhlp32.exe dan rename menjadi winhlp32(lama).exe
7.setelah itu cari file yang udah ente download tadi dan copykan ke folder system(C:)==>windows
8.dan restart PC ente
9.nikmati delphi 7 di windows 7 dengan kemampuan sama dengan windows xp.

oleh Dedy Irvandy

TUGAS KALKULUS

Tugas kalkulus download disini

program olah_array (ke-4 --> menentukan index nilai max dan min versi ke-2)

program olah_array;
uses wincrt;
var i,n, total,min,max, indexma,indexmi: integer; rata2: real;
nilai: array [1..10] of integer;
begin
total:= 0;
readln (n);
for i:= 1 to n do
begin
write ('Nilai Ke-',i, ':');
readln (nilai[i]);
total:=(nilai[i]);
total:= total+nilai[i];
end;
rata2:= total/n;
writeln ('rata-rata nilai: ', rata2:4:2);

min:= nilai[1];
for i:=2 to n do
begin
if min>nilai[i] then begin
min:=nilai[i] ; indexmi:=i ;
end
else begin
min:= min; indexmi:=1;
end;

max:= -9999;
for i:=1 to n do
begin
if max max:= nilai[i]; indexma:=i; end;
end;
writeln('Nilai Tertinggi: ', max,' di index ke-', indexma);
writeln('Nilai Terendah: ', min,' di index ke-', indexmi);
end;
end.

program olah_array (ke-4 --> menentukan index nilai max dan min)

program olah_array;
uses wincrt;
var i,n, total,min,max, indexma,indexmi: integer; rata2: real;
nilai: array [1..10] of integer;
begin
total:= 0;
readln (n);
for i:= 1 to n do
begin
write ('Nilai Ke-',i, ':');
readln (nilai[i]);
total:=(nilai[i]);
total:= total+nilai[i];
end;
rata2:= total/n;
writeln ('rata-rata nilai: ', rata2:4:2);

min:= 9999;
for i:=1 to n do
begin
if min>nilai[1] then begin;
min:=nilai[i];indexmi:=i; end;
end;

max:= -9999;
for i:=1 to n do
begin
if max max:= nilai[i]; indexma:=i; end;
end;
writeln('Nilai Tertinggi: ', max,' di index ke-', indexma);
writeln('Nilai Terendah: ', min,' di index ke-', indexmi);
end.

Program olah_array (ke-3, dengan menentukan nilai min, max)

program olah_array;
uses wincrt;
var i,n, total,min,max: integer; rata2: real;
nilai: array [1..10] of integer;
begin
total:= 0;
readln (n);
for i:= 1 to n do
begin
write ('Nilai Ke-',i, ':');
readln (nilai[i]);
total:=(nilai[i]);
total:= total+nilai[i];
end;
rata2:= total/n;
writeln ('rata-rata nilai: ', rata2:4:2);

min:= 9999;
for i:=1 to n do
begin
if min>nilai[1] then
min:=nilai[i];
end;

max:= -9999;
for i:=1 to n do
begin
if max max:= nilai[i];
end;
writeln('Nilai Tertinggi: ', max);
writeln('Nilai Terendah: ', min);
end.

program olah_array (versi ke-2)

program olah_array;
uses wincrt;
var i,n, total: integer; rata2: real;
nilai: array [1..10] of integer;
begin
total:= 0;
readln (n);
for i:= 1 to n do
begin
write ('Nilai Ke-',i, ':');
readln (nilai[i]);
total:=(nilai[i]);
total:= total+nilai[i];
end;
rata2:= total/n;
writeln ('rata-rata nilai: ', rata2:4:2);
end.

program olah_array (latihan array ke-2)

program olah_array;
uses wincrt;
var i,n, total: integer; rata2: real;
nilai: array [1..10] of integer;
begin
total:= 0;
readln (n);
for i:= 1 to n do
begin
write ('Nilai Ke-',i, ':');
readln (nilai[i]);
total:=(nilai[i]);
total:= total+nilai[i];
end;
rata2:= total/n;
writeln ('rata-rata nilai: ', rata2);
end.

Program inputan_array (latihan array ke-1)

program input_array;
uses wincrt;
var i, n: integer;
nama: array [1..10] of string;
q: char;
begin
write ('Masukkan jumlah nama: ');
readln (n);
if (n<=10) then begin
for i:= 1 to n do begin
write ('Nama ke-', i, '= ');
readln (nama[i]);
end;
writeln ('Data Terimpan');
writeln;
end;
writeln ('Tampilkan data? (Y/T)');
readln (q);
if (q='Y') then begin
for i:= 1 to n do
writeln (nama[i]);
end
else
halt;
readln;
end.

Upgrade Offline Ubuntu 9.10 ke Ubuntu 10.04(Lucid lynx)

sudah bosan dengan bung Karmic Koala ,sekarang saatnya beralih ke versi terbaruny yaitu si kucing manis Lucid Lynk.
senjata ente yang harus di persiapkan:
1. Update dulu dunk Ubuntu ente ... ==>terminal==> sudo apt-get update
2.space kosong min 800 Mb
3.apabila versi ente masih lama seperti 8.04 maka upgrade dulu ke 9.10 setalh itu baru ke 10.04 atau bisa langsung menggunakan CD 10.04 kalau ente mau langsung loncat.
4.download iso nya disini atau bila mau versi lainnya bisa disini

sekarang saatnya masuk ke tahap selanjutnya
ketik sudo mount-o loop ~ / Desktop/ubuntu-10.04-alternate-i386.iso / media/cdrom0 (khusus link pertama yang ane kasih dan tergantung tempat penyimpanan file iso ente)


kemudian pilih upgrade


Trus tunggu aj ampe selesai







dan selamat mencoba

jika terjadi error saat mount
ketik sudo apt-get clean

kemudian ctrl + F2 ketik gksu "sh /cdrom/cdromupgrade"

Oleh Dedy Irvandy