• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

]T0rr3nT[

[AJUDA] Programa cores com menu[RESOLVIDO]

1 mensagem neste tópico

Iniciei-me a cerca de 1 semana e meio com pascal na escola

desde ontem que ando a tentar fazer um menu para um programa que mostre o codigo das cores para pascar (mais tarde acrescentarei mais funções) mas dá sempre erros diferentes :P

alguém me pode ajudar?

sem o menu o prog funcionou mas eu queria acrescentar mais coisas e assim por um menu :D

btw é possivel que cada vez que se escolha uma opçao se limpe o ecra? (clrscr;)

program cores;

uses crt;

const black = 0;
const dblue = 1;
const dgreen = 2;
const dcyan = 3;
const dred = 4;
const purple = 5;
const brown = 6;
const lgrey = 7;
const dgrey = 8;
const lblue = 9;
const lgreen = 10;
const cyan = 11;
const lred = 12;
const pink = 13;
const yellow = 14;
const white = 15;
var opcao : char;

BEGIN
   clrscr;
   writeln ('O que deseja fazer?');
   writeln ('-----------------------------------------------------------------');
   textcolor (7);
   writeln ('MENU:');
   writeln ('1 Cores');
   write ('2 Sair');
   writeln ('Escolha o n£mero da op‡Æo: ');
   read (opcao);
        case opcao of
        '1': textcolor (4);
             write ('LISTA DE CORES EM ');
             textcolor (14);
             write ('PASCAL!');
             textcolor (8);
             writeln ('            Developed by Cristiano Abrantes!');
             textcolor (0);
             textbackground (7);
             writeln ('PRETO = 0');
             textcolor (1);
             textbackground (0);
             writeln ('AZUL ESCURO = 1');
             textcolor (2);
             writeln ('VERDE ESCURO = 2');
             textcolor (3);
             writeln ('TURQUESA ESCURO = 3');
             textcolor (4);
             writeln ('VERMELHO ESCURO = 4');
             textcolor (5);
             writeln ('ROXO = 5');
             textcolor (6);
             writeln ('CASTANHO = 6');
             textcolor (7);
             writeln ('CINZENTO CLARO = 7');
             textcolor (8);
             writeln ('CINZENTO ESCURO = 8');
             textcolor (9);
             writeln ('AZUL CLARO = 9');
             textcolor (10);
             writeln ('VERDE CLARO = 10');
             textcolor (11);
             writeln ('TURQUESA = 11');
             textcolor (12);
             writeln ('VERMELHO CLARO = 12');
             textcolor (13);
             writeln ('ROSA = 13');
             textcolor (14);
             writeln ('AMARELO = 14');
             textcolor (15);
             writeln ('BRANCO = 15');
             writeln (' ');
             textcolor (8);
             writeln ('Para sair pressione qualquer tecla.');
        '2': exit
        END;


   readln;
END.

desde já muito obrigado!

PS: isto não é um trabalho para a escola é apenas uma tentativa minha de me envolver na linguagem...

EDIT: o problema já está resolvido... o que eu tinha feito mal era ter posto o menu como operador :D

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora