1)faça um algoritmo que receba valores positivos e finalize se receber um numero negativo.
algoritmo "computeiros"
// Função :
// Autor :
// Data : 25/04/2015
// Seção de Declarações
var
NUM:REAL
inicio
// Seção de Comandos
ESCREVAL("DIGITE VALORES OU NUMERO NEGATIVO PARA SAIR")
LEIA(NUM)
ENQUANTO NUM > 0 FACA
ESCREVAL("DIGITE VALORES OU NUMERO NEGATIVO PARA SAIR")
LEIA(NUM)
NUM<-NUM+1
FIMENQUANTO
fimalgoritmo
2)faça um algoritmo que receba a matricula, nome e conceito da nota de 75 alunos ex:
0 á 4,9 conceito D, de 5 á 6,9 conceito C, de 7 á 8,9 conceito B e de 9 á 10 conceito A.
algoritmo "conceito de nota"
// Função :
// Autor :
// Data : 30/04/2015
// Seção de Declarações
var
i,nm:inteiro
nome: caracter
nf :real
inicio
para i de 1 ate 3 faca
escreval("")
escreval("digite o numero da matricula")
leia(nm)
escreval ("digite o nome do aluno")
leia (nome)
escreval("digite a nota final para saber o conceito da nota")
leia(nf)
escolha nf
caso 0,0 ate 4,9 ,
escreval("conceito D")
caso 5,0 ate 6,9 ,
escreval("")
escreval("conceito C")
caso 7,0 ate 8,9 ,
escreval("")
escreval("conceito B")
caso 9,0 ate 10 ,
escreval("")
escreval("conceito A")
fimescolha
fimpara
i<-nm+1
fimalgoritmo
3)Faça um algoritmo que calcule o fatorial de um numero inteiro e positivo
algoritmo "semnome"
// Função :
// Autor :
// Data : 30/04/2015
// eção de Declarações
var
i,num,fator:inteiro
inicio
fator<-1
escreval("digite um numero inteiro e positivo para fatorar:")
leia(num)
se num <=0 entao
escreval("numero invalido")
fimalgoritmo
senao
para i de 1 ate num faca
fator<-fator*i
fimpara
escreval(" o fatorial de ",num," é:",fator)
fimse
fimalgoritmo
4)faça um algoritmo que receba uma pesquisa com o numero de entrevistados que o usuário definir e depois mostre a maior e a menor idade e quantas mulhres do sexo feminino recebem até 1000 reais
algoritmo "pesquisa"
var
i,h,ms,p,idade:inteiro
maior,menor,salario,soma,media:real
sexo:literal
inicio
menor <- 9999
escreval("Digite a quantidade de pessoas que fara a pesquisa: ")
leia(p)
para i de 1 ate p faca
escreval("Digite idade: ")
leia(idade)
escreval("Digite Sexo (M/F): ")
leia(sexo)
escreval("Digite Salario: ")
leia(salario)
soma <- soma + salario
media <- soma/p
se idade > maior entao
maior <- idade
fimse
se idade < menor entao
menor <- idade
fimse
se (sexo="f")e(salario<=1000)entao
ms <- ms + 1
fimse
se sexo="m" entao
h <- h + 1
fimse
escreval(" ")
fimpara
escreval("A Média de salário do grupo é de: ",media)
escreval("A Maior idade é : ",maior," e a menor é de: ",menor)
escreval("A Quantidade de mulheres com salário até R$100 é de :",ms)
fimalgoritmo
5) Escreva um algoritmo que gere o números de 1000 a 1999 e escreva aqueles que dividido por 11 dão resto igual a 5.
algoritmo "5"
var
num: inteiro
inicio
// Seção de Comandos
para num de 1000 ate 1999 faca
se (num % 11 = 5) entao
escreval (num)
fimse
fimpara
fimalgoritmo
0 comentários: