English French German Spain Italian Dutch Russian Portuguese Japanese Korean

Selamat Datang ..... di Blog TIK Pak Budi...!!! Mari .... kita saling berbagi ilmu yang kita miliki....!! Semoga Alloh selalu menuntun jalan kita...! Amin...



Friday, April 22, 2011

Membuat Tulisan Berjalan Miring Pada Pascal

0


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 !!!

0 comments:

Post a Comment

 
Design by ThemeShift | Bloggerized by Lasantha - Free Blogger Templates | Best Web Hosting