#listing 1

uses crt;

var
x,y,a,b,c,d,e,konstanta:integer;

begin
Clrscr;
writeln(‘PROGRAM MENCARI NILAI PERSAMAAN POLINOMIAL PANGKAT 5′);
writeln(‘——————————————————————————-’);
write(‘Masukkan koefisien x^5 : ‘); readln(a);
write(‘Masukkan koefisien x^4 : ‘); readln(b);
write(‘Masukkan koefisien x^3 : ‘); readln(c);
write(‘Masukkan koefisien x^2 : ‘); readln(d);
write(‘Masukkan koefisien x^1 : ‘); readln(e);
write(‘Masukkan konstanta : ‘); readln(konstanta);
write(‘Masukkan nilai X : ‘); readln(x);
y:=a*x*x*x*x*x;
y:=y+b*x*x*x*x;
y:=y+c*x*x*x;
y:=y+d*x*x;
y:=y+e*x;
y:=y+konstanta;
writeln(‘Hasil persamaan (y) adalah : 835′); ———-> ??? penjelasan nilai 835, baca Keterangan Listing 1 di bawah listing ini
repeat until keypressed;
end.

KETERANGAN listing 1 :
Lelucon praktikan ini dipraktekkan untuk mengakali dosen/asisten dimana sang dosen/asisten telah memiliki baceman nilai-nilai inputan program (a,b,c,d,e,konstanta dan x).
Sebenarnya baceman ini dibuat dosen/asisten agar sang dosen/asisten dapat segera mengecek apakah program perhitungan nilai hasil fungsi (y) milik praktikan sudah benar – yang tentunya sang dosen/asisten telah menghitung hasilnya lebih dulu.

Nah, si praktikan tinggal menanyakan pada teman sesama praktikan yg telah lebih dulu asistensi tentang baceman nilai inputan itu. Maka jika khawatir program yang dibuatnya salah, si praktikan langsung saja memasukkan nilai fungsi (y) sebagai tampilan hasil setelah terlebih dahulu menghitungnya secara manual.

Maka ketika seharusnya :
writeln(‘Hasil persamaan (y) adalah : ‘,y);
langsung ditulis menjadi :
writeln(‘Hasil persamaan (y) adalah : 835′); —-> a=2 b=3 c=2 d=4 e=3 konstanta=7 dan x=3
….kwkwkwkwkwkwkw.

Gambling semacam ini masih tetep diandalkan (dengan pertaruhan yg lebih besar tentunya), walaupun terdapat 2 atau 3 kombinasi baceman inputan milik dosen/asisten. Cara antisipasinya ialah dengan membuat 2 atau 3 versi kompilasi program dalam disket untuk masing-masing kombinasi… dan ketika saatnya asistensi… maka untuk mencari tau versi kombinasi inputan yg dipakai… ia akan mendeteksi dari nilai-nilai awal yg disampaikan asisten..(note : yg mengetikkan inputan ialah praktikan)… jika program yg dia jalankan tdk sesuai dengan versi yg berlaku maka ia pura-pura salah ketik inputan sehingga terpaksa kudu diulang dan keluar program… saat itulah (dgn kecepatan click) dia ganti menjalankan versi kompilasi programnya yg sesuai dengan versi inputan yg berlaku. Tentunya praktikan kudu menghafalkan dgn baik semua versi baceman inputan milik dosen/asisten… . Bagi arek ITS… ahh itu hapalan sederhana..

kwkwkwwkw…

==============

#listing 2

uses crt;

var
nilai1,nilai2,hasil:integer
begin
Clrscr;
writeln(‘PROGRAM UNTUK MENCARI NILAI HASIL PENJUMLAHAN’);
writeln(‘——————————————————————–’);
write(‘Masukkan soal: ‘); read(nilai1); write(‘+’); read(nilai2); write(‘=’);
writeln(nilai1+nilai2);

repeat until keypressed;

write(‘TERIMA KASIH KAKAK ASISTEN ATAS BIMBINGANNYA’); delay(4000); ———> ditampilkan selama 4 detik, seringkali lebih…biar tambah terharu.
clrscr;
write(‘ASISTEN JANCUK ! ASUUUUU !!!! NGREPOTI AEEEEE,… AWAS KOEN !!!’); delay (5); —— ditampilkan selama 0.005 detik. kwkwkwk
clrscr;
write(‘SEMOGA TUHAN MEMBALAS KEBAIKAN KAKAK’);
repeat until keypressed;
end.

KETERANGAN listing 2 :
Saya lupa, siapa yg dulu pernah bikin hal semacam ini (huduk aku lho Bos)… kwkwkkww… yg pasti lebih dari 1 orang… atau lebih tepatnya, lebih dari 5 orang. Kwkwkwkwkkk…

Untungnya teman kita ini tidak lupa bahwa listingpun dilampirkan,.. maka tentu saja baris2 tertentu pada listing program dihapus dulu sebelum diprint out.

Kalau tidak.. walah… arep bunuh diri ta ? kwkwkwkwkw
Dan satu lagi, ini hanya berlaku jika program telah dicompile ke disk bukan memory..

Oke, listing yang berikutnya ini tidak perlu diragukan lagi akan nyata terjadinya…. kwkwkwkw
======

#listing 3.1

uses crt;

var
i,n,angka,terbesar:integer;
begin
Clrscr;
writeln(‘PROGRAM UNTUK MENCARI ANGKA TERBESAR’);
writeln(‘———————————————————’);
writeln(‘————– NAMA : SANI SANJAYA————– ‘);
writeln(‘—————–NIP : 2294100045—————– ‘); ——–> Sorry San lek Nip-mu salah,aku gak ngerti …(ternyata kemudian, sesuai info dari yg bersangkutan Nip yg bener 2294100039)
writeln(‘———————————————————’);
delay(4000);
clrscr;
Write(‘Masukkan jumlsh angka : ‘); readln(n); ———–> tulisan ‘jumlah’ sengaja (saya) buat salah… perhatikan nanti ! (*)
terbesar:=0;
For i:= 1 to n do
begin
write(‘Angka ke-’,i,’ : ‘); readln(angka);
if (angka>terbesar) then terbesar:=angka;
end;
write(‘Angka terbesar adalah : ‘terbesar);
repeat until keypressed;
end.

#listing 3.2

uses crt;

var
cacah,banyaknya,nomor,maksimal:integer; <—— bandingkan dgn listing 3.1 !
begin
Clrscr;
writeln(‘PROGRAM UNTUK MENCARI NOMOR TERBESAR’); <—— bandingkan dgn listing 3.1 !?
writeln(‘————————————’);
writeln(‘ NAMA : TEMANNYA SANI SANJAYA ‘); <—— bandingkan dgn listing 3.1 !
writeln(‘ NIP : 2294100xxx ‘);
writeln(‘————————————’);
delay(4000);
clrscr;
Write(‘Masukkan jumlsh nomor : ‘); readln(banyaknya); <—— (*) tulisan ‘jumlah’ yg salah…masih sama dgn di listing 3.1
terbesar:=0;
For cacah:= 1 to banyaknya do
begin
write(‘Nomor ke-’,cacah,’ : ‘); readln(nomor);
if (nomor>maksimal) then maksimal:=nomor;
end;
write(‘Nomor terbesar adalah : ‘maksimal);
repeat until keypressed;
end.

KETERANGAN listing 3.1 dan 3.2

Tak ada lagi yang bisa diucapkan, selain…..
“TERIMA KASIH SANI ATAS BACEMANNYA
SEMOGA TUHAN MEMBALAS KEBAIKAN SANI”

…. dan jangan khawatir San, ucapan terima kasih ini tidak terinspirasi oleh listing 2…. kwkwkwkwwk

Bye bye
ngaju