Matheus Vidal Tenório

Exercício 54, eu acho que está certo. Está bem simples comparado ao da galera que vi aqui, mt gente fez contador de M e F. Eu fiz o que o gustavo pediu.
ESTÁ CERTO?

programa
{
	
inclua biblioteca Tipos --> ti
	inclua biblioteca Texto --> txt
	funcao inicio()
	{
		inteiro c = 0, idade = 0, velho = 0,  jovem = 0
		cadeia teclado, nome = "", tecladonome
		cadeia opc, nomevelho = "", nomejovem = ""
		faca{
			escreva("\n---------------------------")
			escreva("\n\tPESSOA "+(c+1))
			escreva("\n---------------------------")
			escreva("\nNome: ")
			leia(tecladonome)
			
				faca{
					se(txt.numero_caracteres(tecladonome)>= 3){
						nome = tecladonome
					}senao{
						escreva("O NOME DEVE TER PELO MENOS 3 LETRAS")
						escreva("\nNome: ")
						leia(tecladonome)
					}
				}enquanto(nao(txt.numero_caracteres(nome) >= 3))
				
			escreva("Idade: ")
			leia(teclado)
			c++
				
			faca{
				se(ti.cadeia_e_inteiro(teclado, 10)){
					idade = ti.cadeia_para_inteiro(teclado, 10)
					se(idade >= 1 e idade <= 130){	
						pare
					} senao{
						escreva("\n<<ERRO>> O número deve estar entre 1 e 130")
						escreva("Idade: ")
						leia(teclado)
					}
				}senao{
					escreva("\n<< ERRO >> O valor deve ser um número Inteiro!")
					escreva("Idade: ")
					leia(teclado)
				}
			}enquanto(nao(idade >= 0 e idade <= 130))

			se(c == 1){
				velho = idade
				jovem = idade
				nomevelho = nome
				nomejovem = nome
			}senao{
				se(idade > velho){
					velho = idade
					nomevelho = nome
				}
				se(idade < jovem){
					jovem = idade
					nomejovem = nome
				}
			}

		

		escreva("\nQuer continuar? [S/N]")
		leia(opc)
			
		}enquanto(nao(opc == "n" ou opc == "N"))
		escreva("\nAo todo você cadastrou "+c+" Pessoas.\n"+nomevelho+" é a pessoa mais velha, com "+velho+" anos.\n"+nomejovem+" é a pessoa mais jovem, com "+jovem+" anos.")
	}
}

programa
{
	
	funcao inicio()
	{
		inteiro camadas, c
		cadeia espacos = ""
		escreva("Camadas: ")
		leia(camadas)
		inteiro soma = camadas * 2
		para(inteiro init = 1; init <= camadas; init++){
			escreva("\n"+espacos)
			para(c = 1; c <= soma; c++){
				escreva("*")
				
				
			}
			espacos+=" "
			soma-=2
		}
	}
}

programa
{
	inclua biblioteca Util -->u
	funcao inicio()
	{
		inteiro c = 1, aleatorio = 0, n
		escreva("Vou pensar em um número entre 1 e 10")
		escreva("\nVocê tem 3 CHANCES para tentar Advinhar")
		escreva("\n--------------------------------------------")
		aleatorio = u.sorteia(1, 10)
		faca{
			escreva("\nChance de no. "+c+"/3. Em que número eu pensei? ")
			leia(n)
			
			se(n != aleatorio){
				se(c == 1){
					se(n > aleatorio){
						escreva("Ainda não foi dessa vez... Mas vou te dar uma outra chance. Chute um valor menor.")
					}senao{
						escreva("Ainda não foi dessa vez... Mas vou te dar uma outra chance. Chute um valor Maior.")
					}
				}senao se(c == 2){
					se(n > aleatorio){
						escreva("Ainda não foi dessa vez... Mas vou te dar uma outra chance. Chute um valor menor.")
					}senao{
						escreva("Ainda não foi dessa vez... Mas vou te dar uma outra chance. Chute um valor Maior.")
					}
				}senao se(c == 3){
					se(n != aleatorio){
						escreva("Ainda não foi dessa vez... Não foi dessa vez. Suas chances acabaram!!")
					}
				}
				
			}

			
			se(c == 1){
				se(n == aleatorio){
					escreva("Acertou de primeira")
					pare
				}
			}senao se(c == 2){
				se(n == aleatorio){
					escreva("Acertou de Segunda")
					pare
				}
			}senao se(c == 3){
				se(n == aleatorio){
					escreva("Acertou de terceira!")
					pare
				}
			}
			c++
			
		}enquanto(c <= 3)
		
	}
}

• Esta resposta foi modificada 4 meses atrás por Matheus Vidal Tenório.

Acredito que está certo, me dá um feedback.

programa
{
	
	funcao inicio()
	{
		escreva("\t=======================")
		escreva("\n\t+\tAdição")
		escreva("\n\t-\tSubtração")
		escreva("\n\t*\tMultiplicação")
		escreva("\n\t/\tDivisão")
		escreva("\n\t=======================")
		caracter simb
		real n1, n2
		escreva("\n\tDigite sua opção: ")
		leia(simb)
		se (simb == '1'){
			simb = '+'	
		}senao se(simb == '2'){
			simb = '-'
		}senao se(simb == '3'){
			simb = '*'
		}senao{
			simb = '/'
		}
		escreva("\tVocê escolheu a operação ["+simb+"]\n")
		escolha(simb){
			caso '+':
				escreva("\nDigite um número: ")
				leia(n1)
				escreva("Digite outro número: ")
				leia(n2)
				escreva("--------------------------")
				escreva("\nCalculando o valor de "+n1+" "+simb+" "+n2+"\nResultado da SOMA: "+(n1+n2))
				escreva("\n--------------------------")
				pare
			caso '-':
				escreva("\nDigite um número: ")
				leia(n1)
				escreva("Digite outro número: ")
				leia(n2)
				escreva("--------------------------")
				escreva("\nCalculando o valor de "+n1+" "+simb+" "+n2+"\nResultado da Subtração: "+(n1-n2))
				escreva("\n--------------------------")
				pare
			caso '*':
				escreva("\nDigite um número: ")
				leia(n1)
				escreva("Digite outro número: ")
				leia(n2)
				escreva("--------------------------")
				escreva("\nCalculando o valor de "+n1+" "+simb+" "+n2+"\nResultado da Multiplicação: "+(n1*n2))
				escreva("\n--------------------------")
				pare
			caso '/':
				escreva("\nDigite um número: ")
				leia(n1)
				escreva("Digite outro número: ")
				leia(n2)
				escreva("--------------------------")
				escreva("\nCalculando o valor de "+n1+" "+simb+" "+n2+"\nResultado da Divisão: "+(n1/n2))
				escreva("\n--------------------------")
				pare
			caso contrario:
				escreva("\nDigite um número: ")
				leia(n1)
				escreva("Digite outro número: ")
				leia(n2)
				escreva("--------------------------")
				escreva("\nCalculando o valor de "+n1+" "+simb+" "+n2+"\nNão é possível fazer tal operação. Tente novamente")
				escreva("\n--------------------------")
			
			
		}
	}
}

NÃO, APENAS POSTO PARA SABER SE TEM ERRO KKK, AS VEZES SIM, mas posto mas para q possam ver mesmo.

