Algorítimo de verificação de maior ou menor número.

• Download Maior_Menor.txt
• Enviar nova versão

Esconder código-fonte

algoritmo "maior_menor"
// Função : verificar qual maior número
// Autor : Osandi augusto
// Data : 8/14/2009
// Seção de Declarações
var
vet:vetor[0..10] de inteiro
y, x, tam,maior,menor:inteiro
inicio
tam <- 3
// Seção de Comandos
para x de 0 ate tam - 1 faca
escreva("Digite seu numero: ")
leia(vet[x])
se vet[x] <= 0 entao
escreval("erro!!!, voltando ao inicio")
escreva("Digite seu numero: ")
leia(vet[x])
senao
fimse
fimpara

maior <- vet[0]
menor <- vet[0]

escreval("=============================")
escreval("Posição ","Valor recebido")

para y de 0 ate tam - 1 faca
se vet[y] > maior entao
maior <- vet[y]
senao
se vet[y] < menor entao
menor <- vet[y]
senao
fimse
fimse
fimpara

para x de 0 ate tam - 1 faca
escreval(" ",x," ",vet[x])
fimpara
escreval("")
escreval("O maior numero digitado foi: ",maior)

fimalgoritmo

Octave - Método de Euler para solução de EDO

Octave - Calcular raiz pelo método de Newton

Octave - Calcular raiz pelo método Regula-Falsi

Octave - Método de Runge-Kutta

Crivo de Eratóstenes Simples em Fortran 95

Nenhum comentário foi encontrado.