ALGORITMA PEMBENTUK PISCES 2

Posted: March 6, 2011 in Pascal

uses graph,crt;
procedure init();
var gd, gm : integer;
begin
gm:=detect; gd:=0;
InitGraph(gd,gm,”);
if GraphResult <> grOk then
begin
Writeln(‘Graph driver ‘,gd,’ graph mode ‘,gm,’ not supported’);
Halt(1);
end;
end;
procedure destroy();
begin
clrscr;
closegraph;
end;
procedure drawBressLine(xa,ya,xb,yb,c:integer);
var dx,dy,x,y,xEnd,p,c1,c2:integer;
begin
dx:= (xb-xa);
dy:= (yb-ya);
p:=2*dy-dx;
c1 := 2*dy;
c2 := 2*(dy-dx);
if xa > xb then
begin
x:=xb;
y:=yb;
xEnd:=xa;
end
else
begin
x:=xa;
y:=ya;
xEnd:=xb;
end;
putPixel(x,round(y),c);
while x < xEnd do
begin
inc(x);
if p < 0 then
p:=p+c1
else
begin
inc(y);
p:=p+c2;
end;
putPixel(x,round(y),c);
end;
end;
begin
init;
drawBressLine(100,50,100,50,white);
drawBressLine(90,60,90,60,white);
drawBressLine(103,75,103,75,white);
drawBressLine(80,115,80,115,white);
drawBressLine(75,125,75,125,white);
drawBressLine(55,150,55,150,white);
drawBressLine(45,165,45,165,white);
drawBressLine(70,160,70,160,white);
drawBressLine(80,155,80,155,white);
drawBressLine(95,150,95,150,white);
drawBressLine(100,148,100,148,white);
drawBressLine(120,150,120,150,white);
drawBressLine(200,145,200,145,white);
drawBressLine(220,155,220,155,white);
drawBressLine(225,170,225,110,white);
drawBressLine(240,169,240,169,white);
drawBressLine(250,160,250,160,white);
drawBressLine(245,155,245,155,white);
drawBressLine(240,150,240,150,white);
readkey;
destroy;
end.

JAWABAN QUIZ PARAMPAA 2

Posted: March 1, 2011 in Games
101 klik aja tu, PASTI DA TW
102 TRICK : KLik kanan. dan anda akan tw.
103 jawaban ada di pertanyaannya, WHAT is wrong
104 ada 4 kesalahan, EYD. klik seterah dech.
105 urutan tatasurya… planet. abis Neptunus – pluto
106 pelan2 aja nyarinya. ntar ketemu saklar (slalu pojok)
107 Cluenya ada di Indonesia, huruf capital Indonesia
108 tekan angka 4, karna bill=tagihan. 4=dolar.
109 pilih M
110 ada hubungan sama v for vendetta. klik V di LEVEL

111 tanya google, dan jwbnya adalah Zippo
112 klik perintah “Ke Pojok”
113 bahasa inggrisnya belut. cari di layar (drag E di LEVEL trz taruh di daerah item)
114 Automatic Fingerprint Integrated System.

tekan nada A dan F#
115 yang menang sama di hompimpa apa
116 bhs inggrisnya orang jalan, cari di logo. (logo Sony Erricson “Walkman “)
117 cari yang beda, yang muter kebalik
118 masuk mustova.com, disini cari kata outro, ye5x=yeyeyeyeye
119 Hitung jumlah burung yang terbang
120 acak ajah, hehe.. klo gag slah yang ZB-YB-BB-GB
121 kedua
122 ??????
123 klik yang ditunjuk si wayang
124 klik + nya, jadi 545+5=550
125 kaki ayam, levelnya juga
126 klik bulan
127 Glutomat…. klik situ. cari aja.
128 yang egag kedip, itulah yang palsu
129 buka parampaa.net/rorrim.swf trz blok smw. copy dan paste. asooooiiiyyyyy
130 album muse AB – solution, tekan nada A dan B. gambar diatas.
131 tunggu aja. perhatikan kata INI. sekilas nanti muncul warnanya.
132 DANAU….
133 menular lewat HUMAN atau MANUSIA
134 pelajaran ni, liberty dibangun di perancis, dan dihadiahkan kpd amerika, sbgai hdiah.
135 diartikan ke Indo.. aku bukanlah “I”, aku disebelah “U” siapkah aq. (leat keyboard) tekan Y
136 susun. lalu jawabanya jga dibalik. …..namtab….
137 buka parampaa.net/rorrim.swf lagi.. trus di zoooooooom truuus smp keliatan ada tulisan tersembunyii.. (enter 13x)

Taumata

138 : kira2 kyk gmbar sebelah
139 : buka plurk masova di plurk.com/ova cari jwbnya Spread the smile.
Space ten times!! (spasi 10x)
140 : ruwet.. pkoknya ni —- 888-423-4200 —-
141 : buka blognya mustova di www.mustova.com… cari wajib kunjung No.24,
klik, trus liat pagenya. jawabanya adalah 2 kata yg paling
banyak muncul di page itu… (tulis jgn pke spasi) —pecasndahe
142 : yang gmbar bola itu ya? klo ga salah 12 segilima
143 : hijau-kuning-merah-biru-hijau-kuning-ungu
144 : pilih jawban yg salah. dan lihatlah.
145 : ketik “145”, yang kedua “:'(“, “i still love you baby”
146 : \ / ketik di keyboard

147: baris satu nama band (skarang udah ganti dan jadi terkenal,
baris dua judul lagu, baris tiga liriknya translate dulu,
ayo lakukan sesuai kata itu! KLIK TAB

~ kalau dijelaskan, setelah Di english kan. “rocket baby doll” trnyata, nama Band MUSE sebelum MUSE terbentuk. lalu, “Citizen erased” salah satu lagunya. liriknya “Teach us……” lanjutannya “to cheat”. kita dilarang untuk curang dengan menekan ( ctrl dan TAB ). diantara 2 itu lah, ternyata jawabanya adalah KLIK TAB

148: turutin aja perintahnya, ketik password. klik go mpe 3x

149: kota palu di sulawesi
Klik untuk Perbesar
150: (bahsa isyarat) hasilnya
t i g a t
a m b a h
e m p a t
“tujuh”

151: klik bola pada saat mantul tinggi
152: kalimat pertama ada yang harus ditambahin, cari noh di screen. angka 2 di drag.
153: itu simbol-simbol buat planet-planet di tata surya kita, lambang venus

154: 5 mb
155: tembok cina
156: Tergantung pertanuaa
157: pake kalkulator lebih mudah… jawabanya adalah = 524287
158: aye-aye
159: ada kata-kata tersembunyi di bawah (sampe kluar kotak) “HARUS ONLINE

Copy – Paste
yoi, tentu saja
Klik untuk perbesar
160: 160,ada kalimat rahasia disitu
conjecture and the __________ of building elements
[googling]
[hasil = falsification]

161: ikutin
162: BUKAN SAMA DENGAN, klik sama dengan
163: ikutin aja.
164: 40
165: kanan bawah kiri,, tekan aja

166: huruf yang warnanya sama, HIT COUNTER.link hit counter di page parampaa. seperti ini.
tekan spasi enter enter spasi
Klik untuk perbesar

167: yah itung yang ke jakarta,, 13
168: saturnus
169: pencet 169, pada level 169
170: saya ketik parampaa. lolos tapi berkurang 1 hati.
171: di drag, klik makhluk hijau itu
172: drag merahnya sampai full
173: klik HATI
174: YESS !! jika ingin melihat jawabanya, lihatlah monitor anda dari jarak jauh.
175: 1) PASAL 24 yang 3a. 2) tetapi di no.4. 3) di maksud 3b
176: klik mata 11x

177: #000000= HITAM      #FFFF00=KUNING   #009900=HIJAU
#FF6600=ORANGE  #FFFFFF= PUTIH      #660066=UNGU
#0000FF=BIRU                                             #FF0000=MERAH
MERAH BIRU KUNING MERAH HIJAU
178: lagi koprol, cari koprol masova…. “+” tekan shift  =
179: koin 500, bunga yg da di Rp. 500, melati= Jasminum sambac
180: nama band ! artic monkey origin = Sheffield
181:  6
182: system eror, ikutin aja perintahnya. close aja truss.
183: telor
184: band gigi album ke3 lagu ke 3 = Melayang
185: Walter Elias Disney phobia TIKUS
186: nama ayam tanpa kepala. hasil dari googling = Mike
187: pengetahuan umum. hasil dari googling = selandia baru
188: clue nya “tittle” titik nya i
189: a, e, i, o, u, h, k, l, m, n, p, w, and ` itu adalah huruf hawai
190: catur jepang.. igo=190

191: 7
192: tarik garis smpe membentuk huruf, kl udah cari hurufnya di page parampaa
arahin kursor ke situ terus ikutin aja perintahnya.. inget” level 177
warna magenta.. code hexnya = #FF00FF

193 : blok, klik kanan copy, buka notepad, paste, replace all 0 dengan _ hasilnya akan

DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD
D____________________________________________________________________________D
D______________________________DDDD__________________________________________D
D___DDDDDDDDDDDDDDD_________.DDDDDDDDD________.DDDDDDDD__DDDDDDDDDDDDDDDDDD__D
D______DDD7___.DDDDD________DDD_.__DDDI_______.__DDDD____DD=____DDD8____DDD__D
D______DDD7_____.DDD_______.DDD____=DDD__________DDDD____DD=____DDD_____DDD__D
D______DDD7______DDD________DDD:__,DDD___________DDDD____DD=____DDD_____DDD__D
D______DDD7_____.DDD_________DDDDDDDD____________DDDD____DD=____DDD_____DDD__D
D______DDDI___=DDDD~________DDDDDDD______________DDDD___________DDD__________D
D______DDDDDDDDDDD,_______DDDD$DDDD_____DDDDD____DDDD___________DDD__________D
D______DDDI__._DDDDD____.DDDD.__DDDD____DDDDD____DDDD___________DDD__________D
D______DDD7______,DDD___DDDD_____DDDD__DDD_______DDDD___________DDD__________D
D______DDD7_______DDDD__DDDD______IDDD.DDD_______DDDD___________DDD__________D
D______DDD7_______DDDD__DDDD.______?DDDDD________DDDD___________DDD__________D
D______DDD7______DDDD____DDDD.______DDDD8________DDDD___________DDD__________D
D___DDDDDDDDDDDDDDDD______DDDDDD_DDDDDDDDDDDD_.DDDDDDDD______DDDDDDDDD=______D
D___DDDDDDDDDDDDDD.._______+DDDDDDDDD__DDDDDD_.DDDDDDDD______DDDDDDDDD=______D
D____________________________________________________________________________D
D____________________________________________________________________________D
DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD
—bandit—

level 194 : jangan sampe nubruk,, TRICK klik kanan mouse dan tunggu
level 195 : tinggal temuin dan klik. –kotak kado– (lihat kata pada topi ultah, ingat2 saja)
level 196 : a. lihat kiri bawah, coba googling tuh kata
b. setelah tahu itu apa, coba cari salah satu bukunya (Dancing Men)
c. sesuaikan kode di parampaa http://www.purplehell.com/riddletools/danceman.htm
belum ketemu cara mecahin kodenya,
d. ternyata harus dibalik agar kode terpecahkan (ATIK ARAGEN)
e. jawablah kode itu juga terbalik (NEGARA KITA)
f. indonesia dibalik “aisenodni”
Level 197 : coba buka Ms Word . wingdings. coba translate. jawabanya ternyata huruf besar VWXYZ.
ngisi jawabnna jgn lupa make SHIFT ! tekan shift+ VWXYZ
Level 198 : KATA YANG DIGARIS BAWAH, dan yang dicoret..
endast = kepala ( Dalam bahasa jawa) klik semua kepala
Level 199 : Terjemahkan kata-katanya perbaris tanpa spasi di http://isizulu.net
lalu cari level yang berhubungan dengan hasil terjemahan itu
–ucrut—- di level 195 topi ultah.
Level 200 : Cari benda bertuliskan 200 dengan berat 2,38 gram, ini logam loh,
nbentuk lingkaran. Rp. 200 logam. gambar jalak bali = Leucopsar rothschildi

level 201 : Clue: lihat lingkaran di atas angkanya aja,
disitu kan ad lingkaran yg ilank,,,
nah yg pertama 1 lingkaran, dst
klo gitu yg kedua ad brp lingkaran?
jawaban adl angka. angka 8 tekan terus

level 202 :
-temukan kalimat rahasia.
klik kanan select all, copy. dan paste di notepad akan seperti ni
“youjustfoundthehiddenmessagenowpleasefindthechocolateatfb94853”
– buka page Fb parampaa. di bagian foto. carilah gambar coklat
di bagian foto dan di album Product
– kalau udah ada clue

mas, go, favorite, chirp, vanilla, ‘s,parampaa, crunch, ova, yummy

diartikan
harus-pergi-favorite(bag favo)-berkicau(twitter)- dan bla2 bla2
Twitter Masova bagian favorit
– carilah jawabannya, saya kasi gambar na nih

klik klo kurang besar dan jawabannya yang di kotak.i (jawab :helmezet)
LEVEL 203 !!!!
1. pertama kali perhatikanlah peta apa itu…. coba lihat nama daerah2 nya, ada gondor dan mordor
2. lalu terjemahkan kata di pojok kiri. font itu bisa di download disini
http://www.fontspace.com/dan-smiths-fantasy-fonts/anglosaxon-runes

atau lihat ini aja

3. setelah berhasil…… coba cari di google dimana tempat yang dimaksud.
– The place where bilbo baggins live –
4. bagi yang ga tw artinnya : Tempat dimana bilbo baggins tinggal
5. kalau cari di google, nama tempat itu adalah SHIRE….
6. cocokan peta lord of the ring dengan soal parampaa 203

7. disitulah jawabannya….( gampang bgt pdhal soal ini)
Klik kalo kurang besar
SELAMAT PARAMPAA 2 TELAH BERHASIL ANDA TAKLUKAN

PASSWORD
Level 123 : arjuna
Level 130 : flyingmen
Level 140 : tumpattu
Level 151 : tumatu
Level 161 : 161161
Level 171 : 117711
Level 179 : 179179
Level 187 : 118877

JAWABAN QUIZ PARAMPAA

Posted: March 1, 2011 in Games

level 1 : Klik kata “mulai”

level 2 : Pilih Jawaban “A”

level 3 : Pilih lingkaran di atas huruf “i”

level 4 : Pilih Jawaban “AY !!”

level 5 : Pilih Jawaban “B”

level 6 : Temukan kata berwarna “hijau” di antara kata berwarna merah

level 7 : Pilih Jawaban “Jali”

level 8 : Pilih “?” yang mirip dengan soal

level 9 : Ingat kombinasi warna yang ada karena bakal terus dipake, lalu klik “ingat”

level 10 : Pilih Jawaban “…hidup bercermin bangkai”

level 11 : Cari kata “mati” dalam matematika lalu klik

level 12 : Pilih Jawaban “10?

level 13 : Klik “13? pada tulisan level 13

level 14 : Masukkan kombinasi warna “merah-biru-kuning-merah-hijau”

level 15 : Geser mouse keluar layar, maka kepala kucing akan tertunduk, lalu klik “space” pada keyboard

level 16 : Lari ke “ujung kanan atas”

level 17 : “Gerakin cicaknya” sampai tujuan , tapi jangan sentuh warna lain

level 18 : Tulis kata “PANDA”

level 19 : Pilih jawaban “21?

level 20 : Pilih jawaban “D”

level 21 : Pilih jawaban “E”

level 22 : Potong kabel lebar berwarna “merah” di time counter

level 23 : Klik “23? di baris ke-3, ke-3 dr kiri

level 24 : Pilih latar warna “merah-biru-kuning-merah-hijau”

level 25 : Klik “lingkaran orange”, trus klo mau ke lingkaran satunya lg jgn lewat area permainan

level 26 : Klik “persegi panjang yang kiri bawah”

level 27 : Di bawah 3 lambang hati ada seekor “cicak”, tinggal di klik aja

level 28 : Cuma butuh gerakin cursor atas bawah

level 29 : Klo masih baru di level ini susun aja dulu gambarnya, trus ikutin tanda panah yang ke “bulatan”, klik “bulatannya”

level 30 : Pilih jawaban “20?

level 31 : Klik kiri “lingkaran orange” sebelah kiri, drag (jgn dilepasin) ke “lingkaran orange” sebelah kanan. Ada cara lain, lelet

level 32 : Pilih jawaban “TDAJ”

level 33 : Pilih jawaban “100001?

level 34 : Klik 3 “lambang hati” di pojok kanan atas

level 35 : Pencet tombol berwarna “merah-biru-kuning-merah-hijau”

level 36 : Drag tulisan “level 36?, dibelakangnya ada tombol

level 37 : Pilih jawaban “zibba”

level 38 : Tembak kepala “cowo”

level 39 : Pilih jawaban “level 39?

level 40 : Tekan tanda”->” di keyboard

level 41 : Klik tanda “!”

level 42 : “Tunggu” adengan oonnya selesai, jgn klik apa2

level 43 : Klik “NTB (Pulau Lombok)”

level 44 : Klik “1? pada soal 1=5

level 45 : Klik “45? pada tulisan level 45

level 46 : Pianonya memiliki urutan nada C D E F G A B, trus klik nada piano hingga membentuk kata “E G G”

level 47 : Tembak kepala “cowo”

level 48 : Tulis jawaban “11?

level 49 : Klik tulisan “run” sampai kepiting kabur ke kanan

level 50 : Tekan angka “1? di keyboard

level 51 : Lolosin kuncinya, jgn kena area berwarna “hitam”

level 52 : Drag tanda (-) ke tulisan level 52, jadinya “level 5-2?, trus klik tulisannya

level 53 : Tekan huruf “S” di keyboard

level 54 : Pilih jawaban “5?

level 55 : Ketik “anini” di keyboard

level 56 : Geser kata “bulan”, di belakangnya ada jawaban

level 57 : Geser bolak-balik mouse di bawah tanda “!!”

level 58 : Pilih warna “kuning”

level 59 : Pilih warna “kuning-hijau-orange-ungu-hijau-merah”

level 60 : Klik huruf “B” “O” “N” “O”

level 61 : Tekan piano dengan menulis “C A G E”

level 62 : Ga usah ngapa2in

level 63 : Klik tulisan “eve” pada tulisan level 62

level 64 : Pilih jawaban “parampaa”

level 65 : Pilih “Mr. Krab-Smurf-The Simpsons-Mr. Krab-Parampaa”

level 66 : Ketik “one” pada keyboard

level 67 : Klik tanda “.”, lalu klik “matahari”, lalu klik “pohon”

level 68 : Tekan “F1 dan F4? di bagian atas keyboard

level 69 : Klik huruf “A” pada kata heart

level 70 : Pilih jawaban “10?

level 71 : Tahan terus menerus “shift-6? sampe doraemon menghilang

level 72 : Tangkap angka “2?, drag ke samping angka 7

level 73 : Urutan storage awalnya 1-2-3-4-5, ubah ke 2-5-3-4-1

level 74 : Pilih “lingkaran-besar-kuning-tersenyum”

level 75 : Tembak kata “HER”

level 76 : Klik kanan layar, trus klik kiri, biar mousenya kelihatan, tekan bagian tengah “O” pada kata mouse, telusuri lalu klik

level 77 : Drag tulisan “mouse” ke tombol hijau, drag lagi ke persegi di sebelah kiri, klik perseginya

level 78 : Klik “jendela di villa” pas lampunya nyala

level 79 : Tulis “Try Again”

level 80 : Tulis “The Cranberries”

level 81 : Pilih jawaban “13?

level 82 : Pilih “OK”, drag bomnya, klik tulisan yang tertutup bom

level 83 : Tunggu hingga detik “ke-3?, akan ada tulisan “S7OP”, klik tulisan S7OP-nya

level 84 : Ketik “?” pada keyboard

level 85 : Ketik “level 85?, ketik “”, ketik “you’re welcome”

level 86 : Klik “bagian tengah lingkaran bagian bawah pada angka 8? tulisan “level 86?

level 87 : “Tunggu kuncinya masuk” dulu, lalu tekan “enter”

level 88 : Tekan “F8?, trus pilih “safe mode”

level 89 : Klik buku berwarna “Biru-Ungu-Kuning-Ungu”

level 90 : Pilih lambang “omega (kaya’ tapal kuda)” dan “69?

level 91 : Cuma butuh “kelincahan tangan dan kesabaran”

level 92 : Klik warna “hijau-merah-kuning-biru-merah”

level 93 : Hitung dengan cepat jumlah bola berwarna “merah”

level 94 : Klik “Budi”

level 95 : Tunggu sampai “latarnya warna hijau”, trus klik “lanjut”

level 96 : Klik “mata, bintik tangan, duri di kepala, latar merah, rumput”

level 97 : Klik “tombol merah”

level 98 : Butuh kecepatan tangan dan koordinasi mata yg baik, lingkaran terkecil ada di antara “level & 98?

level 99 : Gan karena menghargai kehebatan pembuatnya, gw ga langsung bocorin, “masuk aja twitternya (twitter.com/masova), liat arah jam 3? klik “click” orang yang ke 3

level 100: langsung aja ketik 91483

dan berikut password nya :

level 11 : eleven
level 21 : twenty1
level 31 : thirty1
level 41 : fourty1
level 52 : fifty2
level 67 : sunset
level 71 : dorayaki
level 80 : linger
level 90 : gomugomu

CONTOH PROGRAM PASCAL

Posted: March 1, 2011 in Pascal

program pengurangan;
var
x,y,z:integer;
begin
x:=5;
y:=78;
z:=x-y;
writeln(‘Hasil pengurangan’,x,’dan’,y,’adalah’,z);
readln;
end.

program perkalian;
var
x,y,z:integer;
begin
x:=5;
y:=78;
z:=x*y;
writeln(‘Hasil perkalian’,x,’dan’,y,’adalah’,z);
readln;
end.

program tipe_char;
var karakter_angka:char;
huruf:char;
begin
karakter_angka:=’I’;
huruf:=’G’;
writeln(huruf);
readln;
end.

program baca;
var A:real;
begin
write(‘Masukan niali A:’);readln(A);
Writeln(‘Nilai yg anda masukan adalah:’,A);
readln;
end.

program luas_lingkaran;
var
r,L:real;
const
phi=3.14;
begin
write(‘masukan jari-jari= ‘);readln(r);
L:=phi*sqr(r);
writeln(‘Luas lingkaran=’,L);
readln;
end.

program sejajar;
begin
writeln(‘nama’,   ‘|’:10,’agama’,  ‘|’:20);
writeln(‘cakep’,  ‘|’:10,’islam’,  ‘|’:20);
writeln(‘ganteng’,’|’:10,’kristen’,’|’:20);
readln;
end.

program penambahan;
var
x,y,z : imteger;
begin
x:=5;
y:=78;
z:=x+y;
writeln(‘Hasil penjumlah’ ,x,’ dan ‘,y,’adalah’ ,z);
readln
end.

program nilai;
var A : imteger;
begin
write(‘masukan nilai A:’);readln(A);
writeln(‘Nilai yg anda masukan adalah:’,A);
readln;
end.

program perkalian_nilai;
var A,B,Z : integer;
begin
write(‘masukan nilai A:’);readln(A);
write(‘masukan nilai B:’);readln(B);
Z:=A*B;
writeln(‘Hasil perkalian A dan B adalah:’,Z);
readln;
end.

program ganjil_genap;
var bilangan : integer;
begin
write(‘masukan angka’):readln(bilangan);
if(bilangan mod 2 = 0)then
writeln(bilangan,’adalah genap’)
else
writeln(bilangan,’adalah ganjil’);
readln;
end.

program kondisi;
var nile : integer;
begin
write(‘masukan nilai:’);readln(nile);
if (nile>80) then write(‘A’)
else if (nile>60) then write(‘B’)
else write(‘E’)
readln;
end.

program nilai_case;
var nile : integer;
begin
write(‘masukan nilai:’);readln(nile);
case nile of
0..25  : writeln(‘Nilai = E’);
26..39 : writeln(‘Nilai = D’);
40..64 : writeln(‘Nilai = C’);
65..79 : writeln(‘Nilai = B’);
80..100: writeln(‘Nilai = A’);
else
writeln(‘Tidak ada nilai yg d maksud’);
end;
readln;
end.

program vokal_konsonan;
var abc : char ;
begin
write (‘masukan huruf’); readln(abc);
if (abc:’a’); then
writeln(abc,’adalah huruf vokal’);
else if (abc:’i’); then
writeln(abc,’adalah huruf vokal’);
else if (abc:’u’); then
writeln(abc,’adalah huruf vokal’);
else if (abc:’e’); then
writeln(abc,’adalah huruf vokal’);
else if (abc:’o’); then
writeln(abc,’adalah huruf vokal’);
else
writeln(abc, ‘adalah huruf konsonan’);
readln;
end.

program ulangterus;
begin
repeat
write(‘pencet no 1’); readln(masukan);
if (masukan<>1)then
writeln(‘wwwweeeeeee ngeyel!!!’);
until(masukan=1);
writeln(‘baguuzzz!!!’);
Readln;
End.

program pengulangan;
var x, y, jumlah : integer;
k : char;
begin
repeat
write(‘masukan nilai x ‘); readln(x);
write(‘masukan nilai y ‘); readln(y);
jumlah=x+y;
writeln(jumlah)
write(‘lagi..? (ya/tidak)’); readln(k);
if (k=y)then
writeln(‘wokey’);
until(k<>y);
writeln(‘bye…’);
Readln;
End.

Program KOMBINASI;
uses crt;
var f1,f2,f3:longint;
n,r,delta:integer;
c: real;
Procedure facto( n:integer; var f:longint);
var i:integer;
begin
f:=1;
for i:=1 to n do
f:= f * i;
end;
{======================PROGRAM UTAMA=======================}
Begin
clrscr;
gotoxy(12,3);
write(‘Kita akan menghitung nilai kombinasi dari suatu angka’);
gotoxy(19,4);
writeln(‘Yang mempunyai rumus : rCn = n!/(r!(n-r)!)’);
gotoxy(20,5);
writeln(‘Nilai r harus lebih kecil/sama dengan n’);
writeln;gotoxy(28,6);
write(‘Masukkan nilai n :’,’ ‘);readln(n);
writeln;gotoxy(28,8);
write(‘Masukkan nilai r :’,’ ‘);readln(r);
facto(n,f1);
facto(r,f2);
delta:=(n-r);
facto(delta,f3);
c:= f1/(f2*f3);gotoxy(30,10);
write(‘Hasilnya :’,’ ‘,c:2:0);
readln;
end.

program fakto;
uses crt;
var
procedure facto(var n : integer);
var i : integer
begin
for i = 1 to n do
begin
if (n mod i = 0)then
write(i);
end;
end;
begin
write(‘masukan nilai x :’,’ ‘); readln(x);
facto(x);
readln;
end.

PROGRAM FAKTORIAL;
Uses crt ;
Var i , N , Hsl : integer
Function Fakto(N:integer):integer ;
Var Fak: integer ;
Begin
if (N=0) or (N=1) then
Fakto:= 1
else
Fakto:= N*Fakto(N-1) ;
end;
Begin
clrscr;
write(‘Faktorial berapa yang anda ingin hitung : ‘) ;
readln(N) ;
writeln(‘Hasil perhitungan : ‘,Fakto(N)) ;
readln ;
end.

program larik;
uses crt;
var N : Array [1..6] of integer;
begin
clrscr;
write (‘Angka1 : ‘); readln(N[1]);
write (‘Angka2 : ‘); readln(N[2]);
N[3] := N[1] + N[2];
N[4] := N[1] * N[2];
N[5] := N[1] div N[2];
N[6] := N[1] – N[2];
writeln(‘hasil penjumlahan : ‘,N[3]);
writeln(‘hasil perkalian : ‘,N[4]);
writeln(‘hasil pembagian : ‘,N[5]);
writeln(‘hasil pengurangan : ‘,N[6]);
readln;
end.

program rata;
uses crt;
var  N : Array [1..6] of integer;
hasil : real;
i, jml : integer;
begin
clrscr;
for i := 1 to 5 do
begin
write(‘angka ‘,i,’ :’); readln(N[i]);
end;
jml := 0;
for i := 1 to 5 do
begin
jml := jml + N[i];
end;
hasil := jml / 5;
writeln(‘rata2 dari 5 angka tersebut adalah : ‘,hasil);
readln;
end.

program gaji;
Uses crt;
Var nama:string[20];jabatan:string;
Tunj,ppn,gajibersih, total:real;
nilai:string;
Begin
Clrscr;
Write(‘Nama Karyawan     : ‘); readln(nama);
Write(‘Masukkan Jabatan  : ‘); readln(jabatan);
If  (jabatan=’Direktur’) or (jabatan=’direktur’) then
Begin
Nilai := ‘A’;
End
Else If  (jabatan=’Manager’) or (jabatan=’manager’) then
Begin
Nilai := ‘B’;
End
Else If  (jabatan=’Karyawan’) or (jabatan=’karyawan’) then
Begin
Nilai := ‘C’;
End
Else
Begin
Nilai := ‘D’;
End;
Writeln(‘Gaji Bersih      : Rp.’,Nilai);
Readln;
End.

program desitobin;
uses crt;
var
biner : array[1..8] of integer;
i,des,a,b,t:integer;
begin
clrscr;
t:=9;
write(‘masukan desimal : ‘);readln(des);
repeat
b:=des mod 2;
t:=t-1;
biner[t]:=b;
a:=des div 2;
des:=a;
until des = 0;
write(‘binernya adalah : ‘);
for i := 1 to 8 do
begin
write(biner[i]);
delay(100);
end;
readln;
end.

program pointer;
uses wincrt;
var
a, b, c : ^integer;
begin
new(a); new(b); new(c);
a^:=30; b^:=20;
c^:=a^+b^;
write(c^);
readln;
end.

program rekot;
type data = record
nama : String;
umur : integer;
jk   : char;
end;
var mhs : data;
begin
write(‘Masukan Nama          : ‘); readln(mhs.nama);
write(‘Masukan Umur          : ‘); readln(mhs.umur);
write(‘Masukan Jenis Kelamin : ‘); readln(mhs.jk);
writeln;
//menampilkan
writeln(‘nama : ‘, mhs.nama);
writeln(‘umur : ‘, mhs.umur);
writeln(‘jenis kelamin : ‘, mhs.jk);
readln;
end.

program rekotpoin;
type Pmhs = ^Tmhs;
Tmhs = record
nama : String;
umur : integer;
jk   : char;
end;
var m : Pmhs;
begin
new(m);
write(‘Masukan Nama          : ‘); readln(m^.nama);
write(‘Masukan Umur          : ‘); readln(m^.umur);
write(‘Masukan Jenis Kelamin : ‘); readln(m^.jk);
writeln;
//menampilkan
writeln(‘nama : ‘, m^.nama);
writeln(‘umur : ‘, m^.umur);
writeln(‘jenis kelamin : ‘, m^.jk);
dispose(m);
readln;
end.

SEKIAN DULU DAN SELAMAT DICOBA!!🙂

ALGORITMA PEMBENTUK PISCES

Posted: March 1, 2011 in Pascal

uses graph,crt;
procedure init();
var gd, gm : integer;
begin
gm:=detect; gd:=0;
InitGraph(gd,gm,”);
if GraphResult <> grOk then
begin
Writeln(‘Graph driver ‘,gd,’ graph mode ‘,gm,’ not supported’);
Halt(1);
end;
end;
procedure destroy();
begin
clrscr;
closegraph;
end;
procedure drawLine(xstart,ystart,xend,yend,c:integer);
var
step,k:integer;
dx,dy:real;
x_inc,y_inc,x,y:real;
begin
if(xstart <> xend) or (ystart <> yend) then
begin
dx:=xend-xstart;
dy:=yend-ystart;
x:=xstart;
y:=ystart;
if abs(dx) > abs(dy) then
step:=round(abs(dx))
else
step:=round(abs(dy));
x_inc:=dx/step;
y_inc:=dy/step;
putPixel(round(x),round(y),c);
for k:=1 to step do
begin
x:=x+x_inc;
y:=y+y_inc;
putPixel(round(x),round(y),c);
end;
end;
end;
begin
init;
drawLine(100,50,90,60,white);
drawLine(90,60,103,75,white);
drawLine(103,75,100,50,white);
drawLine(103,75,80,115,white);
drawLine(80,115,75,125,white);
drawLine(75,125,55,150,white);
drawLine(55,150,45,165,white);
drawLine(45,165,70,160,white);
drawLine(70,160,80,155,white);
drawLine(80,155,95,150,white);
drawLine(95,150,100,148,white);
drawLine(100,148,120,150,white);
drawLine(120,150,200,145,white);
drawLine(200,145,220,155,white);
drawLine(220,155,225,170,white);
drawLine(225,170,240,169,white);
drawLine(240,169,250,160,white);
drawLine(250,160,245,155,white);
drawLine(245,155,240,150,white);
drawLine(240,150,220,155,white);
readkey;
destroy;
end.

ALGORITMA PEMBENTUK BINTANG

Posted: February 28, 2011 in Pascal

uses graph,crt;
procedure init();
var gd, gm : integer;
begin
gm:=detect; gd:=0;
InitGraph(gd,gm,”);
if GraphResult <> grOk then
begin
Writeln(‘Graph driver ‘,gd,’ graph mode ‘,gm,’ not supported’);
Halt(1);
end;
end;
procedure destroy();
begin
closegraph;
end;
procedure drawLine(xstart,ystart,xend,yend,c:integer);
var
step,k:integer;
dx,dy:real;
x_inc,y_inc,x,y:real;
begin
if(xstart <> xend) or (ystart <> yend) then
begin
dx:=xend-xstart;
dy:=yend-ystart;
x:=xstart;
y:=ystart;
if abs(dx) > abs(dy) then
step:=round(abs(dx))
else
step:=round(abs(dy));
x_inc:=dx/step;
y_inc:=dy/step;
putPixel(round(x),round(y),c);
for k:=1 to step do
begin
x:=x+x_inc;
y:=y+y_inc;
putPixel(round(x),round(y),c);
end;
end;
end;
begin
init;
drawLine(100,50,112,88,white);
drawLine(112,88,150,88,blue);
drawLine(150,88,119,112,yellow);
drawLine(119,112,131,150,red);
drawLine(131,150,100,126,green);
drawLine(100,126,69,150,green);
drawLine(69,150,81,112,red);
drawLine(81,112,50,88,yellow);
drawLine(50,88,88,88,blue);
drawLine(88,88,100,50,white);
readkey;
destroy;
end.

MAHASISWA UGM GO-BLOG

Posted: February 23, 2011 in Uncategorized

NAMA: CAHYO GEMILANG

NIM: 09/287877/DPA/03338

Jurusan: Matematika dan Ilmu Pengetahuan Alam

Program Studi: Komputer dan Sistem Informasi

Kontak Email: chazter_dchat@yahoo.com / cahyogemilang@mail.ugm.ac.id

Kontak Lain: