<div dir="ltr"><div><div><div>ja' q e' mesmo para fins didaticos, considere a seguinte solucao:<br><br>myexp <- function(B,C){<br> stopifnot(is.integer(C), C >= 0)<br> if (C == 0)<br> return(1)<br> B*myexp(B, C-1L)<br>
}<br></div>myexp(2, 5L)<br><br></div>b<br><br></div>ps: o L depois do 5 esta' dizendo pro R que e' p garantir que o 5 e' do tipo inteiro e nao o valor real "5".<br></div><div class="gmail_extra"><br>
<br><div class="gmail_quote">Em 20 de agosto de 2014 14:46, Felipe <span dir="ltr"><<a href="mailto:felipe.e.barletta@gmail.com" target="_blank">felipe.e.barletta@gmail.com</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div bgcolor="#FFFFFF" text="#000000">
Obrigado Marcus.<div><div class="h5"><br>
<br>
<br>
<div>On 20-08-2014 14:35, Marcus Nunes
wrote:<br>
</div>
<blockquote type="cite">
<div dir="ltr">Digite
<div><br>
</div>
<div>B</div>
<div><br>
</div>
<div>no prompt do R e perceba que o valor de B é NULL. O mesmo
vale para C. Eles não estão recebendo os valores numéricos.
Fazendo</div>
<div><br>
</div>
<div>
<div>
> exp(2, 5)</div>
<div>O valor de B = 2 elevado a C = 5 é: 32</div>
</div>
<div><br>
</div>
<div>dá tudo certo.</div>
<div><br>
</div>
</div>
<div class="gmail_extra"><br>
<br>
<div class="gmail_quote">2014-08-20 14:31 GMT-03:00 Felipe <span dir="ltr"><<a href="mailto:felipe.e.barletta@gmail.com" target="_blank">felipe.e.barletta@gmail.com</a>></span>:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Prezdos
colegas,<br>
<br>
Fiz um simples programa para calcular um número real elevado
à um expoente inteiro, para treinar um pouco programação no
R.<br>
Porém não rodou com o seguinte código e erro:<br>
<br>
<br>
B <- cat("entre com a base")<br>
2<br>
C <- cat("entre com o expoente inteiro C")<br>
5<br>
exp <- function(B,C)<br>
{<br>
if (C - as.integer(C)!= 0)<br>
cat("Entre com expoente inteiro")<br>
else{<br>
if (C < 0)<br>
cat("Só aceitamos expoentes positivos")<br>
else if (C == 0)<br>
resp = 1<br>
else{<br>
resp = 1<br>
for (i in 1:C)<br>
resp = resp*B<br>
cat ("O valor de B =",B,"elevado a C
=",C,"é:",resp)}}<br>
}<br>
exp(B,C)<br>
<br>
Erro em if (C - as.integer(C) != 0) cat("Entre com expoente
inteiro") else { (from #3) :<br>
argumento tem comprimento zero<br>
<br>
Se alguém puder ajudar, ficarei muito grato!!<br>
<br>
<br>
_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>)
e forneça código mínimo reproduzível.<br>
</blockquote>
</div>
<br>
<br clear="all">
<div><br>
</div>
-- <br>
<div dir="ltr">Marcus Nunes<br>
<a href="http://marcusnunes.me/" target="_blank">http://marcusnunes.me/</a><br>
</div>
</div>
<br>
<fieldset></fieldset>
<br>
<pre>_______________________________________________
R-br mailing list
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.</pre>
</blockquote>
<br>
</div></div></div>
<br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br><br clear="all"><br>-- <br><div dir="ltr">
<a href="http://about.me/benilton" style="margin:0px;padding:0px;border:0px;outline:0px;font-size:14px;font-family:proxima-nova-1,proxima-nova-2,Tahoma,Helvetica,Verdana,sans-serif;vertical-align:baseline;color:rgb(43,130,173);text-decoration:none;line-height:18.200000762939453px" target="_blank"><table border="0" cellpadding="0" cellspacing="0" style="margin:0px;padding:0px;border:0px;outline:0px;font-weight:inherit;font-style:inherit;font-family:inherit;vertical-align:baseline;border-spacing:0px">
<tbody style="margin:0px;padding:0px;border:0px;outline:0px;font-weight:inherit;font-style:inherit;font-family:inherit;vertical-align:baseline"><tr style="margin:0px;padding:0px;border:0px;outline:0px;font-weight:inherit;font-style:inherit;font-family:inherit;vertical-align:baseline">
<td colspan="3" style="padding:0px;border:0px;outline:0px;font-style:inherit;font-size:0px;font-family:inherit;vertical-align:baseline;height:30px"> </td></tr><tr style="margin:0px;padding:0px;border:0px;outline:0px;font-weight:inherit;font-style:inherit;font-family:inherit;vertical-align:baseline">
<td align="left" valign="top" style="padding:0px;border:0px;outline:0px;font-style:inherit;font-family:inherit;vertical-align:top;line-height:1"><div style="margin:0px;padding:0px;border:0px;outline:0px;font-weight:inherit;font-style:inherit;font-family:inherit;vertical-align:baseline">
<img src="http://d13pix9kaak6wt.cloudfront.net/signature/me-badge.png" alt="Benilton Carvalho on about.me" width="48" height="48" style="margin:0px;padding:0px;border:0px;outline:0px;font-weight:inherit;font-style:inherit;font-family:inherit;vertical-align:baseline;display:block"></div>
</td><td style="padding:0px;border:0px;outline:0px;font-style:inherit;font-size:0px;font-family:inherit;vertical-align:baseline;width:8px"> </td><td align="left" valign="middle" style="padding:0px;border:0px;outline:0px;font-style:inherit;font-family:inherit;vertical-align:middle;height:48px;line-height:0.9">
<div style="margin:0px;padding:0px;border:0px;outline:0px;font-weight:bold;font-style:inherit;font-size:18px;font-family:proxima-nova-1,Proxima-Nova,Helvetica,Arial,sans-serif;vertical-align:baseline;line-height:1;color:rgb(51,51,51)">
Benilton Carvalho</div><div style="margin:2px 0px 0px;padding:0px;border:0px;outline:0px;font-weight:inherit;font-style:inherit;font-size:12px;font-family:proxima-nova-1,Proxima-Nova,Helvetica,Arial,sans-serif;vertical-align:baseline">
about.me/benilton</div></td></tr><tr style="margin:0px;padding:0px;border:0px;outline:0px;font-weight:inherit;font-style:inherit;font-family:inherit;vertical-align:baseline"><td colspan="3" style="padding:0px;border:0px;outline:0px;font-style:inherit;font-size:0px;font-family:inherit;vertical-align:baseline;height:20px">
</td></tr></tbody></table></a></div>
</div>