ATPS DE ALGORITIMO - PROGRAMAÇÃO VISUAL G

ATPS DE ALGORITIMO - PROGRAMAÇÃO VISUAL G

1) Desenvolva um programa em VISUALG que apresente os números múltiplos de 5 no intervalo de 20 a 100 e ao final apresente o total de números apresentados.

algoritmo "exercicio1"

var

x, tabuada: inteiro

inicio

// Seção de Comandos

para x de 1 ate 20 passo 1 faca

tabuada<-x*5

se(tabuada >=20) e (tabuada <=100)entao

escreval("Os multiplos são: ", tabuada)

fimse

fimpara

fimalgoritmo

2) Desenvolva um programa em VISUALG para ler a idade de um conjunto de alunos do ensino fundamental e apresentar ao final a média das idades informadas.

algoritmo "exercicio2"

var

x, num1, num: inteiro

media, soma: real

inicio

// Seção de Comandos

escreval("Digite a quantidade de alunos")

leia(num)

para x de 1 ate num passo 1 faca

escreva("Digite a idade de cada aluno: ")

leia(num1)

soma<-soma+num1

fimpara

media<-soma/num

escreval("A média das idades é: ", media)

fimalgoritmo

3) Desenvolva um programa em VISUALG para apresentar a maior e menor nota de uma turma de 30 alunos. Ao final o programa deverá informar o nome e a nota correspondente.

algoritmo "exercicio3"

var nome: vetor[1..30] de caracter

nota: vetor[1..30] de real

soma, maior, menor : real

x, posicaom, posicaon : inteiro

inicio

maior<- 0

menor<- 99

soma<- 0

para x de 1 ate 30 faca

escreva(x," - Digite o nome do aluno: ")

leia(nome[x])

escreva(x," - Digite a nota do aluno: ")

leia(nota[x])

escreval("")

se(nota[x] >= maior) entao

maior<- nota[x]

posicaom<- x

fimse

se(nota[x] <= menor) entao

menor<- nota[x]

posicaon<- x

fimse

fimpara

escreval("")

escreval("")

escreval("A maior nota é:", maior)

escreval("")

escreval("A menor nota é:", menor)

escreval("")

para x de 1 ate 30 faca

escreval(x," Aluno: ", nome[x])

escreval("Nota: ", nota[x])

fimpara

escreval("")

fimalgoritmo

4) Desenvolva um programa em VISUALG para testar o resultado de um exame realizado, considerando os seguintes parâmetros:

RESULTADO VALORES

Normal: Valor A deve ser maior que 1.5 e Valor B deve ser menor ou igual a 5.0;

Deficiente: Valor A deve ser menor que 1.5 e Valor B deve ser menor ou igual a 5.0 ou valor C deve ser menor que 0.5;

Insuficiente: Valor A deve ser maior que 1.5 e Valor C deve ser menor que 1 ou Valor B deve ser maior que 5.0;

O programa deverá receber 3 valores e informar o resultado. Deve-se repetir o procedimento para 5 pacientes.

algoritmo "exercicio4"

var

normal, deficiente, insuficiente: real

A, B, C: real

x: inteiro

inicio

para x de 1 ate 5 faca

escreval("Paciente:", x)

escreval("Entre com o valor A: ")

leia(A)

escreval("Entre com o valor B: ")

leia(B)

escreval("Entre com o valor C: ")

leia(C)

se(A > 1.5) e (B <= 5.0)entao

escreval("NORMAL")

escreval("")

senao

se(A < 1.5) e (B <= 5.0) ou (C < 0.5)entao

escreval("DEFICIENTE")

escreval("")

senao

se(A > 1.5) e (C <= 1.0) ou (B > 5.0)entao

escreval("INSUFICIENTE")

escreval("")

fimse