[pascal] Efeito matrix
Studio-Natch :: PC :: Programação :: Visual basic / Pascal
Página 1 de 1
[pascal] 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.</TD></TR></TABLE> |
Tópicos semelhantes
» Turbo Pascal
» [pascal] tabela ASCII
» [pascal] programa cornometro
» [pascal] programa cronometro
» [pascal]tutorial inicio [1]
» [pascal] tabela ASCII
» [pascal] programa cornometro
» [pascal] programa cronometro
» [pascal]tutorial inicio [1]
Studio-Natch :: PC :: Programação :: Visual basic / Pascal
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos
|
|