x jalan - jalan

inget gg waktu dulu kita waktu kecil yang suka main ular di game bot ?
hehhehhee...

iya...
ini adalah salah satu contoh programnya...
coba yach...

program x_jalan_jalan;
uses crt;
var
x: byte;
begin
clrscr;
while x<100 do
begin
gotoxy (1+x,10);
write (' ');
wrte ('x');
delay (5000);
x:=x+1;
end;
end.


penjelasan :

program x_jalan_jalan; <-- ini adalah nama programnya... (pakai underscore sebagai spasi)
uses crt; <-- ini tergantung menggunakan pascal tipe apa jika yang windows maka uses wincrt
var <-- membentuk variabel
x : byte; <-- ini adalah variabel "x" bertipe data byte !
begin <-- memulai statement program
clrscr <-- clear screen ketika program ada pengulangan . jika tidak pakai ini, maka hasil sebelumnya akan keluar .
while x < 100 do <-- arti statement : selagi x kurang dari 100 lakukan !
begin <-- mulai statement
gotoxy (1+x,10); <-- artinya pergi ke cursor dengan baris 1+x dan y = 10
write (' '); <-- artinya mencetak karakter kosong, lalu
write ('x'); <-- artinya mencetak huruf x
delay (5000) <-- ini adalah pertundaanya . dimana diberi 5000 milisecond alias 5 detik kawan ketika delay terlewat maka,
x:=x+1; <-- variabel x ditambah satu sampai statement " while do " selesai...
end; <-- akhir dari statement (tidak akan selesai sampai program utama selesai) .
end. <-- akhir dari program .

phew ! itulah penjelasannya...

dan download contoh program cupunya disini...

http://www.4shared.com/get/85017969/50c783c3/_2__JALAN_JAlan_menggunakan_while-do.html

ok thanks...

hmm... keren juga, tapi kenapa mesti write ('x');

klo bgitu ntar bukan ulet dong tapi huruf x, bisa juga kan write ('---');

ini kyanya blum selesei deh, ni baru animasi huruf x berjalan saja ya kk ???

klo game uler, kayanya codingnya lebih panjang lagi...

iya kaka benar...
sebenernya bisa lebih panjang lagi...
tapi, ini adalah sebagian algoritma sebagian dari gane ular tersebut...

dan pada game ular, ada function readkey
agar si pemain bisa membelokan ular tersebut...
bweheheheheee....