LISTA DE EXERCÍCIOS RESOLVIDO NO VISUALG

Prévia do material em texto

LISTA DE EXERCÍCIOS RESOLVIDO NO VISUALG 
 
 
EXERCÍCIO 1 
Descrição: Faça um programa que determina a data cronologicamente maior de duas datas 
fornecidas pelo usuário (entrada de dados). Cada data deve ser fornecida por três valores, onde 
o primeiro representa o dia, o segundo o mês e o terceiro ano. 
 
Var 
 
 dia1,mes1,ano1,dia2,mes2,ano2: inteiro 
 ano_dia1,dias1,ano_dia2,dias2,dias_num1,dias_num2:inteiro 
 
 
Inicio 
escreval("Escreva um dia:(Exemplo 17)") 
 leia(dia1) 
escreval("Escreva um Mês:(Exemplo 09)") 
 leia(mes1) 
escreval("Escreva um ano:(Exemplo 2020)") 
 leia(ano1) 
 se mes1=1 entao 
 dias_num1<-31 
 fimse 
 se mes1=2 entao 
 dias_num1<-28 
 fimse 
 se mes1=3 entao 
 dias_num1<-31 
 fimse 
 se mes1=4 entao 
 dias_num1<-30 
 fimse 
 se mes1=5 entao 
 dias_num1<-31 
 fimse 
 se mes1=6 entao 
 dias_num1<-30 
 fimse 
 se mes1=7 entao 
 dias_num1<-31 
 fimse 
 se mes1=8 entao 
 dias_num1<-31 
 fimse 
 se mes1=9 entao 
 dias_num1<-30 
 fimse 
 se mes1=10 entao 
 dias_num1<-31 
 fimse 
 se mes1=11 entao 
 dias_num1<-30 
 fimse 
 se mes1=12 entao 
 dias_num1<-31 
 fimse 
 se (mes1>=13) ou (mes1<=0) entao 
 escreval("Você errou!") 
 fimse 
 ano_dia1<-ano1*365 
 dias1<-dia1+dias_num1+ano_dia1 
 escreval ("escolha outra data:") 
 escreval("Escreva um dia:(Exemplo 17)") 
 leia(dia2) 
escreval("Escreva um Mês:(Exemplo 09)") 
 leia(mes2) 
escreval("Escreva um ano:(Exemplo 2020)") 
 leia(ano2) 
 se mes2=1 entao 
 dias_num2<-31 
 fimse 
 se mes2=2 entao 
 dias_num2<-28 
 fimse 
 se mes2=3 entao 
 dias_num2<-31 
 fimse 
 se mes2=4 entao 
 dias_num2<-30 
 fimse 
 se mes2=5 entao 
 dias_num2<-31 
 fimse 
 se mes2=6 entao 
 dias_num2<-30 
 fimse 
 se mes2=7 entao 
 dias_num2<-31 
 fimse 
 se mes2=8 entao 
 dias_num2<-31 
 fimse 
 se mes2=9 entao 
 dias_num2<-30 
 fimse 
 se mes2=10 entao 
 dias_num2<-31 
 fimse 
 se mes2=11 entao 
 dias_num2<-30 
 fimse 
 se mes2=12 entao 
 dias_num2<-31 
 fimse 
 se (mes2>=13) ou (mes2<=0) entao 
 escreval("Você errou!") 
 fimse 
 ano_dia2<-ano2*365 
 dias2<-dia2+dias_num2+ano_dia2 
 se dias1 > dias2 entao 
 escreval("A maior data é a 1:",dia1," do mes",mes1," do ano",ano1,".") 
 senao 
 escreval("A maior data é a 2:",dia2," do mes",mes2," do ano",ano2,".") 
 fimse 
 
 
 Escreval ("Fim do programa...") 
 
Fimalgoritmo 
 
EXERCÍCIO 2 
 
Faça um programa que receba dois números e execute uma das operações listadas a seguir de 
acordo com a escolha do usuário. Se for digitada uma opção inválida mostrar mensagem de 
erro e terminar a execução do programa. 
As opções são: 
1. Média entre os dois números digitados. 
2. Diferença do maior pelo menor. 
3. O produto entre os dois números. 
 
Var 
 NUM1, NUM2 : REAL 
 OPCAO : INTEIRO 
 
Inicio 
ESCREVA ("DIGITE O PRIMEIRO NUMERO:") 
 LEIA (NUM1) 
ESCREVA ("DIGITE O SEGUNDO NUMERO:") 
 LEIA (NUM2) 
ESCREVA("DIGITE A OPÇÃO:") 
 
ESCREVA ("1. MÉDIA ENTRE DOIS NÚMEROS DIGITADOS;") 
 
ESCREVA ("2. DIFERENÇA DO MAIOR PELO MENOR;") 
 
ESCREVA ("3. O PRODUTO ENTRE OS DOIS NÚMEROS.") 
 
 LEIA (OPCAO) 
 
SE (OPCAO=1) ENTAO 
 ESCREVAL ("OPÇÃO ESCOLHIDA: 1 (MÉDIA)") 
 ESCREVAL ("VALOR:", (NUM1 + NUM2)/2) 
SENAO 
 SE (OPCAO=2) ENTAO 
 ESCREVAL ("OPÇÃO ESCOLHIDA: 2 (DIFERENÇA)") 
 ESCREVAL ("VALOR: ", NUM1-NUM2) 
SENAO 
 SE (OPCAO=3) ENTAO 
 ESCREVAL ("OPÇÃO ESCOLHIDA: 3 (PRODUTO).") 
 ESCREVAL ("VALOR: ", NUM1*NUM2) 
SENAO 
 ESCREVAL ("ERRO: OPÇÃO INVÁLIDA.") 
 FIMSE 
 FIMSE 
FIMSE 
 
Fimalgoritmo 
 
EXERCÍCIO 3 
 
// Descrição : Faça um exercício com menu e soma aritmética e ponderadas 
Var 
// Seção de Declarações das variáveis 
 op: caracter 
 Nota1, nota2, nota3, peso1, peso2, peso3: inteiro 
 mediaAR: real 
 N1, N2: inteiro 
 mediaPO: real 
 somanota: inteiro 
 i: inteiro 
 
