1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 | C Este programa Calcula o mˆs que vocÒ nasceu Program MesNascimento IMPLICIT NONE Integer Mes_Nascimento Print *, "ENTRE COM MES DE NASCIMENTO" read(*,*) Mes_Nascimento IF (Mes_Nascimento==1) then print *, "nasceu em janeiro" else IF (Mes_Nascimento==2) then Print *, "nasceu em fevereiro" else IF (Mes_Nascimento==3) then Print *, "nasceu em mar‡o" else IF (Mes_Nascimento==4) then Print *, "nasceu em abril" else IF (Mes_Nascimento==5) then print *, "nasceu em maio" else IF (Mes_Nascimento==6) then Print *, "nasceu em junho" else IF (Mes_Nascimento==7) Then Print *, "nasceu em julho" else IF (Mes_Nascimento==8) Then Print *, "nasceu em agosto" else IF (Mes_Nascimento==9) Then Print *, "nasceu em setembro" else IF (Mes_Nascimento==10) Then Print *, "nasceu em outubro" else IF (Mes_Nascimento==11) Then Print *, "nasceu em novembro" else IF (Mes_Nascimento==12) Then Print *, "nasceu em dezembro" else Print *, "errou o mˆs" Endif Endif Endif Endif Endif Endif Endif Endif Endif Endif Endif Endif Stop End Program MesNascimento |
Direct link: https://paste.plurk.com/show/784551