Algoritmos Resolvidos VisualG e dicas de programação: outubro 2017

segunda-feira, 30 de outubro de 2017

3.26 Numa eleição existem três candidatos. Faça um programa que peça o número total de eleitores. Peça para cada eleitor votar e ao final mostrar o número de votos de cada candidato

Algoritmo "ALGORITMO 3.26"
//3.26 Numa eleição existem três candidatos. Faça
//um programa que peça o número total de eleitores.
//Peça para cada eleitor votar e ao final mostrar o
//número de votos de cada candidato
Var
// Seção de Declarações das variáveis
I,QTDELEITOR,VOTO,CAND1,CAND2,CAND3,NULO:INTEIRO

Inicio
// Seção de Comandos, procedimento, funções, operadores, etc...
ESCREVAL("QUAL A QUANTIDADE DE ELEITORES?")
LEIA(QTDELEITOR)
ESCREVAL("--------------------------------------")
PARA I:=1 ATE QTDELEITOR FACA
ESCREVAL("ELEITOR NUMERO: ",I)
ESCREVAL("DIGITE O NUMERO DO SEU CANDIDATO")
ESCREVAL("DIGITE 1 - PARA O CANDIDATO 01")
ESCREVAL("DIGITE 2 - PARA O CANDIDATO 02")
ESCREVAL("DIGITE 3 - PARA O CANDIDATO 03")
ESCREVAL("--------------------------------------")
LEIA(VOTO)
SE VOTO = 1 ENTAO
CAND1:=CAND1+1
SENAO
SE VOTO =2 ENTAO
CAND2:=CAND2+1
SENAO
SE VOTO=3 ENTAO
CAND3:=CAND3+1
SENAO
NULO:=NULO+1
FIMSE
FIMSE
FIMSE
FIMPARA
LIMPATELA
ESCREVAL("--------------------------------------")
ESCREVAL("O NUMERO DE ELEITORES É: ",QTDELEITOR)
ESCREVAL("--------------------------------------")
ESCREVAL("O CANDIDATO 1 RECEBEU: ",CAND1,"VOTOS")
ESCREVAL("--------------------------------------")
ESCREVAL("O CANDIDATO 2 RECEBEU: ",CAND2,"VOTOS")
ESCREVAL("--------------------------------------")
ESCREVAL("O CANDIDATO 3 RECEBEU: ",CAND3,"VOTOS")
ESCREVAL("--------------------------------------")
ESCREVAL("HOUVERAM: ",NULO," VOTOS NULOS")

Fimalgoritmo

quinta-feira, 26 de outubro de 2017

3.20 Altere o programa de cálculo do fatorial, permitindo ao usuário calcular o fatorial várias vezes e limitando o fatorial a números inteiros positivos e menores que 16.

algoritmo "3.20"
var
//Altere o programa de cálculo do fatorial, permitindo ao usuário calcular o fatorial várias vezes e limitando o //fatorial a números inteiros positivos e menores que 16.

OP:CARACTER
FAT,I,N:INTEIRO
inicio
ENQUANTO OP<>"S" FACA
ESCREVAL("-----------------------------------------")
ESCREVAL("DIGITE UM NUMERO PARA ACHAR O FATORIAL")
ESCREVAL("----------------------------------------------")
ESCREVAL("VOCE DEVE DIGITAR UM NUMERO MAIOR QUE UM E MENOR QUE 16")
LEIA(N)
FAT:=1
SE ((N>=1) E (N<=16)) ENTAO
PARA I:=1 ATE N FACA
FAT:=FAT*I
FIMPARA
ESCREVAL("O VALOR DO FATORIAL DE ",N," É: ",FAT)
ESCREVAL("--------------------------------------")
SENAO
ESCREVAL("-------------------------------------")
ESCREVAL("VOCÊ DIGITOU UM NUMERO FORA DA FAIXA")
ESCREVAL("VOCE DEVE DIGITAR UM NUMERO MAIOR QUE UM E MENOR QUE 16")
FIMSE
ESCREVAL("SE DESEJAR SAIR DIGITE S")
LEIA(OP)
FIMENQUANTO
ESCREVAL("OBRIGADO POR USAR O PROGRAMA")
fimalgoritmo

quarta-feira, 25 de outubro de 2017

Algoritmo 3.21