Inicio 
repita 
 Escreval ("MENU") 
 Escreval ("1 - Média aritmética") 
 Escreval ("2 - Média ponderada") 
 Escreval ("3 - Sair") 
 escreval(" ") 
 escreva ("Digite a opcao desejada: ") 
 
 leia (op) 
 
 escolha op 
 caso "1" 
 
 escreva ("Insira a primeira no 
 
EXERCÍCIO 4 
 
Descrição : Faça um programa em VisualG que calcule e mostre somente os números primos 
entre 145 e 2.56 
Var 
v : inteiro // entrada de dados, usu?rio vai digitar o valor 
 r : inteiro // resto da divisão de inteiro 
 qtdeDE : inteiro // quantidade de divisães exatas de inteiro 
 cont: inteiro 
Inicio 
 escreva("Digite um valor para verificar se é primo: ") 
 leia(v) 
 cont <- 145 
 
 enquanto (cont <= 2564) faca 
 cont <- 1 
 qtdeDE <- 0 
 enquanto (cont <= V) faca 
 r <- v MOD cont 
 se (r = 0) entao 
 qtdeDE <- qtdeDE + 1 
 fimse 
 
 cont <- cont + 1 
 fimenquanto 
 se (qtdeDE = 2) entao 
 escreval(v , " é primo") 
 senao 
 escreval(v , " não é primo") 
 fimse 
 v <- v + 1 
 
 fimenquanto 
 
 escreval("Fim do programa...") 
 
 
Fimalgoritmo 
 
EXERCÍCIO 5 
 
Escrever um algoritmo que leia dois valores inteiros distintos e informe qual é o maior. 
Var 
 
 N1,N2: INTEIRO 
 
Inicio 
 ESCREVA ("DIGITA O PRIMEIRO NUMERO") 
 LEIA(N1) 
 ESCREVA ("DIGITA O SEGUNDO NUMERO") 
 LEIA (N2) 
 SE N1 > N2 ENTAO 
 ESCREVAL("PRIMEIRO NUMERO", N1, "É MAIOR QUE O SEGUNDO", N2) 
 SENAO 
 ESCREVAL ("O SEGUNDO NUMERO", N2, "É MAIOR QUE O PRIMEIRO", N1) 
 FIMSE 
 
Fimalgoritmo 
 
EXERCÍCO 6 
 
Descrição : calcule e mostre a soma dos números pares entre 1 e 100, inclusive. 
Var 
 
 V : INTEIRO 
 SOMAPARES : INTEIRO 
 R : INTEIRO 
 
Inicio 
 PARA V DE 1 ATE 100 FACA 
 R <- V MOD 2 
 SE (R = 0) ENTAO 
 SOMAPARES <- SOMAPARES + V 
 FIMSE 
 FIMPARA 
ESCREVAL ("A SOMA DOS PARES É: ", SOMAPARES) 
ESCREVAL ("FIM DO PROGRAMA...") 
 
 
Fimalgoritmo 
 
EXERCÍCIO 7 
 
Descrição : A = ((base maior + base menor) * altura) / 2; 
// Autor(a) : WESLEM LIMA 
// Data atual : 09/08/2020 
Var 
 
BASEME, BASEMA, ALTURA, AREA: REAL 
 
 
Inicio 
 ESCREVA ("DIGITA O VALOR DA BASEME") 
 LEIA (BASEME) 
 ESCREVA ("DIGITA O VALOR DA BASEMA") 
 LEIA (BASEMA) 
 ESCREVA ("DIGITA A ALTURA DA BASE") 
 LEIA (ALTURA) 
 
 AREA <- ((basema + baseme) * altura) / 2; 
 escreval ("Zona Fazer trapézio =", AREA); 
 
 
Fimalgoritmo 
EXERCÍCIO 8 
 
Descrição: leia dois números inteiros, sabendo que o usuário irá digitar 
// dois números distintos, mostre os números em ordem crescente. 
Var 
VALOR1, VALOR2: INTEIRO 
 
Inicio 
ESCREVA ("DIGITE O PRIMEIRO NUMERO") 
 LEIA(VALOR1) 
ESCREVA ("DIGITE O SEGUNDO NUMERO") 
 LEIA(VALOR2) 
 SE (VALOR1 > VALOR2) ENTAO 
 ESCREVAL ("OS NUMERO EM ORDEM CRESCENTE É:", VALOR2, VALOR1) 
SENAO 
 SE (VALOR1 < VALOR2) ENTAO 
 ESCREVAL ("OS NUMERO EM ORDEM CRESCENTE É:", VALOR1, VALOR2) 
 SENAO 
 SE (VALOR2 < VALOR1) ENTAO 
 ESCREVAL ("OS NUMERO EM ORDEM CRESCENTE É:", VALOR2, VALOR1) 
 SENAO 
 SE (VALOR2 > VALOR1) ENTAO 
 ESCREVAL ("OS NUMERO EM ORDEM CRESCENTE É:", VALOR1, VALOR2) 
 FIMSE 
 FIMSE 
 FIMSE 
FIMSE 
 
Fimalgoritmo 
 
EXERCÍCIO 9 
 
Descrição : calcule e mostre a média dos números pares entre 1 e 100, inclusive. 
Var 
 // MEDIA - SOMA / QUANTIDADE 
 // SOMAPARES <- SOMAPARES + V 
 // QTDADEPARES <- QTDAPARES + 1 
 
 V : INTEIRO 
 SOMAPARES, QTDEPARES : INTEIRO 
 MEDIA : REAL 
 
 
Inicio 
 PARA V DE 1 ATE 100 FACA 
 SE (V MOD 2 = 0) ENTAO 
 SOMAPARES <- SOMAPARES + V 
 QTDEPARES <- QTDEPARES + 1 
 FIMSE 
FIMPARA 
 ESCREVAL ("A SOMA DOS PARES É:", SOMAPARES) 
 ESCREVAL ("A QUANTIDADE DE PARES É:", QTDEPARES) 
 ESCREVAL ("A MÉDIA DOS PARES É:", MEDIA) 
 ESCREVAL ("FIM DO PROGRAMA...") 
 
Fimalgoritmo 
 
EXERCÍCIO 10 
 
Descrição: Elabore um algoritmo que leiao sexo e a idade de uma pessoa e apresente se 
 é essa pessoa é do sexo feminino ou masculino. 
// IDADE É DO TIPO INTEIRO 
// SEXO É DO TIPO CARACTER, M OU F (MASCULINO OU FEMININO) 
Var 
 IDADE: INTEIRO // ENTRADA DE DADOS 
 SEXO: CARACTERE // ENTRADA DE DADOS 
 
 
Inicio 
 ESCREVA ("DIGITE SUA IDADE") 
 LEIA(IDADE) 
 ESCREVA ("DIGITE SEXO") 
 LEIA(SEXO) 
 
 SE (SEXO = "F") ENTAO 
 ESCREVAL ("O SEXO É FEMININO E SUA IDADE É", IDADE) 
 SENAO 
 SE (SEXO = "M") ENTAO 
 ESCREVAL ("O SEXO É MASCULINO E SUA IDADE É", IDADE) 
 SENAO 
 ESCREVAL ("VOCÊ DIGITOU O SEXO ERRADO, INEXISTENTE.") 
 FIMSE 
 
 FIMSE 
 
 
Fimalgoritmo