| Autor |
Mensagem |
Energy
Veterano |
# mai/07
ae pessoal se vcs puderem me dar uma ideia de como faz esses exercicios eu agraço. So nao pode usar vetor.
1. Dizemos q um numero natural é triangular se ele é o produto de tres numeros naturais consecutivos. Ex: 120 é triangular, pois 4x5x6=120. Dado um numero natural, verificar se ele é triangular.
2. A partir de uma lista de N numeros inteiros positivos, verificar quais sao perfeitos. Obs: número perfeito é aquele cuja soma de seus divisores, exceto ele proprio, é igual ao numero. Ex: 1, 6, 28, etc.
valeu
|
imorrivel
Veterano |
# mai/07
· votar
2 -
(* Programa que dado n diz se n eh perfeito *)
program numero_perfeito;
var n,i,soma: integer;
begin
read(n);
soma := 0;
for i:=1 to n-1 do
begin
if (n mod i) = 0 then
soma := soma + i;
end;
if (soma = n) then
write(‘numero perfeito’)
else
write(‘numero nao eh perfeito’);
end.
|
imorrivel
Veterano |
# mai/07 · Editado por: imorrivel
· votar
1 -
(* Exemplo: 120 = 4*5*6 logo 120 eh triangular *)
program numero_triangular;
var n,i,consecutivos: integer;
triangular: boolean;
begin
read(n);
i := 1;
consecutivos := 0;
triangular := false;
while (i <= trunc(sqrt(n))) and (consecutivos <= n) and (not triangular) do
begin
consecutivos := i*(i+1)*(i+2);
if (consecutivos = n) then
triangular := true;
i := i + 1;
end;
write(triangular);
end.
Hehe nem fui eu que fiz, peguei na net x)
|
Energy
Veterano |
# mai/07
· votar
valeu cara
ajudo pakas
|
Douglas_
Veterano |
# mai/07 · Editado por: Douglas_
· votar
Eu faria mais simples, vou escrever em Portugol pq se adapta a qualquer linguagem:
- Numero triangular
c = 0
Enquanto Mult <> Numero ou Fim = 1 Faça
___c = c + 1
___Mult = c * (c+1) * (c+2)
___Se Mult > Numero
______Fim = 1
___Fim-Se
Fim-Enquanto
Se Fim = 0
___Escreva "Número é Triangular.'
Senao
___Escreva "Número não é Triangular.'
Fim-Se
Mas essa não foi CTRL-C CTRL-V
P.S.: Tive que colocar "_" na frente pq a Identacao com espaco nao funciona.
|
Flight Of Icarus
Veterano |
# mai/07
· votar
Alguem poderia ajudar com esse exercicio (em pascal):
1)Refaça o programa em Pascal que escreva qual o dia do ano, para uma data introduzida pelo usuário. Utilize um vetor que contenha o número de dias de cada mês.
eu tentei faze-lo assim (mas esta dando erro):
program diadoano;
const diames: array[1..12] of integer=(31,28,31,30,31,30,31,31,30,31,30,31);
var i,dia,mes,ano,nrodias,diadoano: integer;
begin
writeln ('escreva dia, mes e ano');
readln (dia, mes, ano);
if (ano mod 4 = 0) then
diames[2]:=29
else diames[2]:=28;
for i:=1 to mes do
begin
nrodias:=0;
nrodias:=nrodias + diames[i-1];
end;
diadoano:=(nrodias + dia);
writeln (diadoano);
readln;
end.
|
Bob do recife
Veterano |
# mai/07
· votar
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<HEAD><title>duvidas em programacao - Fóruns Cifra Club</title>
<meta http-equiv="content-type" content="text/html;charset=iso-8859-1">
<META NAME="Description" CONTENT="duvidas em programacao - Fóruns Cifra Club">
<META NAME="Keywords" CONTENT="música, instrumentos, canto, guitarra, baixo, bateria, teclado">
<META NAME="Document-state" CONTENT="Dynamic">
<META NAME="Resource-type" CONTENT="document">
<script src="/js.js" type="text/javascript"></script>
<LINK href="/bb_default_style.css" type="text/css" rel="STYLESHEET">
</HEAD>
<body class=gbody>
<div align=center>
<table class=forums>
<tr>
<td class=tbTransparent style="line-height:40px;"><a target="_blank" href="http://www.cifraclub.com.br"><img src="/img/logo.gif" width="169" height="80" border=0 alt="Cifra Club"></a>
</td>
</tr>
<tr>
<td class=caption2 colspan=2><b> <a href="http://forum.cifraclub.com.br/index.php?">Home</a> · <a href="#newreply">Resposta</a> · <a href="http://forum.cifraclub.com.br/index.php?action=search">Bus ca</a> · <a href="/membro_30221.html">Perfil</a> · <a href='/arquivo.php'>Arquivo</a> · <a href="http://forum.cifraclub.com.br/index.php?action=prefs">Conf igurações</a> · <a href="/?action=regras">Regras</a> · <a href="/?action=ajuda">Central de Ajuda</a> · <a href="http://forum.cifraclub.com.br/index.php?mode=logout">Logou t</a> ·</b></td>
</tr>
</table>
<br>
</div>
<script type="text/javascript" src="http://forum.cifraclub.com.br/templates/form.js"></script>
<script type="text/javascript">
<!--
var l_accessDenied='Acesso negado';
var l_quoteMsgAlert='Por favor, selecione algum texto primeiro.';
function checkBrowser()
{
this.ver=navigator.appVersion;
this.dom=document.getElementById?1:0;
this.ie6=(this.ver.indexOf("MSIE 6")>-1 && this.dom)?1:0;
this.ie5=(this.ver.indexOf("MSIE 5")>-1 && this.dom)?1:0;
this.ns6=(this.dom && parseInt(this.ver)>= 5)?1:0;
this.safari=(this.ver.indexOf("safari")>-1)?1:0;
this.ns4=(document.layers && !this.dom)?1:0;
this.opr=(navigator.userAgent.toLowerCase().indexOf("opera")!=-1)?1:0;
return this
}
function getQuotation() {
var bw=new checkBrowser();
var displayQuote=true;
if (displayQuote && (bw.dom || bw.ns6 || bw.ie5 || bw.ie6 || bw.ns4 || bw.safari || bw.opr)) {
document.writeln('<a href="javascript:paste_strinL(selection,1)" onMouseDown="pasteSel()">Quote<'+'/a>');
}
}
function confirmDelete(id,what){
var mes,url='forum=11&topic=161907&';
if(what==0) { mes='Tem certeza que deseja apagar esta mensagem?'; url=url+'action=delmsg&page=0&post='+id; }
else if(what==1) { mes='Tem certeza que deseja apagar este tópico? Todas as mensagens associadas com este tópico serão excluidas e não poderão ser recuperadas!'; url=url+'action=deltopic'; }
else if(what==2) { mes='Apagar msgs selecionadas?'; }
if( (what==0 || what==1) && confirm(mes)) document.location='http://forum.cifraclub.com.br/index.php?'+url ;
else if(what==2 && confirm(mes)) document.forms['allMsgs'].submit();
}
//-->
</script>
<div align=center>
<table class=forums>
<tr>
<td width=25 align=center class=caption3><img src="http://forum.cifraclub.com.br/img/forum_icons/off_topic.gif " width=16 height=16 alt=""></td>
<td width="100%" class=caption3><b><a href="http://forum.cifraclub.com.br/">Fóruns Cifra Club</a></b> / <b><a href="/forum/11/">OFF TOPIC</a></b> / <b>duvidas em programacao</b></td>
</tr>
</table>
<table class=tbTransparent>
<tr><td class="tbTransparent"><span class="txtSm"><b></b></span></td></tr>
</table>
<form action="http://forum.cifraclub.com.br/index.php?" method="post" class="formStyle" name="allMsgs">
<table class=forums>
<tr>
<td width="15%" class=caption4>Autor</td>
<td width="85%" class=caption4>Mensagem</td>
</tr>
<tr valign=top class=tbCel1><td class=caption1><span id='4358886'></span><a name="1" href="JavaScript:paste_strinL('Energy',2)"><span class=username>Energy</span></a><br><span class=txtSm><a href="/membro_139.html">Veterano</a></span></td>
<td class=caption1><span class=txtSm><a href="#1">#</a> Enviado: 15/mai/07 13:10<br><script type="text/javascript">getQuotation();</script><a href='#' onclick='cria_denuncia("4358886",1,30221);return false;'>Denunciar</a> </span><br><br>ae pessoal se vcs puderem me dar uma ideia de como faz esses exercicios eu agraço. So nao pode usar vetor.
<br>
<br>
<br>
<br>1. Dizemos q um numero natural é triangular se ele é o produto de tres numeros naturais consecutivos. Ex: 120 é triangular, pois 4x5x6=120. Dado um numero natural, verificar se ele é triangular.
<br>
<br>
<br>
<br>2. A partir de uma lista de N numeros inteiros positivos, verificar quais sao perfeitos. Obs: número perfeito é aquele cuja soma de seus divisores, exceto ele proprio, é igual ao numero. Ex: 1, 6, 28, etc.
<br>
<br>
<br>
<br>valeu<br><br></td></tr>
<tr valign=top class=tbCel2><td class=caption1><span id='4358900'></span><a name="2" href="JavaScript:paste_strinL('imorrivel',2)"><span class=username>imorrivel</span></a><br><span class=txtSm><a href="/membro_25504.html">Veterano</a></span></td>
<td class=caption1><span class=txtSm><a href="#2">#</a> Enviado: 15/mai/07 13:18<br><script type="text/javascript">getQuotation();</script><a href='#' onclick='cria_denuncia("4358900",2,30221);return false;'>Denunciar</a> </span><br><br>2 -
<br>
<br>(* Programa que dado n diz se n eh perfeito *)
<br>
<br>program numero_perfeito;
<br>
<br>var n,i,soma: integer;
<br>
<br>begin
<br>
<br> read(n);
<br> soma := 0;
<br> for i:=1 to n-1 do
<br> begin
<br> if (n mod i) = 0 then
<br> soma := soma + i;
<br> end;
<br> if (soma = n) then
<br> write(‘numero perfeito’)
<br> else
<br> write(‘numero nao eh perfeito’);
<br>
<br>end.<br><br></td></tr>
<tr valign=top class=tbCel1><td class=caption1><span id='4358902'></span><a name="3" href="JavaScript:paste_strinL('imorrivel',2)"><span class=username>imorrivel</span></a><br><span class=txtSm><a href="/membro_25504.html">Veterano</a></span></td>
<td class=caption1><span class=txtSm><a href="#3">#</a> Enviado: 15/mai/07 13:19 · Editado por: imorrivel<br><script type="text/javascript">getQuotation();</script><a href='#' onclick='cria_denuncia("4358902",2,30221);return false;'>Denunciar</a> </span><br><br>1 -
<br>
<br>(* Exemplo: 120 = 4*5*6 logo 120 eh triangular *)
<br>
<br>program numero_triangular;
<br>
<br>var n,i,consecutivos: integer;
<br> triangular: boolean;
<br>
<br>begin
<br>
<br> read(n);
<br> i := 1;
<br> consecutivos := 0;
<br> triangular := false;
<br> while (i <= trunc(sqrt(n))) and (consecutivos <= n) and (not triangular) do
<br> begin
<br> consecutivos := i*(i+1)*(i+2);
<br> if (consecutivos = n) then
<br> triangular := true;
<br> i := i + 1;
<br> end;
<br> write(triangular);
|
Bob do recife
Veterano |
# mai/07
· votar
isso eh o inicio do calculo
|