Script Copa do Mundo [Pascal/Kylix]

Script Copa do Mundo

Publicado por Perfil removido 20/03/2006

[ Hits: 5.536 ]

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

Calculadora Empresarial Lazarus

Calculadora utilizando until e case

Calculadora de décimo terceiro no Lazarus

Programa que realiza o reajuste salarial de acordo com o cargo

Gerador de Senha no 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.

0 0