domingo, 30 de janeiro de 2011

Efeito Matrix

  Program MATRIX;
Uses Crt;
Var
col,lin,ql,cont,aux:integer;
letra:char;
Begin
 Clrscr;
 Repeat
 col:=1+Random(79);
 lin:=1+Random(23);
 ql:= Random(10);
   for cont:= lin to lin+ql do
    Begin
     if cont<24 then
         Begin
           letra:= chr(Random(255));
             for aux:=1 to 2 do
               Begin
               if aux= 1 Then
              Textcolor(10)
              else
                Textcolor(2);
                gotoxy(col,cont);
                write(letra);
               delay(50);
             end;
         end;
     end;
     until keypressed;
end.

Um comentário:

  1. Muito show esse algoritmo.... Caramba é muito legal mesmo...

    ResponderExcluir