50 exercícios Visualg(portugol) resolvidos

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

algoritmo "Ex01"
// Função : Quais valores são negativos
// Autor : Thiego Moura
// Data : 20/04/2015
// Seção de Declarações 
var
a,b,cont:real
inicio
// Seção de Comandos 
b<-0
cont<-0
enquanto cont<5 faca
escreval("Digite um valor para 'a': ")
leia(a)
se a<0 entao
b<-b+1
fimse
cont<-cont+1
fimenquanto
se b=1 entao
escreval("Dos 5 valores atribuidos para 'a',",b," é negativo")
senao
escreval("Dos 5 valores atribuidos para 'a',",b," são negativos")
fimse
fimalgoritmo
algoritmo "Ex_11"
// Função : PA
// Autor : Thiego Moura
// Data : 21/04/2015
// Seção de Declarações 
var
n,a1,r,x,s:inteiro
inicio
// Seção de Comandos
escreval("Qual o número de termos da progressão aritmética: ")
leia(n)
escreval("Qual o primeiro termo: ")
leia(a1)
escreval("Qual a razão: ")
leia(r)
escreval("Os termos da progressão são: ")
para x de 1 ate n faca
escreva(a1)
s<-s+a1
a1<-a1+r
fimpara
escreval(" ")
escreval("A soma dos termos é: ",s)
fimalgoritmo
algoritmo "Ex_12"
// Função : Calcular tabuada
// Autor : Thiego R. Moura
// Data : 21/04/2015
// Seção de Declarações 
var
n,x,j:inteiro
inicio
// Seção de Comandos
para x de 1 ate 20 faca
 escreval("Digite o valor de n: ")
 leia(n)
 se n = 0 entao
 escreval(" 0 x 0 = 0")
 senao
 para j de 1 ate n faca
 escreval(j," x",n," =",j*n)
 fimpara
 fimse
fimpara
fimalgoritmo
algoritmo "Ex_13"
// Função : Fatorial
// Autor : Thiego Moura
// Data : 21/04/2015
// Seção de Declarações 
var
nt,n,fat,x,aux:inteiro
inicio
// Seção de Comandos
escreval("Digite o valor de n(quantos número deverão ser lidos): ")
leia(nt)
para x de 1 ate nt faca
escreval("Digite o valor: ")
leia(n)
se n = 0 entao
escreval("Valor = 0 Fatorial = 1")
senao
aux <- n
fat <- n
enquanto aux <> 1 faca
fat<-fat*(aux-1)
aux<-aux-1
fimenquanto
escreval("Valor = ",n," Fatorial =",fat)
fimse
fimpara
fimalgoritmo
algoritmo "Ex_15"
// Função : Frequência de valores em determinados intervalos
// Autor : Thiego Moura
// Data : 21/04/2015
// Seção de Declarações 
var
n,i1,i2,i3,i4:inteiro
inicio
// Seção de Comandos
repita
escreval("Digite um número (a entrada será finalizada por um número negativo): ")
leia(n)
se n < 0 entao
interrompa
fimse
se (n >= 0) e (n <= 25) entao
i1 <- i1+1
senao
se (n >= 26) e (n <= 50) entao
i2 <- i2+1
senao
se (n >= 51) e (n <= 75) entao
i3 <- i3+1
senao
se (n >= 76) e (n <= 100) entao
i4 <- i4+1
fimse
fimse
fimse
fimse
ate falso
escreval(i1," valor(es) está(ão) entre 0-25")
escreval(i2," valor(es) está(ão) entre 26-50")
escreval(i3," valor(es) está(ão) entre 51-75")
escreval(i4," valor(es) está(ão) entre 76-100")
fimalgoritmo
algoritmo "Ex_16"
// Função : Tabela contendo raiz quadrada, quadrado e cubo de n valores
// Autor : Thiego
// Data : 22/04/2015
// Seção de Declarações 
var
n,c:inteiro
rn:real
inicio
// Seção de Comandos
c<-0
n<-1
enquanto n<>0 faca
escreval("Digite um valor (0 p/ encerrar a entrada de dados): ")
leia(n)
se (c=0) ou (c=20) entao
escreval("Valor Valor^2 Valor^3 RaizQuadrada")
c<-1
fimse
rn<-raizq(n)
escreval(n," ",n^2," ",n^3," ",rn)
c<-c+1
fimenquanto
fimalgoritmo
algoritmo "Ex_17"
// Função : Soma dos inteiros positivos de pares (m,n)
// Autor : Thiego Moura
// Data : 27/04/2015
// Seção de Declarações 
var
m,n,soma:inteiro
inicio
// Seção de Comandos
repita
escreval("Digite um para inteiro e positivo, ou valor negativo para encerrar")
escreval("Digite o valor do 1º (m) número inteiro e positivo do par: ")
leia(m)
se m < 0 entao
interrompa
fimse
escreval("Digite o valor do 2º (n) número inteiro e positivo do par: ")
leia(n)
se n < 0 entao
interrompa
fimse
se m = n-1 entao
soma<-soma+n
fimse
ate falso
escreval("A soma dos n consecutivos a partir de m é: ",soma)
fimalgoritmo
algoritmo "Ex_18"
// Função : Verificar divisores, fatorial e soma do inteiros
// Autor : Thiego Moura
// Data : 22/04/2015
// Seção de Declarações 
var
m,x,aux:inteiro
inicio
// Seção de Comandos 
repita
 repita
 aux<-0
 escreval("Digite um valor inteiro e positivo (0 p/ finalizar): ")
 leia(m)
 ate m>=0
 se m = 0 entao
 interrompa
 fimse
 se m mod 2=0 entao
 para x de m ate 1 passo -1 faca
 se m mod x =0 entao
 aux<-aux+1
 fimse
 fimpara
 escreval("Existem",aux," divisores para",m)
 senao
 se m < 10 entao
 aux <- m
 x <- m
 enquanto aux <> 1 faca
 m <- m*(aux-1)
 aux <- aux-1
 fimenquanto
 escreval("O fatorial de",x," é",m)
 senao
 para x de m ate 1 passo-1 faca
 aux<-aux+x
 fimpara
 escreval("A soma dos inteiros de 1 até",m," é: ",aux)
 fimse
 fimse
