<div dir="ltr">Prezados<div><br></div><div>Quero criar uma função na qual eu digito um conjunto de notas e no final o programa me dê a média dessas notas. O programa é interrompido quando eu digito uma nota negativa.</div>
<div><br></div><div>Estou fazendo dessa forma:</div><div><br></div><div><div>media <- function(){</div><div>soma = 0</div><div>n=0</div><div>X1= cat("Digite uma nota: ", sep="\n")</div><div>nota= scan(stdin(),n=n)</div>
<div>while (nota >= 0){</div><div>soma=soma+nota</div><div>n = n + 1</div><div>X1= cat("Digite uma nota: ", sep="\n")</div><div>nota= scan(stdin(),n=n)}</div><div>return (sprintf("%.1f",soma/2))}</div>
<div><br></div><div style>Onde posso estar errando?</div><div style><br></div><div style>Abraços</div><div><br></div>-- <br><div dir="ltr">Sérgio Henrique Almeida da Silva Junior<br>Doutorando em Epidemiologia em Saúde Pública<br>
Escola Nacional de Saúde Pública Sérgio Arouca - ENSP/FIOCRUZ<br><a href="http://lattes.cnpq.br/1611345552843383" target="_blank">http://lattes.cnpq.br/1611345552843383</a> <br>Tel: (21) 68463637<br><div><a href="http://www.linkedin.com/profile/view?id=250437145&trk=tab_pro" target="_blank">http://www.linkedin.com/profile/view?id=250437145&trk=tab_pro</a><br>
</div></div>
</div></div>