Pular para o conteúdo

Script Copa do Mundo

Esse script exibe as cores da seleção canarinho
Perfil removido removido
Hits: 5.726 Categoria: Pascal/Kylix Subcategoria: Introdução
  • Download
  • Nova versão
  • Indicar
  • Denunciar

Descrição

Esse script exibe as cores da seleção canarinho
Download copadomundo.txt.txt Enviar nova versão

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.

Tratamentos de Erros

Cronômetro feito no Lazarus(Delphi 7 para Linux)

Número primo

Calculadora Básica

controle de notas de uma clase com vetor e registro

#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

Entre na sua conta para comentar.