Tulisan Berjalan Miring Pada Pascal

Kamis, 04 Maret 2010

Latihan membuat Tulisan berjalan miring pada pascal:

Listing programnya :

uses crt;

var

x,y:byte;

ulang:char;

begin

clrscr;

ulang:='y';

repeat

x:=1;

y:=1;

repeat

delay(100);

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

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

x:=x+1;

y:=y+1;

until(x>25);

writeln;

write('Apakah anda ingin mengulang [Y/T] ?');readln(ulang);

until(ulang='t')or(ulang='T');

end.

Selamat mencoba