<pre>
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.
