Kamis, 03 Januari 2013

PROGRAM ANIMASI HURUF JATUH

uses crt ;
var kalimat,kopian,x : string ;
     i,j : integer ;
begin
begin
clrscr;
writeln ( 'masukkan kata atau kalimat' );
readln ( kalimat );
 CLRSCR ;
 WRITELN (kalimat);

for i := 1 to length ( kalimat )do
 begin
  kopian := copy (kalimat,i,1);
  for j  := 2 to 19 do
  begin
   gotoxy ( i,j );
   write ( kopian );
   gotoxy ( i,j-1 ) ;
   write ('  ');
   delay (10000);
  end;
end;

 begin
x:= kalimat + '                                                                    ' ;
clrscr ;
 repeat
 x := copy (x , 2 , length ( x ) - 1 ) + copy ( x,1,1 );
 gotoxy (1,19);
 write (x);
 delay (10000);
 until
keypressed;
 end;
end;
readkey;
end.

1 komentar:

Unknown mengatakan...

Berhasil programnya tapi kok hurufnya gak berjatuhan ya?