Jump to content


Photo

Ajuda Algoritmo


  • Faça o login para participar
2 replies to this topic

#1 Diegostf

Diegostf

    Novato no fórum

  • Usuários
  • 12 posts
  • Sexo:Não informado

Posted 26/08/2008, 11:13

Ler os nomes e as Notas de 3 Alunos, e Verificar qual a Maior delas e Imprimir um Relatorio com os Nomes e as Notas em Ordem Decrescente (Maior para Menor)


Galera eu tentei fazer mais nao sai desta parte!!


pessoa1,pessoa2,pessoa3:literal
nota_pessoa1,nota_pessoa2,nota_pessoa3,maior,menor,meio:numerico

inicio
Escreva ("Digite seu nome: ")
leia (pessoa1)
Escreva ("Digite sua nota: ")
leia (nota_pessoa1)
Escreva ("Digite seu nome: ")
leia (pessoa2)
escreva ("Digite sua nota: ")
leia (nota_pessoa2)
Escreva ("Digite seu nome: ")
leia (pessoa3)
escreva ("Digite sua nota: ")
leia (nota_pessoa3)


SE (nota_pessoa1 > nota_pessoa2) e (nota_pessoa1 > nota_pessoa3) ENTAO
maior <- nota_pessoa1
FIMSE

SE (nota_pessoa2 > nota_pessoa1) e (nota_pessoa2 > nota_pessoa3) ENTAO
maior <- nota_pessoa2
FIMSE

SE (nota_pessoa3 > nota_pessoa1) e (nota_pessoa3 > nota_pessoa2) ENTAO
maior <- nota_pessoa3
FIMSE

escreva (maior)


fimalgoritmo



Nao consigo sair dai :D
se alguem puder me ajudar

#2 Ramonius

Ramonius

    Novato no fórum

  • Usuários
  • 2 posts
  • Sexo:Não informado

Posted 28/08/2008, 13:29

Ler os nomes e as Notas de 3 Alunos, e Verificar qual a Maior delas e Imprimir um Relatorio com os Nomes e as Notas em Ordem Decrescente (Maior para Menor)


Galera eu tentei fazer mais nao sai desta parte!!


pessoa1,pessoa2,pessoa3:literal
nota_pessoa1,nota_pessoa2,nota_pessoa3,maior,menor,meio:numerico

inicio
Escreva ("Digite seu nome: ")
leia (pessoa1)
Escreva ("Digite sua nota: ")
leia (nota_pessoa1)
Escreva ("Digite seu nome: ")
leia (pessoa2)
escreva ("Digite sua nota: ")
leia (nota_pessoa2)
Escreva ("Digite seu nome: ")
leia (pessoa3)
escreva ("Digite sua nota: ")
leia (nota_pessoa3)


SE (nota_pessoa1 > nota_pessoa2) e (nota_pessoa1 > nota_pessoa3) ENTAO
maior <- nota_pessoa1
FIMSE

SE (nota_pessoa2 > nota_pessoa1) e (nota_pessoa2 > nota_pessoa3) ENTAO
maior <- nota_pessoa2
FIMSE

SE (nota_pessoa3 > nota_pessoa1) e (nota_pessoa3 > nota_pessoa2) ENTAO
maior <- nota_pessoa3
FIMSE

escreva (maior)


fimalgoritmo



Nao consigo sair dai :D
se alguem puder me ajudar


Bem, eu fiz ate aqui tambem, Está certo até aí, e eu tinha feito diferente, ma scomo voce quer que imprima os relatorios em ordem decrescente, então eu nao consegui fazer..... Vê se ajuda... nao consegui passar disso... Espero ter ajudado

algoritmo "semnome"

var aluno1,aluno2,aluno3:caracter
nota1,nota2,nota3,notamaior,notamenor,notamediana:real

inicio
escreval("forneca nome do primeiro aluno:")
leia(aluno1)
escreval("forneca a nota do primeiro aluno:")
leia(nota1)
escreval("forneca nome do segundo aluno:")
leia(aluno2)
escreval("forneca a nota do segundo aluno:")
leia(nota2)
escreval("forneca o nome do terceiro aluno:")
leia(aluno3)
escreval("forneca a nota do terceiro aluno:")
leia(nota3)
se (nota1>nota2) e (nota1>nota3) entao
notamaior<-nota1
senao
se (nota2>nota1) e (nota2>nota3) entao
notamaior<-nota2
senao
se (nota3>nota1) e (nota3>nota2) entao
notamaior<-nota3
fimse
fimse
fimse
se (nota1<nota2) e (nota1<nota3) entao
notamenor<-nota1
senao
se (nota2<nota1) e (nota2<nota3) entao
notamenor<-nota2
senao
se (nota3<nota1) e (nota3<nota2) entao
notamenor<-nota3
fimse
fimse
fimse
se (nota1<notamaior) e (nota1>notamenor) entao
notamediana<-nota1
senao
se (nota2<notamaior) e (nota2>notamenor) entao
notamediana<-nota2
senao
se (nota3<notamaior) e (nota3>notamenor) entao
notamediana<-nota3
fimse
fimse
fimse




fimalgoritmo

#3 Édipo Costa Rebouças

Édipo Costa Rebouças

    Veterano

  • Ex-Admins
  • 1079 posts
  • Sexo:Masculino
  • Localidade:Brasil - São Paulo

Posted 29/10/2008, 13:14

para ficar pequeno, receber os alunos e notas em um array de arrays, e ai ordenar os mesmos em ordem descrecente...
e depois é só mandar imprimir na ordem que vier no for.

Edição feita por: Édipo Costa Rebouças, 29/10/2008, 14:42.





1 user(s) are reading this topic

0 membro(s), 1 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq