Script Copa do Mundo

Publicado por Perfil removido 20/03/2006

[ Hits: 5.358 ]

Download copadomundo.txt.txt




Esse script exibe as cores da seleção canarinho

  



Esconder código-fonte

// -------------------------------------------------------------
// Programa que mostra na tela as cores da seleção Canarinho
// Escrito por Alexandre Pina - alexandrehkk@gmail.com
// 
// -------------------------------------------------------------

Program CopaDoMundo ;
var i: integer;
Begin

  For i:=1 to 680 do begin
    textcolor (yellow);
    write (#178); 
  End;
    
  For i:=1 to 720 do begin
    textcolor (green);
    write (#178); 
  End;
  writeln ( '... ' );
  writeln ( 'Cores da Seleção Canárinho - ' );
 
End.

Scripts recomendados

Crivo de Eratóstenes Simples em Ada 95

programa para selecionar os números em posições impares em array de 19 espaços e calcular a media

Calculadora Completa feita no Lazarus(Delphi 7 para Linux)

Maior numero do Vetor

Visualizador de imagem Pascal/Lazarus


  

Comentários
[1] Comentário enviado por doradu em 10/02/2010 - 18:30h

coloquei um 'readkey' no final pra poder ver a tela quando tou compilando,

e coloquei tb a biblioteca 'crt'

flw


// -------------------------------------------------------------
// Programa que mostra na tela as cores da seleção Canarinho
// Escrito por Alexandre Pina - alexandrehkk@gmail.com
//
// -------------------------------------------------------------

Program CopaDoMundo ;

Uses crt;

var i: integer;
Begin

For i:=1 to 680 do begin
textcolor (yellow);
write (#178);
End;

For i:=1 to 720 do begin
textcolor (green);
write (#178);
End;
writeln ( '... ' );
writeln ( 'Cores da Seleção Canárinho - ' );
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