Gostaria apenas de uma dica. Como fazer um programa em pascal que verifique o mês digitado pelo usúário se é 30, 31, 29 ou 28 dias.
Obs.: Ainda eu não dei no curso matrizes, vetores.
Estou inciando da seguinte forma, porem não exibe a quantida de dias do mês digitado pelo usuário.
program verifica_mes;
uses
crt;
procedure leitura (var mes: string);
begin
writeln ('Programa verifica se o mˆs ‚ 28, 29, 30, 31');
writeln ('Janeiro, Fevereiro, Março, Abril, Maio, Junho, Julho, Agosto, Setembro, Outubro, Novembro, Dezembro');
writeln ('Digite um mês do ano:');
readln (mes);
end;
procedure calculo (mes:string; var Janeiro, Abril : string);
begin
if (mes) = Janeiro then
writeln ('Possui 31 dias');
if (mes) = Abril then
writeln ('Possui 30 dias');
end;
var {variavel global}
mes_do_ano, J, A: string;
begin
clrscr;
leitura (mes_do_ano);
calculo (mes_do_ano, J, A);
readkey;
end.
Pergunta
Martinsrj
Olá pessoal, beleza?
Gostaria apenas de uma dica. Como fazer um programa em pascal que verifique o mês digitado pelo usúário se é 30, 31, 29 ou 28 dias.
Obs.: Ainda eu não dei no curso matrizes, vetores.
Estou inciando da seguinte forma, porem não exibe a quantida de dias do mês digitado pelo usuário.
Link para o comentário
Compartilhar em outros sites
6 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.