renatocrb

Olá renatocrb e renatocrb.

 

Tentem fazer algo e postem aqui o que já conseguiram...

 

Então, para o 1), creio que a primeira coisa seria cria uma Function que calcule e retorne o valor fatorial de um número inteiro. Essa seria a base do programa. Seria até interessante apenas fazer um programa que faça isso, depois inseriria a rotina principal que faz o cálculo.

 

Para o 2), vocês poderiam criar uma Function que retorna os divisores do número e a partir dai efetuar os cálculos... etc

 

No aguardo

Veja onde que está errado.

Questão A

Program A ;varn,x,p:integer;s:real;Procedure calculo;varf,u:integer;p:real;beginf:=1;for u:=1 to x dobeginf:=f*uend;p:=1+1/f;s:=p+s;end;BeginWriteln('Informe o número');readln(n);for x:=1 to n dobegincalculo;end;writeln('O Resultado será ',s);Writeln('Pressione qualquer tecla para finalizar');readkey;End.

Questão B:

Program B ;varx,numero:integer;Procedure calculo;vary,np,nc:integer;begin np:=0; nc:=numero-1; for y:=1 to nc do begin If (numero mod y=0) thennp:=y+np;end;if (numero=np) thenwriteln('O numero ',numero,' é perfeito')elsewriteln('O numero ',numero,' não é perfeito');end;BeginWriteln('Esse programa irá mostrar se os numeros informados são perfeitos ou não.');Writeln('Insira apenas números inteiros e positivos');Writeln('Aperte qualquer tecla pra começar');readkey;Writeln('Informe os números'); for x:=1 to 10 do begin readln (numero); if numero<0 then writeln('Número inválido. Informe apenas inteiros positivos') else calculo; end; Writeln('Pressione qualquer tecla para finalizar'); readkey;End.

No aguardo!

Exercícios em Pascal.doc

Estava Faltando as condições para fazer o exercício, mas agora já inclui.

Esse é o problema não sei fazer, estava precisando de uma Luz para tentar resolver outros exercícios que tenho aqui que se assemelham a esses que postei.

obrigado!

Olá pessoal boa noite preciso de uma ajuda com esses 2 exercícios em pascal por favor me ajudem. 

Implementação de dois programas em Pascal:

a. Faça um programa que leia um número inteiro positivo N e crie uma sub-rotina que receba como parâmetro esse valor N e retorne ao programa principal o valor de S obtido pelo seguinte cálculo: