algoritmo "IdadesEstudantes"
var
idades: vetor[1..4] de inteiro
soma, media: real
i: inteiro
procedimento imprimirIdadesMaioresQueMedia(idades: vetor[1..4] de inteiro; media:
real)
var
i: inteiro
inicio
escreva("Idades maiores que a média: ")
para i de 1 ate 4 faca
se idades[i] > media entao
escreva(idades[i], " ")
fimse
fimpara
escreval("") // Para pular uma linha após a impressão
fimprocedimento
// Programa Principal
inicio
soma := 0
// Leitura das idades
para i de 1 ate 4 faca
escreva("Informe a idade do estudante ", i, ": ")
leia(idades[i])
soma := soma + idades[i] // Acumulando a soma das idades
fimpara
// Cálculo da média
media := soma / 4
// Imprimindo as idades maiores que a média
imprimirIdadesMaioresQueMedia(idades, media)
fimalgoritmo
algoritmo "ManipulacaoVetores"
var
A: vetor[0..29] de inteiro // Vetor de inteiros
B: vetor[0..29] de inteiro // Vetor dos cubos dos valores de A
C: vetor[0..29] de real // Vetor de números reais
D: vetor[0..59] de real // Vetor de concatenação
i: inteiro
// Procedimento para preencher o vetor A
procedimento PreencherVetorA(var A: vetor[0..29] de inteiro)
inicio
para i de 0 até 29 faça
Escreva("Informe o valor inteiro para A[", i, "]: ")
Leia(A[i])
fimpara
fimprocedimento
// Procedimento para calcular os cubos e preencher o vetor B
procedimento CalcularCubos(var A: vetor[0..29] de inteiro; var B: vetor[0..29] de
inteiro)
inicio
para i de 0 até 29 faça
B[i] <- A[i] * A[i] * A[i] // Calcula o cubo
fimpara
fimprocedimento
// Procedimento para preencher o vetor C com valores aleatórios
procedimento PreencherVetorC(var C: vetor[0..29] de real)
inicio
para i de 0 até 29 faça
C[i] <- aleatorio() // Preenche com um valor aleatório
fimpara
fimprocedimento
// Procedimento para concatenar os vetores B e C no vetor D
procedimento ConcatenarVetores(var B: vetor[0..29] de inteiro; var C: vetor[0..29] de
real; var D: vetor[0..59] de real)
inicio
// Preenche D com os valores de B
para i de 0 até 29 faça
D[i] <- B[i]
fimpara
// Preenche D com os valores de C
para i de 0 até 29 faça
D[i + 30] <- C[i]
fimpara
fimprocedimento
// Programa Principal
inicio
PreencherVetorA(A) // Preenche o vetor A
CalcularCubos(A, B) // Calcula os cubos e preenche o vetor B
PreencherVetorC(C) // Preenche o vetor C com valores aleatórios
// Concatena os vetores B e C no vetor D
ConcatenarVetores(B, C, D)
// Exibe os resultados
Escreval("Vetor A: ", A)
Escreval("Vetor B (Cubos de A): ", B)
Escreval("Vetor C (Valores Aleatórios): ", C)
Escreval("Vetor D (Concatenação de B e C): ", D)
fimalgoritmo
algoritmo "TrianguloPascal"
var
n: inteiro
matriz: matriz[0..20, 0..20]: inteiro // Matriz com tamanho suficiente para n = 20
i, j: inteiro
procedimento inicializaMatriz
inicio
para i de 0 até 20 faça // Inicializa a matriz até o tamanho máximo
para j de 0 até 20 faça
matriz[i][j] := 0
fimpara
fimpara
fimprocedimento
procedimento geraTrianguloPascal
inicio
para i de 0 até n faça
matriz[i][0] := 1 // Primeira coluna é sempre 1
matriz[i][i] := 1 // Diagonal principal é sempre 1
para j de 1 até i - 1 faça
matriz[i][j] := matriz[i - 1][j - 1] + matriz[i - 1][j]
fimpara
fimpara
fimprocedimento
procedimento exibeMatriz
inicio
para i de 0 até n faça
// Formatação para centralizar os números
Escreva(" ")
para j de 0 até i faça
Escreva(matriz[i][j], " ")
fimpara
Escreva("\n") // Nova linha após cada linha do triângulo
fimpara
fimprocedimento
// Programa Principal
inicio
Escreva("Informe o valor de n (até 20): ")
Leia(n)
// Verifica se n está dentro do limite
se n < 0 ou n > 20 então
Escreva("Por favor, insira um valor de n entre 0 e 20.")
senão
inicializaMatriz
geraTrianguloPascal
exibeMatriz
fimse
fimalgoritmo
algoritmo "Matriz5x5"
var
matriz: matriz[0..4, 0..4]: inteiro // Matriz 5x5
somaDiagonalPrincipal, somaDiagonalSecundaria: inteiro
somaColunas: vetor[0..4]: inteiro // Vetor para armazenar somas das colunas
somaLinhas: vetor[0..4]: inteiro // Vetor para armazenar somas das linhas
i, j: inteiro
// Inicializa os vetores de soma
procedimento inicializaVetores
inicio
para i de 0 até 4 faça
somaColunas[i] := 0
somaLinhas[i] := 0
fimpara
fimprocedimento
// Programa Principal
inicio
// Inicializa as variáveis de soma
somaDiagonalPrincipal := 0
somaDiagonalSecundaria := 0
inicializaVetores
// Leitura da matriz
para i de 0 até 4 faça
para j de 0 até 4 faça
Escreva("Informe o elemento [", i, "][", j, "]: ")
Leia(matriz[i][j])
somaLinhas[i] := somaLinhas[i] + matriz[i][j] // Soma da linha
somaColunas[j] := somaColunas[j] + matriz[i][j] // Soma da coluna
// Verifica se é parte da diagonal principal
se i = j então
somaDiagonalPrincipal := somaDiagonalPrincipal + matriz[i][j]
fimse
// Verifica se é parte da diagonal secundária
se i + j = 4 então
somaDiagonalSecundaria := somaDiagonalSecundaria + matriz[i][j]
fimse
fimpara
fimpara
// Impressão dos resultados
Escreva("Soma da Diagonal Principal: ", somaDiagonalPrincipal, "\n")
Escreva("Soma da Diagonal Secundária: ", somaDiagonalSecundaria, "\n")
Escreva("Soma das Colunas: \n")
para i de 0 até 4 faça
Escreva("Coluna ", i, ": ", somaColunas[i], "\n")
fimpara
Escreva("Soma das Linhas: \n")
para i de 0 até 4 faça
Escreva("Linha ", i, ": ", somaLinhas[i], "\n")
fimpara
fimalgoritmo
algoritmo "GerenciarPassagens"
tipo Passagem: registro
codigoVoo: caractere[4]
nomePassageiro: caractere[50]
origem: caractere[30]
destino: caractere[30]
codigoBagagem: caractere[10]
horaPartida: caractere[5]
horaChegada: caractere[5]
fimregistro
var
passagens: vetor[0..29] de Passagem // Vetor para armazenar até 30 passagens
n: inteiro // Número de passagens cadastradas
codigoVooBusca: caractere[4] // Código do voo a ser buscado
i: inteiro
resposta: caractere // Resposta para continuar ou não
inicio
n := 0 // Inicializa o número de passagens
// Leitura das passagens
enquanto n < 30 faça
Escreva("Informe o código do voo (4 caracteres): ")
Leia(passagens[n].codigoVoo)
Escreva("Informe o nome do passageiro: ")
Leia(passagens[n].nomePassageiro)
Escreva("Informe a origem: ")
Leia(passagens[n].origem)
Escreva("Informe o destino: ")
Leia(passagens[n].destino)
Escreva("Informe o código da bagagem: ")
Leia(passagens[n].codigoBagagem)
Escreva("Informe a hora de partida (HH:MM): ")
Leia(passagens[n].horaPartida)
Escreva("Informe a hora de chegada (HH:MM): ")
Leia(passagens[n].horaChegada)
n := n + 1 // Incrementa o número de passagens
Escreva("Deseja cadastrar outra passagem? (s/n): ")
Leia(resposta)
se resposta <> 's' então
pare // Sai do loop se a resposta não for 's'
fimse
fimenquanto
// Busca e impressão dos dados dos passageiros
Escreva("Informe o código do voo para buscar os passageiros: ")
Leia(codigoVooBusca)
Escreva("Passageiros do voo ", codigoVooBusca, ":\n")
para i de 0 até n - 1 faça
se passagens[i].codigoVoo = codigoVooBusca então
Escreva("Nome do Passageiro: ", passagens[i].nomePassageiro, "\n")
Escreva("Origem: ", passagens[i].origem, "\n")
Escreva("Destino: ", passagens[i].destino, "\n")
Escreva("Código da Bagagem: ", passagens[i].codigoBagagem, "\n")
Escreva("Hora de Partida: ", passagens[i].horaPartida, "\n")
Escreva("Hora de Chegada: ", passagens[i].horaChegada, "\n")
Escreva("-------------------------\n")
fimse
fimpara
// Se nenhum passageiro for encontrado
se n = 0 ou (n > 0 e não foi encontrado nenhum passageiro com o código buscado)
então
Escreva("Nenhum passageiro encontrado para o voo ", codigoVooBusca, ".\n")
fimse
fimalgoritmo
algoritmo "CompararCadeias"
var
cadeia1, cadeia2: caractere[100]
inicio
Escreva("Digite a primeira cadeia: ")
Leia(cadeia1)
Escreva("Digite a segunda cadeia: ")
Leia(cadeia2)
se comprimento(cadeia1) > comprimento(cadeia2) então
Escreval("A cadeia de maior comprimento é: ", cadeia1)
senão se comprimento(cadeia2) > comprimento(cadeia1) então
Escreval("A cadeia de maior comprimento é: ", cadeia2)
senão
Escreval("As cadeias têm o mesmo comprimento.")
Escreval("Cadeia 1: ", cadeia1)
Escreval("Cadeia 2: ", cadeia2)
fimse
fimalgoritmo
algoritmo "Matriz4x4"
var
matriz: vetor[0..3, 0..3] de inteiro
i, j: inteiro
inicio
// Preenchendo a matriz
para i de 0 até 3 faça
para j de 0 até 3 faça
Escreva("Digite o valor para matriz[", i, "][", j, "]: ")
Leia(matriz[i, j])
fimpara
fimpara
// Imprimindo a diagonal principal
Escreval("Elementos da diagonal principal:")
para i de 0 até 3 faça
Escreval(matriz[i, i])
fimpara
fimalgoritmo
algoritmo "FolhaPagamento"
tipo Funcionario: registro
id: inteiro
nome: caractere[50]
nivel: inteiro
horasTrabalhadas: inteiro
salarioBruto: real
inss: real
salarioLiquido: real
genero: caractere[1]
fimregistro
var
funcionarios: vetor[0..149] de Funcionario
i: inteiro
salarioBase: vetor[1..3] de real
menorSalario, maiorSalario: real
inicio
salarioBase[1] <- 600
salarioBase[2] <- 800
salarioBase[3] <- 1000
// Inicializa os valores de menor e maior salário
menorSalario <- 9999999 // Valor alto para garantir que qualquer salário será
menor
maiorSalario <- -1 // Valor baixo para garantir que qualquer salário será maior
// Lendo os dados dos funcionários
para i de 0 até 149 faça
Escreva("Digite o ID do funcionário: ")
Leia(funcionarios[i].id)
Escreva("Digite o nome completo do funcionário: ")
Leia(funcionarios[i].nome)
Escreva("Digite o nível do funcionário (1 a 3): ")
Leia(funcionarios[i].nivel)
Escreva("Digite as horas trabalhadas: ")
Leia(funcionarios[i].horasTrabalhadas)
Escreva("Digite o gênero do funcionário (M/F): ")
Leia(funcionarios[i].genero)
// Calcular salário bruto
funcionarios[i].salarioBruto <- salarioBase[funcionarios[i].nivel] *
funcionarios[i].horasTrabalhadas / 30 // Salário proporcional
funcionarios[i].inss <- funcionarios[i].salarioBruto * 0.30 // 30% do salário bruto
funcionarios[i].salarioLiquido <- funcionarios[i].salarioBruto -
funcionarios[i].inss // Salário líquido
// Aplicar aumento de 5% se o gênero for feminino
se funcionarios[i].genero = 'F' então
funcionarios[i].salarioLiquido <- funcionarios[i].salarioLiquido * 1.05 //
Aumento de 5%
fimse
// Atualiza menor e maior salário
se funcionarios[i].salarioLiquido < menorSalario então
menorSalario <- funcionarios[i].salarioLiquido
fimse
se funcionarios[i].salarioLiquido > maiorSalario então
maiorSalario <- funcionarios[i].salarioLiquido
fimse
// Emissão do contracheque
Escreval("Contracheque do Funcionário:")
Escreval("ID: ", funcionarios[i].id)
Escreval("Nome Completo: ", funcionarios[i].nome)
Escreval("Nível: ", funcionarios[i].nivel)
Escreval("Horas de Trabalho: ", funcionarios[i].horasTrabalhadas)
Escreval("Salário Bruto: ", funcionarios[i].salarioBruto)
Escreval("Desconto INSS: ", funcionarios[i].inss)
Escreval("Salário Líquido: ", funcionarios[i].salarioLiquido)
Escreval("-------------------------------")
fimpara
// Imprimir menor e maior salário
Escreval("Menor Salário Líquido: ", menorSalario)
Escreval("Maior Salário Líquido: ", maiorSalario)
fimalgoritmo
1 Algoritmo "FatorialRecursivo"
2 var
3 numero, resultado: inteiro
4 funcao Fatorial(x: inteiro): inteiro
5 inicio
6 se x = 0 ou x = 1 então
7 retorne 1 // O fatorial de 0 e 1 é 1
8 senão
9 retorne x * Fatorial(x - 1) // Chamada recursiva
10 fimse
11 fimfuncao
12 inicio
13 Escreva("Informe um número inteiro: ")
14 Leia(numero)
// Chama a função recursiva para calcular o fatorial
15 resultado <- Fatorial(numero)
16 Escreval("O fatorial de ", numero, " é ", resultado)
17 fimalgoritmo
1 Algoritmo "ParOuImpar"
2 var
3 n: inteiro
4 funcao Verificacao(nr: inteiro): caractere
5 inicio
6 se (nr mod 2 = 0) então
7 retorne "Par"
8 senão
9 retorne "Ímpar"
10 fimse
11 fimfuncao
12 inicio
13 Escreva("Digite o número: ")
14 Leia(n)
15 escreva("O número ", n, " é ", Verificacao(n))
16 fimalgoritmo
