Script Copa do Mundo [Pascal/Kylix]

Script Copa do Mundo

Publicado por Perfil removido 20/03/2006

[ Hits: 5.334 ]

Download copadomundo.txt.txt

0 0

Denuncie Favoritos Indicar

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

Jogo Sudoku em Pascal

Calculadora de décimo terceiro no Lazarus

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

média dos numeros informados em posiçoes pares em um vetor

Raiz Quadrada.

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.

0 0