<html>
<head>
<style><!--
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 10pt;
font-family:Tahoma
}
--></style></head>
<body class='hmmessage'><div dir='ltr'>
<div>Olá,</div><div><br></div>O método de ordenação por seleção normal (onde o menor elemento é encontrado e colocado na primeira posição e assim consecutivamente até que todo o vetor seja ordenado) é dado pelo algoritmo:<div><br></div><div><div>selecao<-function(vet)</div><div>{</div><div> tam<-length(vet)</div><div><br></div><div><br></div><div> for(i in 1:tam)</div><div> {</div><div> pm<-which.min(vet[i:tam])</div><div> pm<-pm+i-1 </div><div> temp<-vet[i] </div><div> vet[i]<-vet[pm] </div><div> vet[pm]<-temp</div><div> }</div><div><br></div><div> return(vet)</div><div>}</div></div><div><br></div><div>Como posso alterar esse código para que a busca seja feita pelo maior elemento e este seja colocado na última posição?</div><div><br></div><div>Pensei em algo assim:</div><div><br></div><div><div>selecao<-function(vet)</div><div>{</div><div> tam<-length(vet)</div><div><br></div><div><br></div><div> for(i in tam:1)</div><div> {</div><div> pm<-which.max(vet[tam:i])</div><div> pm<-pm+ ??</div><div> temp<-vet[i] </div><div> vet[i]<-vet[pm] </div><div> vet[pm]<-temp</div><div> </div><div> }</div><div><br></div><div> return(vet)</div><div>}</div></div><div><br></div><div><br></div><div>Porém, não sei que atribuição dar ao novo pm para que a ultima colocação seja desconsiderada.</div><div><br></div><div>Agradeço desde já!</div><div><br></div><div>Att,</div><div>Jackeline</div> </div></body>
</html>