Exrcicios algoritmos visual g

LUCIANO RENNER DA CRUZ

Trabalho

1. Construa um algoritmo que leia vários números e mostre quantos números foram lidos. O algoritmo encerra quando digitado o número zero.

algoritmo "numero"

var cont,num:inteiro

inicio

repita

escreval ("Digite os números, para encerrar digite 0.")

leia(num)

cont<-cont+1

ate num=0

fimrepita

escreval ("Você digitou ",cont," números.")

fimalgoritmo

1. Escreva um algoritmo que receba vários números, calcule e informe a média, a soma e a quantidade de números recebidos. O algoritmo encerra quando digitado o número zero.

algoritmo "números_soma_media"

var cont,num:inteiro

soma,media:real

inicio

repita

escreval ("Digite os números, para encerrar digite 0.")

leia(num)

cont<-cont+1

soma<-soma+num

ate num=0

fimrepita

media<-soma/cont

escreval ("A soma dos números é ",soma)

escreval ("A média dos números é ",media)

fimalgoritmo

1. Elabore um algoritmo que recebe o sexo dos alunos de um determinado colégio e informe o número de alunas e alunos separados e o número de digitações inválidas. O algoritmo encerra quando digitado “fim”.

algoritmo "numero"

var contm,contf,conti,num:inteiro

fim,sexo:literal

inicio

repita

escreval ("Digite o sexo do(a) Aluno(a), se masculino(m) ou feminino(f):")

leia(sexo)

se sexo = "m" entao

contm<-contm+1

fimse

se sexo = "f" entao

contf<-contf+1

fimse

se (sexo<>"m") e (sexo<>"F") entao

conti<-conti+1

fimse

ate sexo="fim"

fimrepita

escreval ("O número de meninos é: ",contm)

escreval ("O número de meninas é: ",contf)

escreval ("O número de entradas inválidas é: ",conti)

fimalgoritmo

1. Construa um algoritmo que receba o estado civil (c | s | v) de um grupo de pessoas, calcule e informe a quantidade de solteiros, casados, viúvos, o número de digitações válidas e inválidas. O algoritmo encerra quando digitado “fim”

algoritmo "numero"

var contc,conte,conts,contv,conti:inteiro

fim,est:literal

inicio

contc<-0

conte<-0

conts<-0

contv<-0

conti<-0

repita

escreval ("Digite o estado civil da pessoa")

leia(est)

se est = "c" entao

contc<-contc+1

fimse

se est = "s" entao

conts<-conts+1

fimse

se est = "v" entao

contv<-contv+1

fimse

se (est<>"c") e (est<>"s") e (est<>"v") e (est<>"fim") entao

conti<-conti+1

fimse

ate est="fim"

fimrepita

conte<-conts+contv+contc

escreval ("O número de casados é: ",contc)

escreval ("O número de solteiros é: ",conts)

escreval ("O número de viuvos é: ",contv)

escreval ("O número de entradas válidas é: ",conte)

escreval ("O número de entradas inválidas é: ",conti)

fimalgoritmo

1)Calcular a área de um retângulo.

2)Calcular a área de um círculo.

3)Ler a idade de uma pessoa expressa em anos, meses e dias e mostrar expressa apenas em dias.

4) Ler 5 valores, calcular e mostrar a média aritmética destes valores. Se o resultado for maior que 100, mostrar a palavra “Maior”, senão mostrar “Menor”.

5) Escreva um algoritmo que receba um número e mostre a sua metade somente

quando ela for maior que cinquenta.

6) Escreva um algoritmo que receba um número e mostre o número, se ele estiver entre quinze (inclusive) e quarenta.

7)Escreva um algoritmo que receba dois números e informe a diferença do maior pelo menor.

8)Construa um algoritmo que receba trinta números e mostre a soma total dos números recebidos.

9)Construa um algoritmo que receba quinze números quaisquer e informe qual o maior e o menor entre os números que foram lidos.

10) Escreva um algoritmo que receba 100 números, e conte quantos deles estão no intervalo [10, 20] e quantos deles estão fora do intervalo, escrevendo estas informações.

1-

algoritmo "ratangulo"

var base,altura,area:real

inicio

escreval ("Digite o valor da base e da altura do Retângulo:")

leia(base,altura)

area<-base*altura

escreval ("O valor da area do Retângulo é:", area)

fimalgoritmo

[pic 1]

2-

algoritmo "circulo"

var raio,area:real

inicio

escreval ("Digite o valor do raio do circulo:")

leia(raio)

area<-pi*(raio^2)

escreval ("O valor da area do Circulo é:", area)

fimalgoritmo

[pic 2]

3-

algoritmo "idade"

var anos,meses,dia,totaldias:inteiro

inicio

escreval ("Digite quantos anos, meses e dias a pessoa tem:")