programa
{

funcao inicio()
{
cadeia nome, velho = ” “, jovem = ” ”
inteiro idade, cp = 0, idvelho = 0, idjovem = 0, mediagrupo = 0, acidade = 0
enquanto(verdadeiro){
escreva(“\n————- NOVO AMIGO ————-“)
escreva(“\nOBS: Digite ACABOU no nome para parar.”)
escreva(“\nNome: “)
leia(nome)
se(nome == “ACABOU”){
escreva(“******* INTERROMPIDO *******”)
escreva(“\n========== RESULTADOS ==========”)
pare
}
escreva(“Idade: “)
leia(idade)
cp++
se(cp == 1){
idvelho = idade
velho = nome
idjovem = idade
jovem = nome
}senao{
se(idade > idvelho){
idvelho = idade
velho = nome
}
se(idade < idjovem){
idjovem = idade
jovem = nome
}
}
acidade+=idade
mediagrupo = acidade/cp
}
escreva(“\nTotal de amigos cadastrados: “,cp)
escreva(“\nSeu amigo(a) mais velho(a) é “+velho+”, com “+idvelho+” anos.”)
escreva(“\nSeu amigo(a) mais jovem é “+jovem+”, com “+idjovem+” anos.”)
escreva(“\nA média de idade do grupo é de “+mediagrupo)
}
}`

programa
{
inclua biblioteca Texto
funcao inicio()
{
inteiro c = 1, peso, ref, sxmab = 0, sxfab = 0, sxmac = 0, sxfac = 0
cadeia sx
inteiro tot//qtd cadastrar pessoas.

escreva(“\nQuantas pessoas vamos cadastrar? “)
leia(tot)

escreva(“\nQual é o peso de referência (KG)? “)
leia(ref)

enquanto(c<=tot){
escreva(“\n————————–“)
escreva(“\nPessoa “,c,” de “,tot)
escreva(“\n————————–“)

escreva(“\nPeso:”)
leia(peso)

escreva(“Sexo: “)
leia(sx)
sx = Texto.caixa_alta(sx)

se(peso<=ref e sx == “M”){
escreva(“\n======= PESO DENTRO DO LIMITE (“,ref,”Kg) =======”)
sxmab++
}
se(peso>ref e sx == “M” ){
escreva(“\n======= PESO ACIMA DO LIMITE (“,ref,”Kg) =======”)
sxmac++
}
se(peso<=ref e sx == “F”){
escreva(“\n======= PESO DENTRO DO LIMITE (“,ref,”Kg) =======”)
sxfab++
}
se(peso>ref e sx == “F” ){
escreva(“\n======= PESO ACIMA DO LIMITE (“,ref,”Kg) =======”)
sxfac++
}
c++
}
escreva(“\n——————————————————————“)
escreva(“\nAo todo, temos “,(sxfac+sxmac),” pessoas acima do limite de “,ref,”Kg”)
escreva(“\nE dessas pessoas, “,sxmab,” são Homens e “,sxfac,” são Mulheres.”)
escreva(“\nApenas “,(sxfab+sxmab),”, estão dentro do limite.”)
}
}`

programa
{ //EXERCICIO 027 – SEU PESO NOS PLANETAS

funcao inicio()
{
escreva(“QUAL É O SEU PESO AQUI NA TERRA ? (Kg) “)
inteiro ps, pt
leia(ps)
escreva(“———————————“)
escreva(“\n ESCOLHA UM PLANETA”)
escreva(“\n———————————“)
escreva(“\n1 – Mercúrio”+”\n2 – Vênus”+”\n3 – Marte”+”\n4 – Júpiter”+”\n5 – Saturno”+”\n6 – Urano”)
escreva(“\n==================================”)
escreva(“\nDigite sua Opção => “)
leia(pt)
escreva(“==================================”)

escolha(pt){
caso 1 : //MERCÚRIO
escreva(“\nNo Planeta Mercúrio,\nSeu peso seria “+ (ps * 0.37) +” Kgs”)
pare

caso 2 : //VÊNUS
escreva(“\nNo Planeta Mercúrio,\nSeu peso seria “+ (ps * 0.88) +” Kgs”)
pare

caso 3 : //MARTE
escreva(“\nNo Planeta Mercúrio,\nSeu peso seria “+ (ps * 0.38) +” Kgs”)
pare

caso 4 : //JÚPITER
escreva(“\nNo Planeta Mercúrio,\nSeu peso seria “+ (ps * 2.64) +” Kgs”)
pare

caso 5 : //SATURNO
escreva(“\nNo Planeta Mercúrio,\nSeu peso seria “+ (ps * 1.15) +” Kgs”)
pare

caso 6 : //URANO
escreva(“\nNo Planeta Mercúrio,\nSeu peso seria “+ (ps * 1.17) +” Kgs”)
pare

caso contrario : //DIGITOU ERRADO
escreva(“\nNão existe planeta selecionado para realizar o cálculo\nTente novamente.”)
pare
}
}
}`

programa
{ //EXERCÍCIO 025 – TRÊS VALORES EM ORDEM

funcao inicio()
{
inteiro n1, n2, n3
escreva(“Digite um número: “)
leia(n1)
escreva(“Digite outro número: “)
leia(n2)
escreva(“Digite outro número: “)
leia(n3)
se (n1 > n2 e n1 > n3 e n2 > n3){

escreva(“MAIOR: “+ n1 +”\nINTERMEDIÁRIO: “+ n2 +”\nMENOR: “+ n3)

} senao se(n1 > n2 e n1 > n3 e n3 > n2){

escreva(“MAIOR: “+ n1 +”\nINTERMEDIÁRIO: “+ n3 +”\nMENOR: “+ n2)

} senao se(n2 > n1 e n2 > n3 e n3 > n1){

escreva(“MAIOR: “+ n2 +”\nINTERMEDIÁRIO: “+ n3 +”\nMENOR: “+ n1)

} senao se(n2 > n1 e n2 > n3 e n1 > n3){

escreva(“MAIOR: “+ n2 +”\nINTERMEDIÁRIO: “+ n1 +”\nMENOR: “+ n3)

} senao se(n3 > n2 e n3 > n1 e n1 > n2){

escreva(“MAIOR: “+ n3 +”\nINTERMEDIÁRIO: “+ n1 +”\nMENOR: “+ n2)

} senao se(n3 > n2 e n3 > n1 e n2 > n1){

escreva(“MAIOR: “+ n3 +”\nINTERMEDIÁRIO: “+ n2 +”\nMENOR: “+ n1)

} senao se(n1==n2 e n1>n3){

escreva(“O “+ n1 +” e o “+ n2 +” são iguais, porém o “+ n3 +” é menor que os dois”)

} senao se(n1==n3 e n1>n2){

escreva(“O “+ n1 +” e o “+ n3 +” são iguais, porém o “+ n2 +” é menor que os dois”)

} senao se(n2==n1 e n2>n3){

escreva(“O “+ n2 +” e o “+ n1 +” são iguais, porém o “+ n3 +” é menor que os dois”)

} senao se(n2==n3 e n2>n1){

escreva(“O “+ n2 +” e o “+ n3 +” são iguais, porém o “+ n1 +” é menor que os dois”)

} senao se(n3==n1 e n3>n1){

escreva(“O “+ n3 +” e o “+ n1 +” são iguais, porém o “+ n1 +” é menor que os dois”)

} senao se(n3==n2 e n3>n2){

escreva(“O “+ n3 +” e o “+ n2 +” são iguais, porém o “+ n2 +” é menor que os dois”)

}
}
}`

programa
{ //EXERCÍCIO 025 – TRÊS VALORES EM ORDEM

funcao inicio()
{
inteiro n1, n2, n3
escreva(“Digite um número: “)
leia(n1)
escreva(“Digite outro número: “)
leia(n2)
escreva(“Digite outro número: “)
leia(n3)
se (n1 > n2 e n3 < n2){
escreva(“MAIOR: “+ n1 +”\nINTERMEDIÁRIO: “+ n2 +”\nMENOR: “+ n3)
} senao se (n2 > n1 e n3 < n1){
escreva(“MAIOR: “+ n2 +”\nINTERMEDIÁRIO: “+ n1 +”\nMENOR: “+ n3)
} senao se (n3 > n2 e n1 < n2){
escreva(“MAIOR: “+ n3 +”\nINTERMEDIÁRIO: “+ n2 +”\nMENOR: “+ n1)
}
}
}`

DEIXEI SEM O <= NO 13, PORQUE NÃO ESTAVA SABENDO COMO OCLOCAR OS SEUGNODS, COLOQUEI NA FORMUILA, MAS FICA VERMELHO. E EU SÓ PRECISO DE UM DIGITO, E N SEI COMO COLOCAR, Q SERIA 13:01(Q ELE FOSSE MENOR Q ISSO.)

programa
{
//EXERCÍCIO 020 – HORÁRIO DO CINEMA

inclua biblioteca Calendario
funcao inicio()
{
escreva(“\n================ CINEMA ESTUDONAUTA ==============”)
escreva(“\n HORÁRIO DO FILME: 13h – PREÇO DO INGRESSO: R$20”)
escreva(“\n————————————————–\n”)
escreva(“\nQuanto dinheiro você tem? R$”)
real v
leia(v)
se ( v >= 20 e Calendario.hora_atual(falso) < 13 ){
escreva(“\nAgora são “+ Calendario.hora_atual(falso)+ “horas. Você consegue comprar o ingresso!\n”)
} senao{
escreva(“\nAgora são “+ Calendario.hora_atual(falso)+”horas, Infelizmente não é possível comprar o ingresso!\n”)
}
}
}
`

FIZ NESSA LÓGICA, TAVA DANDO ERRADO AI COLOQUEI OUTRO SE, AI FUI VER EU TAVA COLOCADNO / INVÉS DE %

programa
{ //EXERCICIO 017 – ANO BISSEXTO

funcao inicio()
{
inteiro ano
escreva(“Digite um ano qualquer: “)
leia(ano)
se (ano%4==0 e ano%100!=0 ou ano%400==0){
escreva(“O ano “+ ano +(” É BISSEXTO”))
}
senao {
escreva(“O ano “+ ano +” NÃO É BISSEXTO”)
}
}
}`

Desculpa ai guanabara, vacilo doido, tava quase lá.

MUDEI ALGUMAS COISAS. 1 – PRESTA ATENÇÃO QUANDO FOR ESCREVER; 2 – SEMPRE TESTE TUDO, PARE E PENSE, EU FIZ METADE EM UM DIA, TERMINEI ESSA QUESTÃO NO OUTRO; 3 – NÃO VI NECESSIDADE NA BIBLIOTECA TIPO, MAS OK ; 4 – TENHA UMA MELHOR CRIATIVIDADE AO CRIAR VARIÁVEIS POIS DADOS DEMAIS SE TORNA CANSATIVO, E ATÉ LHE AJUDA A SIMPLIFICAR O CÓDIGO. REFIZ O CÓDIGO TODO, DEIXEI SEUS ERROS, MAS VEJA SEU CÓDIGO E COMPARE COM ESSE, ABRAÇO.

programa
{
inclua biblioteca Matematica –> m
inclua biblioteca Tipos –> t
funcao inicio()
{
real Quanto_tempo_fumando, cigarros_por_dia, total_de_cigarros_f
real dias_pertidos
escreva(“\n——————Ultimo————–“)
escreva(“\nCada cigarro reduz 10 minutos de vida\n”)
escreva(“————————————–“)
escreva(“\nA quanto anos vc fuma: “)
leia(Quanto_tempo_fumando)
escreva(“\nQuantos cigarros vc fuma por dia: “)
leia(cigarros_por_dia)
Quanto_tempo_fumando = Quanto_tempo_fumando * 365
total_de_cigarros_f = Quanto_tempo_fumando * cigarros_por_dia
dias_pertidos = (total_de_cigarros_f * 10)/1440
escreva (“——————“)
escreva(“\nAo todo, ate agora vc ja fumou “, total_de_cigarros_f,” cigarros”)
escreva(“\nEstima-se que vc perdeu “, m.arredondar(dias_pertidos, 2) , ” dias da sua vida”)
}`

Que desorganização galera, pelo amor de DEUS. postar agora em qualquer lugar bicho, ta aí.

programa
{

//exercicio 09 – aumento salarial.
inclua biblioteca Matematica –> m
inclua biblioteca Util –> u
funcao inicio()
{
cadeia nome
real salario
real rj
escreva(“Nome do funcionário: “)
leia(nome)
escreva(“Salário: R$”)
leia(salario)
escreva(“Reajuste (%): “)
leia(rj)
escreva(” \n——— RESULTADO ———\n”)
escreva(nome+ ” ganhava R$” + salario + “\ne depois de ganhar ” + rj +”%” + ” de aumento\nvai passar a ganhar R$”+ (salario+salario*3/100))
u.aguarde(3000)
escreva(“\nfinalizando…”)
u.aguarde(3000)
escreva(“\n——— PROCESS FINISHED ———\n”)`