Algoritmo "Algoritmo 3.21"
//3.21 Faça um programa que peça um número inteiro e determine se ele é
//ou não um número primo.
//Um número primo é aquele que é divisível somente por ele mesmo e por 1.
// Professor : Angelo da Cunha Sá
// Data atual : 25/10/2017
Var
// Seção de Declarações das variáveis
n,a,i:inteiro
Inicio
// Seção de Comandos, procedimento, funções, operadores, etc...
escreval("digite um numero")
leia(n)
para i:=1 ate n faca
se n mod i = 0 entao
a:=a+1
fimse
fimpara
se a<=2 entao
escreval("Este numero é primo")
senao
escreval("Este numero não é primo")
fimse
Fimalgoritmo

Exercicio 3.17

Algoritmo "Exercicio 3.17"
//3.17 Faça um programa que calcule o fatorial de um número
//inteiro fornecido pelo usuário. Ex.:
//5!=5.4.3.2.1=120
// Disciplina : ALGORITMOS
// Professor : ANGELO DA CUNHA SÁ
Var
n,fat,i:inteiro
Inicio
Escreval("Algoritmo para calcular o fatorial")
Escreval("Digite o numero desejado")
Leia(N)
Fat:=1
para i:=1 ate n faca
fat:=fat*i
fimpara
Escreval("O fatorial é:.. ",fat)
Fimalgoritmo

Exercicio 3.17

Exercício 3.4

algoritmo "ALGORITMO 3.4"
// Função :
// Autor :
// Data : 12/10/2016
// Seção de Declarações
var
POPULACAOA, POPULACAOB:REAL
CALCULO:INTEIRO
inicio
// Seção de Comandos
POPULACAOA <- 80000
POPULACAOB <- 200000
REPITA
POPULACAOA <- POPULACAOA * 1.03
POPULACAOB <- POPULACAOB * 1.015
CALCULO <- CALCULO+1
ATE ( POPULACAOA >= POPULACAOB)
ESCREVAL ("-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-")
ESCREVAL
ESCREVAL ("O RESULTADO É DE:", CALCULO, " ANOS")
ESCREVAL
fimalgoritmo

domingo, 22 de outubro de 2017

Exercicio 3.3 ou 4.3 da lista de repetição

//3.3 Faça um programa que leia e valide as seguintes informações:
// a. Nome: maior que 3 caracteres;
// b. Idade: entre 0 e 150;
// c. Salário: maior que zero;
//d. Sexo: 'f' ou 'm';
//e. Estado Civil: 's', 'c', 'v', 'd';

Algoritmo "exercicio 3.3"
// Autor(a) : Ângelo da Cunha Sá
// Data atual : 22/10/2017
Var
// Seção de Declarações das variáveis
nome,sexo,estcivil:caracter
tamnome,idade,salario:inteiro

Inicio
enquanto tamnome <= 3 faca
escreval("Você precisa digitar um nome com mais de três caracteres")
escreval("Digite o nome do usuário:.. ")
leia(nome)
tamnome:=compr(nome)
escreval("O nome que você digitou tem",tamnome," caracteres")
fimenquanto
escreval("---------------------------------------------------------")
escreval("---------------------------------------------------------")
repita
Escreval("Digite a idade do usuário.")
escreval("A idade deve estar entre 0 e 150 anos")
Leia(idade)
ate (idade>0) e (idade<150)
escreval("---------------------------------------------------------")
escreval("---------------------------------------------------------")
repita
Escreval("Digite o salario do usuário")
escreval("O salário deve ser maior que zero")
Leia(salario)
ate (salario>0)
escreval("---------------------------------------------------------")
escreval("---------------------------------------------------------")
enquanto (sexo<> "m") e (sexo<>"f") faca // ou (sexo=<> f) faca
escreval("Digite o sexo do usuário: ")
escreval("Você precisa digitar F ou M")
leia(sexo)
fimenquanto
escreval("---------------------------------------------------------")
escreval("---------------------------------------------------------")
enquanto (estcivil<> "c") e (estcivil<>"d") e (estcivil<> "s") e (estcivil<>"v") faca // ou (sexo=<> f) faca
escreval("Digite o estado civil do usuário: ")
escreval("Digite C - Casado")
escreval("Digite S - Solteiro")
escreval("Digite V - Viuvo")
escreval("Digite D - Divorciado")
escreval("Você precisa digitar C ou D ou V ou S")
leia(estcivil)
fimenquanto
escreval("---------------------------------------------------------")
escreval("---------------------------------------------------------")
escreval("O Nome do usuário é: ",nome)
escreval
escreval("O tamanho do nome é:..",tamnome)
escreval
escreval("A idade do usuário é:..",idade," anos")
escreval
escreval("O salário do usuário é: ",salario)
escreval
escreval("O sexo do usuário é: ",sexo)
escreval
escreval("O Estado civil do usuário é: ",estcivil)
Fimalgoritmo