Contador de números (Pascal) - efeito Matrix

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

[ Hits: 9.974 ]

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

Programa que realiza o reajuste salarial de acordo com o cargo

somatório de uma matriz 7x5

Fatorial

Função Fatorial Recursiva em Ada 95

Calculadora Empresarial (Baseada nas fórmulas de Logística)Lazarus


  

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