Ir para o conteúdo
dariop

signos em pascal

Mensagens Recomendadas

dariop    0
dariop

pexoal tou com um problema!!  preciso de fazer um programa em pascal k peça ao utilizador a sua data de nascimento e k apresente o signo dexa pexoa! se alguem me poder ajudar agradecia!!! :ipool:

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
saramgsilva    2
saramgsilva

pexoal tou com um problema!!  preciso de fazer um programa em pascal k peça ao utilizador a sua data de nascimento e k apresente o signo dexa pexoa! se alguem me poder ajudar agradecia!!! :ipool:

faz o "case"...nao nada de mais ...  :confused:

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
vbmaster    5
vbmaster

Sim, basta fazeres um case à variável do mês..

e depois dentro de cada case fazes um if ao dia, para determinar se o signo é o de 1 - 20 e poucos se é o de 20 e poucos até 30/31 ...

Easy thing... :confused:

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
vbmaster    5
vbmaster

Ois

Que eu saiba os signos vao de uma data a outra entao basta fazeres um case com as datas e ja ta, nao eh necessario if nnhum.

mostra-me esse teu código e dou-te razão.... :confused:

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Warrior    68
Warrior

Dá para se fazer com um case, tem-se é que aldrabar um bocado..

Já não me lembro bem da sintaxe do case do pascal, portanto posso estar a aldrabar um bocado, mas a lógica seria esta.

function tentar(d,m:integer):integer;
begin
if (d<=21) then tentar:=m
else tentar:=m+1;
end;

.....

case tentar(dia,mes) of
1: writeln('1º signo');
2: writeln('2º signo');
...
end;

Se mudam sempre no dia 21, pode ser resolvido assim.

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


×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade