Exercícios (Algoritmo 1)
1. Ler três valores para os lados de um triângulo, considerando os lados como: A, B e C. Verificar se os lados fornecidos forma realmente um triângulo. Se for esta condição verdadeira, deve ser indicado qual tipo de triângulo foi formado: isósceles, escaleno ou equilátero.
"obs.: Triangulo é uma forma geométrica (polígono)composta por três lados, em que cada lado é menor que a soma dos outros dois lados."
Algoritmo "triangulo"
Var
a,b,c:real
Inicio
escreval ("digite um numero")
leia (a)
leia (b)
leia (c)
se (a<b+c) e (b<a+c) e (c<a+b) então
escreval ("os lados fornecidos formam um triangulo")
se (a=b) e (b=c) então
escreval ("o triangulo formado é equilátero")
senão
se (a=b) ou (b=c) ou (a=c) então
escreval ("o triangulo formado é isósceles")
senão
escreval ("o triangulo formado é escaleno")
fimse
fimse
senao
escreval ("os lados fornecidos não formam um triangulo")
fimse
Fimalgoritmo
2. Elaborar um programa que apresente o final o somatório e a media aritmética dos valores impares existentes na faixa de 1 até 500.
Obs.: Utilize a estrutura de repetição do tipo enquanto.
Algoritmo "somatório e media dos impares"
Var
cont, soma, n:inteiro
media:real
Inicio
n <- 1
enquanto (n<=500) faça
se (n mod 2=1) entao
soma <- soma + n
cont <- cont+1
fimse
n <- n+1
fimenquanto
media <- (soma/cont)
escreval (soma, media)
Fimalgoritmo
3. Elaborar um programa que efetue a leitura de valores positivos inteiros até que um valor negativo seja informado. Ao final deve ser apresentados o maior e o menor valores informados pelo usuário.
Obs.: Utilize a estrutura de repetição do tipo repita.
Algoritmo "positivo inteiro"
Var
maior, menor, n: inteiro
Inicio
escreval ("digite um numero")
leia(n)
maior < -n
menor <- n
repita
se (n>maior) entao
maior <- n
fimse
se (n < menor) entao
menor <- n
fimse
leia (n)
até n<0)
escreval ("o maior é:", maior)
escreval ("o menor é:", menor)
Fimalgoritmo
4. Joãozinho tem 1.20 metros e Mariazinha tem 1.68 metros. Considerando que Joãozinho cresce 3 centímetros por ano e Mariazinha 1.5 centímetros por ano. Faça um algoritmo que descubra em quantos anos Joãozinho será maior do que Mariazinha.
Algoritmo "Joãozinho&Mariazinha"
Var J,M,TJ,TM,ano: real
Inicio
ano <- 0
J <- 120
M <- 168
repita
TJ <- J + 3
TM <- M + 1.5
ano <- ano+1
até (TJ>TM)
escreval (ano)
Fimalgoritmo
5. Faça um algoritmo que leia um vetor N(20) e escreva. Troque a seguir, o 1° elemento com o ultimo, o 2° com o penúltimo e etc. até o 10° com o 11° e escreva o vetor N assim modificado.
Algoritmo "Vetor N20"
Var N: vetor [1..20] de inteiro
aux, cont: inteiro
Inicio
escreval ("digite 20 numeros para o vetor N")
para cont de 1 até 20 passo 1 faça
leia (N[cont])
fimpara para cont de 1 até 20 passo 1 faça
escreval (N[cont])
fimpara
para cont de 1 até 10 passo 1 faça
aux <- N[cont]
N[cont] <- N[21-cont]
N[21-cont] <- aux
fimpara
escreval (" ")
para cont de 1 até 20 passo 1 faça
escreval (N[cont])
fimpara
fimalgoritmo
6. Faça um algoritmo que leia uma matriz mat 4x4, e imprima na tela a soma dos elementos da diagonal principal da matriz mat.
Algoritmo "matriz mat"
Var
mat: vetor [1..4, 1..4] de inteiro
soma, linha, coluna: inteiro
Inicio
soma <- 0
escreval ("digite os numeros para o vetor mat")
para linha de 1 até 4 passo 1 faça
para coluna de 1 até 4 passo 1 faça
leia (mat[linha,coluna])
se (linha = coluna) então
soma <- soma + mat[linha,coluna]
fimse
fimpara
fimpara
escreval (soma)
fimalgoritmo
Wellyton Ender
quinta-feira, 16 de maio de 2019