BrDoom Fórum

Código: Selecionar todos

// Matrix feito em Pascal por Alejandro Rico

Program matrix;

Uses Crt;
Var col,lin,ql,cont,aux:integer;
    letra:char;
Begin
 Clrscr; // Limpa tela
 Repeat // repetir
  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; // termino de repetir, ate que alguma tecla ser apertada
end.