Contador de números (Pascal) - efeito Matrix

Publicado por Perfil removido (última atualização em 02/10/2009)

[ Hits: 9.968 ]

Download ContadorDeNumerosPascalEfeitoMatrix.txt




Conta os números milhares de vezes, semelhante ao filme Matrix.

  



Esconder código-fonte

program numeros;

uses crt;
var a:integer;

begin
clrscr;
Textcolor(green);
a:=1;

repeat

for a:=1 to 100 do

write(a);

until a>=1000;

readkey;
end.

Scripts recomendados

Tratar campos not null

encontrar o menor valor em um vetor

Crivo de Eratóstenes Simples em Ada 95

jogo bobo testando com case

validando um triângulo e classificando-o como equilátero, isoceles ou escaleno.


  

Comentários
[1] Comentário enviado por doradu em 09/02/2010 - 17:49h

tava mexendo aqui, olhe só

program numeros;

uses crt;
var a:integer;

begin
clrscr;
Textcolor(green);
a:=1;

repeat

for a:=1 to 100 do
begin
write(a);
textcolor(a);
textbackground(a - 1);

end;

until a>=1000;

readkey;
end.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts