signos em pascal

[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!!! ?

[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!!! ?

faz o "case"...nao nada de mais ...  😕

[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... 😕

[NCS_One]

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.

[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.... 😕

[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.