data_valida

[ingridtele 0]

E09 Escreva um função chamada DATA_VALIDA que receba uma data (DIA, MÊS e ANO) everifique se a data é válida ou não (considerando os anos bissextos).Alguám para me ajudar a resolver este exercício na linguagem FORTRAN????

[ingridtele 0]

program datas integer d, m, a print*,"Escreva o dia :" read*,d print*,"Escreva o mˆs :" read*,m print*,"Escreva o ano (4 digitos):" read*,a if(d.gt.0.and.d.le.31.and.m.gt.0.and.m.le.12.and.a.gt.0)then if(mod(a,4).ne.0)then print*,"O ano nao e bissexto!" if(m.eq.2.and.d.eq.29.or.d.eq.30.or.d.eq.31)then print*,"Esta data nao e valida! O dia nao existe..." end if else print*,"O ano e bissexto!Data valida!" end if else print*,"Data invalida!" end if end----------------------------------------------------------------------------------** Consegui fazer o exercicio desse jeito! Postem ai se acharem erros... valeu!