Tulisan Berjalan Pada Pascal

Jumat, 05 Maret 2010

Mari kita belajar dalam membuat tulisan berjalan pada pascal

Listing program

program Tulisan_Berjalan;

uses crt;

var

x,y:byte;

begin

clrscr;

x:=1;

y:=5;

repeat

delay(200);

gotoxy(x-1,y);write(' ');

gotoxy(x,y);write('Berjalan maju');

x:=x+1;

until(x>25);

x:=25;

y:=10;

repeat

delay(200);

gotoxy(x+15,y);write(' ');

gotoxy(x,y);write('Berjalan mundur');

x:=x-1;

until(x=1);

x:=1;

y:=12;

repeat

delay(200);

gotoxy(x,y-1);write(' ');

gotoxy(x,y);write('Berjalan kebawah');

y:=y+1;

until(y>25);

x:=20;

y:=25;

repeat

delay(200);

gotoxy(x,y+1);write(' ');

gotoxy(x,y);write('Berjalan keatas');

y:=y-1;

until(y<11);

readln;

end.

Moga program diatas dapat digunakan sebagai referensi didalam belajar pascal

Untuk saran dan kritikan mohon di isi di kotak komentar atau kotak pesan