ate falso
fimalgoritmo
algoritmo "Ex_19"
// Função : Verifcar quantos são ímpares e quantos são pares e mostrar as médias
// Autor : Thiego Moura
// Data : 22/04/2015
// Seção de Declarações 
var
n,qi,qp,mp,mgeral:inteiro
inicio
// Seção de Comandos
repita
repita
escreval("Digite um número positivo (0 p/ encerrar): ")
leia(n)
ate n>=0
se n = 0 entao
interrompa
fimse
se n mod 2 = 0 entao
qp<-qp+1
mp<-mp+n
mgeral<-mgeral+n
senao
qi<-qi+1
mgeral<-mgeral+n
fimse
ate falso
escreval("A quantidade de pares é: ",qp)
escreval("A quantidade de ímpares é: ",qi)
escreval("A média dos pares é: ",mp/qp)
escreval("A média geral é: ",mgeral/(qp+qi))
fimalgoritmo
algoritmo "Ex_20"
// Função : Calcular a soma dos numeros negativos
// Autor : Thiego Moura
// Data : 22/04/2015
// Seção de Declarações 
var
n,som:inteiro
inicio
// Seção de Comandos
repita
escreval("Digite um número inteiro (0 p/ encerrar): ")
leia(n)
se n = 0 entao
interrompa
fimse
se n < 0 entao
som<-som+n
fimse
ate falso
escreval("A soma dos números negativos é: ",som)
fimalgoritmo
algoritmo "Ex_21"
// Função : Calcular o produto dos numeros inteiros, positivos e pares
// Autor : Thiego Moura
// Data : 22/04/2015
// Seção de Declarações 
var
n,som:inteiro
inicio
// Seção de Comandos
repita
repita
escreval("Digite um número inteiro e positivo (0 p/ encerrar): ")
leia(n)
se n < 0 entao
escreval("Erro!")
fimse
ate n>=0
se n = 0 entao
interrompa
fimse
se n mod 2 = 0 entao
som<-som+n
fimse
ate falso
escreval("O produtório do números inteiros, positivos e pares é: ",som)
fimalgoritmo
algoritmo "Ex_02"
// Função : Resolver a equação
// Autor : Thiego Moura
// Data : 20/04/2015
// Seção de Declarações 
var
n,aux:inteiro
inicio
// Seção de Comandos 
escreval("Dada a equação E=1+1/1!+1/2!+1/3!+1/N!")
escreval("Digite um valor inteiro e positivo para N: ")
leia(n)
enquanto n<0 faca
escreval("Erro! Digite um valor positivo para 'n'")
leia(n)
fimenquanto
se n=0 entao
aux<-1
senao
aux<-n
enquanto n<>1 faca
aux<-aux*(n-1)
n<-n-1
fimenquanto
fimse
escreval("E=",1+1/(1*1)+1/(2*1)+1/(3*2*1)+1/aux)
fimalgoritmo
algoritmo "Ex_22"
// Função :
// Autor : Thiego Moura
// Data : 22/04/2015
// Seção de Declarações 
var
medsal,sal:real
id,c,maid,meid,qtdm:inteiro
sexo:caracter
inicio
// Seção de Comandos
repita
escreval("Digite a idade (digite uma idade negativa p/ encerrar): ")
leia(id)
se id<0 entao
interrompa
fimse
escreval("Digite o sexo (M/F): ")
leia(sexo)
escreval("Digite o salário: ")
leia(sal)
se c=0 entao
meid<-id
fimse
se id > maid entao
maid<-id
fimse
se id < meid entao
meid<-id
fimse
se (sexo="F") e (sal<=100) entao
qtdm<-qtdm+1
fimse
medsal<-medsal+sal
c<-c+1
ate falso
escreval("A média do salário do grupo é: ",medsal/c)
escreval("A maior idade é",maid," e a menor é",meid)
escreval(qtdm," mulher(es) tem salário inferior a R$ 100,00")
fimalgoritmo
algoritmo "Ex_23-24"
// Função : Pesquisa de características
físicas de um população
// Autor : Thiego Moura
// Data : 23/04/2015
// Seção de Declarações 
var
sexo,olhos,cabelos:caracter
id,mid,qntind:inteiro
inicio
// Seção de Comandos
repita
escreval("Digite a idade (negativa p/ encerrar): ")
leia(id)
se id<0 entao
interrompa
fimse
se sexo="" entao
mid<-id
fimse
se id > mid entao
mid<-id
fimse
repita
escreval("Sexo (M/F): ")
leia(sexo)
//se (sexo<>"M") ou (sexo<>"m") ou (sexo<>"F") ou (sexo<>"f") entao
//escreval("Erro!")
//fimse
ate (sexo="M") ou (sexo="m") ou (sexo="f") ou (sexo="F")
repita
escreval("Digite a cor dos olhos (azuis, verdes ou castanhos): ")
leia(olhos)
//se (olhos<>"azuis") ou (olhos<>"verdes") ou (olhos<>"castanhos") entao
//escreval("Erro!")
//fimse
ate (olhos<>"azuis") ou (olhos<>"verdes") ou (olhos<>"castanhos")
repita
escreval("Digite a cor dos cabelos (louros, castanhos ou pretos): ")
leia(cabelos)
//se (cabelos<>"louros") ou (cabelos<>"pretos") ou (cabelos<>"castanhos") entao
//escreval("Erro!")
//fimse
ate (cabelos="louros") ou (cabelos="pretos") ou (cabelos="castanhos")
se (sexo="F") ou (sexo="f") e (id>=18) e (id<=35) e(cabelos="louros") e (olhos="verdes") entao
qntind<- qntind+1
fimse
ate falso
escreval("A maior idade entre os habitantes é: ",mid)
escreval("A qntd de mulheres cuja idade está entre 18 e 35")
escreval("anos que tem olhos verdes e cabelos louros é: ",qntind)
fimalgoritmo
algoritmo "Ex_25"
// Função : Aumentar o preços em 20%
// Autor : Thiego Moura
// Data : 24/04/2015
// Seção de Declarações 
var
cod,c:inteiro
avgc,avgs,p:real
inicio
// Seção de Comandos
enquanto verdadeiro faca
escreval("Digite o código do produto (negativo p/ encerrar a entrada): ")
leia(cod)
se cod<0 entao
interrompa
fimse
escreval("Digite o preço: ")
leia(p)
avgs<-avgs+p
avgc<-avgc+(p+(p*20/100))
escreval("Código: ",cod)
escreval("Preço c/ aumento: ",p+(p*20/100))
fimenquanto
escreval("Média de preços s/ aumento: ",avgs)
escreval("Média de preços c/ aumento: ",avgc)
fimalgoritmo
algoritmo "Ex_26"
// Função : numeros divisiveis por 11 que tenham resto igual a 5 entre mil e 1999
// Autor : Thiego Moura
// Data : 24/04/2015
// Seção de Declarações 
var
n:inteiro
inicio
// Seção de Comandos 
para n de 1000 ate 1999 faca
se n mod 11 = 5 entao
escreval(n)
fimse
fimpara
fimalgoritmo
algoritmo "Ex_27"
// Função : encontrar o maior menor e média entre 500 valores
// Autor : Thiego Moura
// Data : 24/04/2015
// Seção de Declarações 
var
x,v,me,ma,avg:inteiro
inicio
// Seção de Comandos
escreval("Digite 500 valores inteiros positivos")
para x de 1 ate 500 faca
repita
escreval(x,"º valor: ")
leia(v)
se v<0 entao
escreval("Erro!")
fimse
ate v>=0
se x=1 entao
ma<-v
me<-v
fimse
se v>ma entao
ma<-v
fimse
se v<me entao
me<-v
fimse
avg<-avg+v
fimpara
escreval("O maior valor dentre os lidos é: ",ma)
escreval("O menor valor dentre os lidso é: ",me)
escreval("A média dos valores lidos é: ",avg/500)
fimalgoritmo
algoritmo "Ex_28"
// Função : calcular a seguinte soma s:=1+1/2+1/3+1/4+...+1/n
// Autor : Thiego Moura
// Data : 24/04/2015
// Seção de Declarações 
var
n,x:inteiro
s:real
inicio
// Seção de Comandos
escreval("S := 1 + 1/2 + 1/3 + 1/4 + ... + 1/n")
repita
escreval("Digite o valor de 'n': ")
leia(n)
ate n>=0
se n=1 entao
s<-1
escreval("S:= 1")
senao
escreval("S:= 1")
fimse
para x de 2 ate n faca
se x=2 entao
escreval("S:= S + 1/",x)
s<-s+(1+(1/x))
senao
escreval("S:= S + 1/",x)
s<-s+(1/x)
fimse
fimpara
escreval(" ")
escreval("S = ",s:2:2)
fimalgoritmo
algoritmo "Ex_29"
// Função : Calcular a média de entre 13 e 73
// Autor : Thiego Moura
// Data : 25/04/2015
// Seção de Declarações 
var
n,c,avg:real
inicio
// Seção de Comandos
repita
escreval("Atribua N valores (digite um número negativo p/ encerrar): ")
leia(n)
se n<0 entao
interrompa
fimse
se (n >= 13) e (n <= 73) entao
avg<-avg+n
c<-c+1
fimse
ate falso
escreval("A média aritmética dos números lidos entre 13 e 73 é: ",avg/c)
fimalgoritmo
algoritmo "Ex_30"
// Função : Escrever os números impares entre 100 e 200
// Autor : Thiego Moura
// Data : 25/04/2015
// Seção de Declarações 
var
x:inteiro
inicio
// Seção de Comandos
para x de 100 ate 200 faca
se x mod 2 <> 0 entao
escreval(x)
fimse
fimpara
fimalgoritmo
algoritmo "Ex_31"
// Função : Saber de 10 valores quantos estão em determinado intervalo
// Autor : Thiego Moura
// Data : 25/04/2015
// Seção de Declarações 
var
x:inteiro
v,di,fi:real
inicio
// Seção de Comandos
escreval("Digite 10 valores")
para x de 1 ate 10 faca
escreval(x,"º valor: ")
leia(v)
se (v >= 10) e (v <= 20) entao
di<-di+1
senao
fi<-fi+1
fimse
fimpara
escreval("Dos 10 valores digitados")
escreval(di," estão dentro do intervalo de 10 e 20")
escreval("e",fi," não estão nesse intervalo")
fimalgoritmo
algoritmo "Ex_32"
// Função : Escrever os números pares de um intervalo
// Autor : Thiego Moura
// Data : 25/04/2015
// Seção de Declarações 
var
a,b,x,y:inteiro
inicio
// Seção de Comandos
escreval("Digite 5 pares (a,b) de números inteiros e positivos")
para x de 1 ate 5 faca
repita
escreva(x,"º par a: ")
leia(a)
escreval("b: ")
leia(b)
ate (a>=0) e (b>=0)
para y de a ate b faca
se y = a entao
escreval("Os números pares dentro do intervalo (",a,",",b,") são: ")
fimse
se y mod 2 = 0 entao
escreval(y)
fimse
fimpara
fimpara
fimalgoritmo
algoritmo "Ex_03"
// Função : Pesquisa p/ prefeitura
// Autor : Thiego Moura
// Data : 20/04/2015
// Seção de Declarações 
var
sal,medsal,msal:real
f,medf:inteiro
tpessoa,percpessoa:real
inicio
// Seção de Comandos
medsal<-0
tpessoa<-0
percpessoa<-0
sal<-1
msal<--99999999
enquanto sal > 0 faca
escreval("Digite o salário: ")
leia(sal)
medsal<-medsal+sal
se sal > msal entao
msal<-sal
fimse
se sal <=100 entao
percpessoa<-percpessoa+1
fimse
escreval("Digite o número de filhos: ")
leia(f)
medf<-medf+f
tpessoa<-tpessoa+1
fimenquanto
escreval("A média do salário da população é: ", medsal/tpessoa)
escreval("A média do número de filhos é: ",medf/tpessoa)
escreval("O maior salário é: ", msal)
escreval("O percentual de pessoas com salário até R$100,00 é: ",percpessoa*100/tpessoa,"%")
fimalgoritmo
algoritmo "Ex_33"
// Função : Calcular a tabuada de 1 até N
// Autor : Thiego Moura
// Data : 28/04/2015
// Seção de Declarações 
var
n,x,y:inteiro
inicio
// Seção de Comandos
escreval("Digite 20 vezes o valor de N")
para x de 1 ate 20 faca
escreval(x,"º valor: ")
leia(n)
se n = 0 entao
escreval(" 0 x 0 = 0")
fimse
para y de 1 ate n faca
escreval(y," x",n," =",y*n)
fimpara
escreval(" ")
fimpara
fimalgoritmo
algoritmo "Ex_34"
// Função : Encontrar o aluno mais baixo e mais alto e informar seu codigo
// Autor : Thiego Moura
// Data : 28/04/2015
// Seção de Declarações 
var
x,h,n:inteiro
ma,me,nma,nme:inteiro
inicio
// Seção de Comandos
escreval("Digite 5 conjuntos de 2 valores, o primeiro representando o número")
escreval("de um aluno, e o segundo representando a sua altura em centímetros")
para x de 1 ate 5 faca
escreva(x,"º conjunto n: ")
leia(n)
escreva(" h: ")
leia(h)
se x = 1 entao
ma<-h
me<-h
nma<-n
nme<-n
senao
se h > ma entao
ma<-h
nma<-n
senao
se h < me entao
me<-h
nme<-n
fimse
fimse
fimse
fimpara
escreval(" ")
escreval("O número do aluno mais alto é: ",nma," e sua altura é: ",ma)
escreval("O número do aluno mais baixo é: ",nme," e sua altura é: ",me)
fimalgoritmo
algoritmo "semnome"
// Função :
// Autor :
// Data : 28/04/2015
// Seção de Declarações 
var
h,c,x,avg,avgm,ma,me,qtdm:inteiro
inicio
// Seção de Comandos 
escreval("Digite um conjunto de 50 informações contendo cada uma delas, a altu-")
escreval("ra e o sexo de uma pessoa (código=1, masculino código=2, feminino)")
para x de 1 ate 50 faca
repita
escreva(x,"º conjunto, altura: ")
leia(h)
escreva(" sexo (M=1 e F=2): ")
leia(c)
ate (h>=0) e (c=1) ou
(c=2)
se x = 1 entao
ma<-h
me<-h
fimse
se c=2 entao
avgm<-avgm+h
qtdm<-qtdm+1
fimse
se h > ma entao
ma<-h
fimse
se h < me entao
me<-h
fimse
avg<-avg+h
fimpara
escreval(" ")
escreval("A maior altura da turma é ",ma," e a menor é ",me)
escreval("A média das alturas das mulheres é ",avgm/qtdm)
escreval("A média das alturas da turma é ",avg/50)
fimalgoritmo
algoritmo "Ex_36"
// Função : Calcular o fatorial dos valores lidos
// Autor : Thiego Moura
// Data : 28/04/2015
// Seção de Declarações 
var
n,aux,x,y,v:inteiro
inicio
// Seção de Comandos
escreval("Quantos valores deveram ser lidos a seguir: ")
leia(n)
para x de 1 ate n faca
escreval("Digite o",x,"º valor: ")
leia(v)
aux<-v
se v = 0 entao
escreval(" 0, o fatorial é 1")
senao
 para y de (v-1) ate 1 passo-1 faca
 aux<-aux*y
 fimpara
escreval(v,", o fatorial é",aux)
fimse
fimpara
fimalgoritmo
algoritmo "Ex_37"
// Função : Mostrar os 20 primeiros termos da série
// Autor : Thiego Moura
// Data : 28/04/2015
// Seção de Declarações 
var
x,y:inteiro
inicio
// Seção de Comandos
escreva("Digite o valor de X: ")
leia(x)
escreval("Os 20 primeiros termos da série é")
para y de 1 ate 20 faca
escreval(x*y)
fimpara
fimalgoritmo
algoritmo "Ex_38"
// Função : Calcular o produto dos números primos entre 92 e 1478
// Autor : Thiego Moura
// Data : 28/04/2015
// Seção de Declarações 
var
soma,x,y,cont:inteiro
inicio
// Seção de Comandos
escreval("Os números primos entre 92 e 1478 são: ")
para x de 92 ate 1478 faca
 para y de x ate 1 passo-1 faca
 se (x mod y )= 0 entao
 cont<-cont+1
 fimse
 fimpara
 se cont=2 entao
 escreval(x)
 soma<-soma+x
 fimse
cont<-0
fimpara
escreval(" ")
escreval("O produto dos números primos entre 92 e 1478 é: ",soma)
fimalgoritmo
algoritmo "Ex_39"
// Função : Achar os 5 primeiros números primos
// Autor : Thiego Moura
// Data : 29/04/2015
// Seção de Declarações 
var
x,y,c,p,qtd:inteiro
inicio
// Seção de Comandos
escreval("Os 5 primeiros números primos são: ")
y<-2
repita
para x de y ate 1 passo-1 faca
se x = y entao
senao
se (y mod x) = 0 entao
p<-p+x
fimse
fimse
fimpara
se p = y entao
escreval(y)
qtd<-qtd+1
fimse
p<-0
y<-y+1
se qtd = 5 entao
interrompa
fimse
ate falso
fimalgoritmo
algoritmo "Ex_40"
// Função : Escrever um algoritmo que leia um valor que indica quantos valores
//deverão serem lidos a seguir, o somatorio dos valores de 1 ate m, e o fat de m
// Autor : Thiego Moura
// Data : 30/04/2015
// Seção de Declarações 
var
n,m,x,y,z,soma,aux:inteiro
inicio
// Seção de Comandos
escreva("Quanto valores deverão ser lidos a seguir: ")
leia(n)
para x de 1 ate n faca
repita
escreva(x,"º valor: ")
leia(m)
ate m >= 0
para y de 1 ate m faca
soma<-soma+y
fimpara
aux<-m
para z de (m-1) ate 1 passo-1 faca
aux<-aux*z
fimpara
se m = entao
aux<-1
fimse
escreval("Valor lido Soma dos inteiros de 1 até",m," Fatorial de",m)
escreval(m," ",soma," ",aux)
soma<-0
fimpara
fimalgoritmo
algoritmo "Ex_41"
// Função : Calcular a média ponderada de 50 alunos
// Autor : Thiego Moura
// Data : 30/04/2015
// Seção de Declarações 
var
x,y:inteiro
avg,nt,avgp:real
inicio
// Seção de Comandos 
para x de 1 ate 50 faca
para y de 1 ate 3 faca
escreval(x,"º aluno, nota[",y," ]")
leia(nt)
se y = 1 entao
avgp<-avgp+nt*2
senao
se y = 2 entao
avgp<-avgp+nt*4
senao
avgp<-(avgp+nt*3)/10
fimse
fimse
fimpara
avg<-avg+avgp
escreval(" ")
escreval("A média é ",avgp:2:1)
se avgp >= 7 entao
escreval("Situação: Aprovado")
senao
escreval("Situação: Reprovado")
fimse
fimpara
escreval(" ")
escreval("A média geral é ",(avg/50):2:1)
fimalgoritmo
algoritmo "Ex_42"
// Função : Calcular o valor de H
// Autor : Thiego Ramos Moura
// Data : 30/04/2015
// Seção de Declarações 
var
h,n,x:inteiro
inicio
// Seção de Comandos 
escreval("H = 10 + 10 + 10 + ... + 10")
repita
escreval("Digite quantos valores serão acomulados em H: ")
leia(n)
se n < 0 entao
escreval("Digite um valor inteiro e positivo")
fimse
ate n >=0
para x de 1 ate n faca
h <- h + 10
fimpara
escreval("H = ",h)
fimalgoritmo
algoritmo "Ex_04"
// Função : Saber quando Zé será maior que Chico
// Autor : Thiego Moura
// Data : 20/04/2015
// Seção de Declarações 
var
ano,hze,hch:real
inicio
// Seção de Comandos 
hch<-150
hze<-110
ano<-0
enquanto hze<=hch faca
hch<-hch+2
hze<-hze+3
ano<-ano+1
fimenquanto
escreval("Após",ano," anos, Zé com",hze/100,"(m) de altura será maior que Chico",hch/100,"(m) de altura")
fimalgoritmo
algoritmo "Ex_43"
// Função : Ordenar valores
// Autor : Thiego Moura
// Data : 30/04/2015
// Seção de Declarações 
var
x,y:inteiro
a,b,c,d,aux:real
inicio
// Seção de Comandos 
escreval("Digite 5 grupos de valores (A,B,C,D)")
para x de 1 ate 5 faca
para y de 1 ate 4 faca
se y = 1 entao
escreval("Valor de A: ")
leia(a)
senao
se y = 2 entao
escreval("Valor de B: ")
leia(b)
senao
se y = 3 entao
escreval("Valor de C: ")
leia(c)
senao
escreval("Valor de D: ")
leia(d)
fimse
fimse
fimse
fimpara
escreval("Ordem de ditação A=",a," B=",b," C=",c," D=",d)
repita
se d > c entao
aux<-d
d<-c
c<-aux
fimse
se c > b entao
aux<-c
c<-b
b<-aux
fimse
se b > a entao
aux<-b
b<-a
a<-aux
fimse
ate (a>=b) e (b>=c) e (c>=d)
escreval("A nova ordem é A=",a," B=",b," C=",c," D=",d)
fimpara
fimalgoritmo
algoritmo "Ex_44"
// Função : Coletar dados sobre acidentes
// Autor : Thiego Moura
// Data : 05/05/2015
// Seção de Declarações 
var
est:caracter
medv,meda:real
x,cod,cont,vp,vit,maind,meind,cidma,cidme:inteiro
inicio
// Seção de Comandos
para x de 1 ate 200 faca
escreval("Digite o código da cidade: ")
leia(cod)
repita
escreval("Digite o estado(MT,SP,MG,RS e etc): ")
leia(est)
maiusc(est)
ate (est="AL") ou (est="AP") ou (est="AM") ou (est="BA") ou (est="CE") ou (est="DF") ou (est="ES") ou (est="GO") ou (est="MA") ou (est="MT") ou (est="MS") ou (est="MG") ou (est="PA") ou (est="PB") ou (est="PR") ou (est="PE") ou (est="PI") ou (est="RJ") ou (est="RN") ou (est="RS") ou (est="RO") ou (est="PR") ou (est="SC") ou (est="SP") ou (est="SE") ou (est="TO")
escreval("Digite o número de veículos de passeio (em 1992): ")
leia(vp)
escreval("Digite o número de acidentes de trânsito com vítimas (em 1992): ")
leia(vit)
se x = 1 entao
maind<-vit
meind<-vit
cidma<-cod
cidme<-cod
fimse
se vit > maind entao
maind<-vit
cidma<-cod
fimse
se vit < meind entao
meind<-vit
cidme<-cod
fimse
medv<-medv+vp
se est="rs" entao
meda<-meda+vit
cont<-cont+1
fimse
fimpara
escreval("O maior índice pertence a cidade com cod: ",cidma,"o indice é: ",maind)
escreval("O menor pertece a cidade com cod: ",cidme,"o indice é: ",meind)
escreval("A média de veiculos nas cidades brasileias é: ",medv/200)
escreval("A média de acidentes com vítimas nas cidades do Rio Grande do Sul: ",meda/cont)
fimalgoritmo
algoritmo "Ex_45"
// Função : Pesquisa entre 100 habitantes
// Autor : Thiego Moura
// Data : 05/05/2015
// Seção de Declarações 
var
s,id,h,cont,contm,conth:inteiro
medid,medhmu,medhho,p:real
inicio
// Seção de Comandos
repita
escreval("Digite o sexo (0-feminino, 1-masculino): ")
leia(s)
escreval("Digite a idade: ")
leia(id)
escreval("Digite a altura: ")
leia(h)
medid<-medid+id
se s=0 entao
medhmu<-medhmu+h
contm<-contm+1
senao
medhho<-medhho+h
conth<-conth+1
fimse
se (id>=18) e (id<=35) entao
p<-p+1
fimse
ate cont=10
escreval("Média da idade do grupo: ",meid/1000)
escreval("Média da altura das mulheres: ",medhmu/contm)
escreval("Média da altura dos homens: ",medhho/conth)
escreval("Percentual de pessoas com idade entre 18 e 35 anos: ",1000*p/100," %
cont<-cont+1
atecont = 1000
fimalgoritmo
algoritmo "Ex_46"
// Função : Pesquisa de caracteristas de uma população
// Autor : Thiego Moura
// Data : 05/05/2015
// Seção de Declarações 
var
s,o,c:caracter
x,maid,qtd,id:inteiro
inicio
// Seção de Comandos
repita
repita
escreval(x+1,"º pessoa")
escreval("Digite o sexo (M-Masculino F-Feminino): ")
leia(s)
ate (s="m") ou (s="f")
repita
escreval("Digite a cor dos olhos (A-Azuis, V-Verdes e C-Castanhos): ")
leia(o)
ate (o="a") ou (o="v") ou (o="c")
repita
escreval("Digite a cor dos cabelos (L-Louros, C-Castanhos e P-Pretos): ")
leia(c)
ate (c="l") ou (c="c") ou (c="p")
escreval("Digite a idade: ")
leia(id)
se x=0 entao
maid<-id
fimse
se (s="f") e (o="v") e (c="l") e (id>=19) e (id<=35) entao
qtd<-qtd+1
fimse
x<-x+1
limpatela
ate x=500
escreval("A maior idade do grupo é: ",maid)
escreval("A quantidade de indivíduos do sexo feminino, cuja idade está entre
escreval("18 e 35 anos e que tenham olhos verdes e cabelos louros é: ",qtd)
fimalgoritmo
algoritmo "Ex_46"
// Função : Pesquisa de caracteristas de uma população
// Autor : Thiego Moura
// Data : 05/05/2015
// Seção de Declarações 
var
n:caracter
v:real
x:inteiro
inicio
// Seção de Comandos
repita
escreval(x+1,"º Cliente")
escreval("Digite o nome: ")
leia(n)
escreval("Digite o valor das compras: ")
leia(v)
se v < 500 entao
v <- v*10/100
senao
v <- v*15/100
fimse
escreval(n," o seu bônus é de ",v)
escreval(" ")
x<-x+1
ate x=150
escreval("A maior idade do grupo é: ",maid)
escreval("A quantidade de indivíduos do sexo feminino, cuja idade está entre
escreval("18 e 35 anos e que tenham olhos verdes e cabelos louros é: ",qtd)
fimalgoritmo
algoritmo "Ex_48"
// Função : Mostrar os conceitos finais de alunos
// Autor : Thiego Moura
// Data : 05/05/2015
// Seção de Declarações 
var
m,x:inteiro
nt:real
inicio
// Seção de Comandos
repita
escreval("Digite a matricula do ",x+1,"º aluno")
leia(m)
escreval("Nota final: ")
leia(nt)
se (nt>=0) e (nt<5) entao
escreval("Seu conceito é D")
senao
se nt<7 entao
escreval("Seu conceito é C")
senao
se nt<9 entao
escreval("Seu conceito é B")
senao
escreval("Seu conceito é A")
fimse
fimse
fimse
x<-x+1
ate x=75
fimalgoritmo
algoritmo "Ex_49"
// Função : Calcular o fatorial
// Autor : Thiego Moura
// Data : 05/05/2015
// Seção de Declarações 
var
n,x,aux:inteiro
inicio
// Seção de Comandos
repita
escreval("Digite um valor inteiro e positivo: ")
leia(n)
ate n>=0
aux<-n
para x de n ate 2 passo -1 faca
aux<-aux*(x-1)
fimpara
escreval("O fatorial de ",n," é ",aux)
fimalgoritmo
algoritmo "Ex_50"
// Função : Calcular a função potência
// Autor : Thiego Moura
// Data : 05/05/2015
// Seção de Declarações 
var
x,y:inteiro
inicio
// Seção de Comandos
escreval("Digite 2 valores inteiros e positivos")
escreva("X: ")
leia(x)
escreva("Y: ")
leia(y)
escreval("A função potência de",x," por ",y," é ",x^y)
fimalgoritmo
algoritmo "Ex_51"
// Função : Calcular o fatorial de um número
// Autor : Thiego Moura
// Data : 05/05/2015
// Seção de Declarações 
var
x,n,aux:inteiro
inicio
// Seção de Comandos
repita
escreval("Digite um número inteiro e positivo: ")
leia(n)
ate n>=0
aux<-n
escreval(n,"!")
para x de n ate 2 passo-1 faca
aux<-aux*(x-1)
se x = n entao
escreva(n)
fimse
escreva(" x ",x-1)
se x = 2 entao
escreva(" = ",aux)
fimse
fimpara
se n = 0 entao
aux<-1
fimse
se n = 1 entao
aux<-1
fimse
fimalgoritmo
algoritmo "Ex_53"
// Função : Achar os 20 primeiros números primos
// Autor : Thiego Moura
// Data : 29/04/2015
// Seção de Declarações 
var
x,y,c,p,qtd:inteiro
inicio
// Seção de Comandos
escreval("Os 20 primeiros números primos são: ")
escreval("1")
escreval("2")
escreval("3")
y<-2
repita
para x de y ate 1 passo-1 faca
se x = y entao
senao
se (y mod x) = 0 entao
p<-p+x
fimse
fimse
fimpara
se p = y entao
escreval(y)
qtd<-qtd+1
fimse
p<-0
y<-y+1
se qtd = 17 entao
interrompa
fimse
ate falso
fimalgoritmo
algoritmo "Ex_05"
// Função : Média aritmética de valores inteiros positivos
// Autor : Thiego Moura
// Data : 20/04/2015
// Seção de Declarações 
var
v,c:inteiro
m:real
inicio
// Seção de Comandos 
v<-1
m<-0
c<-0
enquanto v > 0 faca
escreval("Digite um valor inteiro e positivo: ")
leia(v)
se v < 0 entao
senao
m<-m+v
c<-c+1
fimse
fimenquanto
escreval("A média aritmética dos valores digitados é: ",m/c)
fimalgoritmo
algoritmo "Ex_54"
// Função : Dividir os intervalos de
// Autor : Thiego Moura
// Data : 05/05/2015
// Seção de Declarações 
var
a,b,aux:inteiro
inicio
// Seção de Comandos 
escreval("Digite o primeiro número: ")
leia(a)
escreval("Digite o segundo número: ")
leia(b)
se a>b entao
aux<-a-b
senao
aux<-b-a
fimse
escreval("O intervalo dos dois números dividido por 3 é: ",aux/3)
fimalgoritmo
algoritmo "Ex_06"
// Função : Urna eleitoral
// Autor : Thiego Moura
// Data : 20/04/2015
// Seção de Declarações 
var
ca,cb,cc,cd,cnulo,cbranco,v:inteiro
inicio
// Seção de Comandos
ca<-0
cb<-0
cc<-0
cd<-0
cnulo<-0
cbranco<-0
repita
escreval("Digite o número referente ao seu voto: ")
leia(v)
escolha v
caso 0
escreval("Votação encerrada")
caso 1
escreval("Voto registrado para o candidato A")
ca<-ca+1
caso 2
escreval("Voto registrado para o candidato B")
cb<-cb+1
caso 3
escreval("Voto registrado para o candidato C")
cc<-cc+1
caso 4
escreval("Voto registrado para o candidato D")
cd<-cd+1
caso 5
escreval("Voto nulo")
cnulo<-cnulo+1
caso 6
escreval("Voto em branco")
cbranco<-cbranco+1
outrocaso
escreval("Voto nulo")
cnulo<-cnulo+1
fimescolha
ate v=0
escreval(" ")
escreval("Total de votos")
escreval("Candidato A: ",ca)
escreval("Candidato B: ",cb)
escreval("Candidato C: ",cc)
escreval("Candidato D: ",cd)
escreval("Votos nulos: ",cnulo)
escreval("Votos em branco: ",cbranco)
fimalgoritmo
algoritmo "Ex_08"
// Função : Média de números pares
// Autor : Thiego Moura
// Data : 21/04/2015
// Seção de Declarações
var
m,n,c:inteiro
inicio
// Seção de Comandos
n<-1
m<-0
c<-0
enquanto n <> 0 faca
escreval("Digite um número: ")
leia(n)
 se (n mod 2 = 0) e (n <> 0) entao
 m<-m+n
 c<-c+1
 fimse
fimenquanto
escreval("A média dos número pares digitados é: ",m/c)
fimalgoritmo
algoritmo "Ex_09"
// Função : Achar o maior e menor entre 50 valores
// Autor : Thiego Moura
// Data : 21/04/2015
// Seção de Declarações 
var
ma,me,v,c:real
inicio
// Seção de Comandos
escreval("Digite 50 valores: ")
leia(v)
c<-1
ma<-v
me<-v
enquanto c < 50 faca
leia(v)
se v > ma entao
ma<-v
fimse
se v < me entao
me<-v
fimse
c<-c+1
fimenquanto
escreval("O maior valor é: ",ma)
escreval("O menor valor é: ",me)
fimalgoritmo
algoritmo "Ex_10"
// Função : Média pondeirada de um aluno
// Autor : Thiego Moura
// Data : 21/04/2015
// Seção de Declarações 
var
n1,n2,n3,ma,aux1,aux2,med:real
cod:inteiro
inicio
// Seção de Comandos
cod<-1
repita
escreval("Digite o código do aluno: ")
leia(cod)
se cod=0 entao
interrompa
fimse
escreval("Digite a primeira nota: ")
leia(n1)
escreval("Digite a segunda nota: ")
leia(n2)
escreval("Digite a terceira nota: ")
leia(n3)
ma<-n1
aux1<-n2
aux2<-n3
se n2>ma entao
ma<-n2
aux1<-n1
aux2<-n3
fimse
se n3>ma entao
ma<-n3
aux1<-n1
aux2<-n3
fimse
escreval(" ")
escreval("O código do aluno é: ", cod)
escreval("Suas notas são: ",n1,",",n2," e",n3)
med<-((ma*4)+(aux1*3)+(aux2*3))/10
escreval("Sua média ponderada é: ",med)
se med>=5 entao
 escreval("Situação: APROVADO")
senao
 escreval("Situação: REPROVADO")
fimse
escreval(" ")
ate falso
fimalgoritmo
