Ferramentas de Usuário

Ferramentas de Site


dev_geral:pascal:snippet:matrix

Efeito Matrix

program matrix;
uses Crt;
var col,lin,ql,cont,aux:integer;
    letra:char;
 
begin
     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.
dev_geral/pascal/snippet/matrix.txt · Última modificação em: 2018/05/14 21:37 (edição externa)