01°questao

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

//Algoritmo para sabe anos 
programa
{
	inclua biblioteca Tipos-->tp
	inclua biblioteca Texto -->t
	
	funcao inicio()
	{
		cadeia Nome, D_N,DD,MM,AAAA
		inteiro Idade ,D,M,A,I,data
		
		escreva("\nDigite seu nome : ")
		leia (Nome)
		escreva("\nDigite Sua Data_De_Nascimento (dd/mm/aaa) : ")
		leia(D_N)
		DD = t.extrair_subtexto(D_N, 0, 2)
		MM = t.extrair_subtexto(D_N, 3, 5)
		AAAA = t.extrair_subtexto(D_N, 6, 10)
		D = tp.cadeia_para_inteiro(DD, 10)
		M = tp.cadeia_para_inteiro(MM, 10)
		A = tp.cadeia_para_inteiro(AAAA, 10)
 	
		se (A > 1900 e A <= 2021)
		{
			se (M >= 1 e M <= 12)
			{
				se (M==2 e D >= 1 e D <= 28)
				{	
					data = tp.cadeia_para_inteiro(AAAA, 10)
					I = (2021 - data)
					escreva("\n Nome : ",Nome)
					escreva("\n Data De Nascimento : ",D_N)
					escreva("\n Idade : ", I ," anos ")
				}
					
				senao se (M==4 ou M==6 ou M==9 ou M==11 e D >= 1 e D <= 30)
			 {	
			 	data = tp.cadeia_para_inteiro(AAAA, 10)
					I = (2021 - data)
			 	escreva("\n Nome : ",Nome)
					escreva("\n Data De Nascimeto : ",D_N)
					escreva("\n Idade : ", I ," anos ")
			 }
			 
				senao se (M==1 ou M==3 ou M==5 ou M==7 ou M==8 ou M==10 ou M==12 e D >= 1 e D <= 31)
				{
					data = tp.cadeia_para_inteiro(AAAA, 10)
					I = (2021 - data)
			 	escreva("\n Nome : ",Nome)
					escreva("\n Data De Nascimeto : ",D_N)
					escreva("\n Idade : ", I ," anos ")
				}
			
				senao 
				escreva("Dia invalido ")
			
				
			}
				senao
				escreva(" Mes invalido ")
		}
				senao
				escreva(" Ano invalido ")
		
	}
}
/* $$$ Portugol Studio $$$ 
 * 
 * Esta seção do arquivo guarda informações do Portugol Studio.
 * Você pode apagá-la se estiver utilizando outro editor.
 * 
 * @POSICAO-CURSOR = 1279; 
 * @PONTOS-DE-PARADA = ;
 * @SIMBOLOS-INSPECIONADOS = ;
 * @FILTRO-ARVORE-TIPOS-DE-DADO = inteiro, real, logico, cadeia, caracter, vazio;
 * @FILTRO-ARVORE-TIPOS-DE-SIMBOLO = variavel, vetor, matriz, funcao;
 */