Ajuda Algoritimo Formula

Olá Galera

Não estou conseguindo faze esse 2 algorítimos de formulas , utilizando comando PARA-FAÇA.

Alguém Poderia me dar uma força.

[Only registered and activated users can see links. Click Here To Register...]

[Only registered and activated users can see links. Click Here To Register...]

@Edit 13 Acho que consegue.

Citação:

---

Program Ex13;
var
y,x,n,cont,y2:integer;
Begin
writeln('Digite o valor de X:');
readln(x);
writeln('Digite o Valor de N:');
readln(n);
For cont:= 1 to n do
Begin
y:=y+cont;;
y2:=y2+x;

End;

writeln(y);
writeln('_');
writeln(y2);
End.

---

Abraço !

Seguindo o exemplo da fórmula:

Citação:

---

Program Ex13;
var
y,x,n,cont,y2:integer;
Begin
writeln('Digite o valor de X:');
readln(x);


For cont:= 1 to x do
Begin
y1:=y1+(cont/x);


End;


writeln(y);
writeln('_');
writeln(y1);
End.




Program Ex9;
var
y,x,n,cont,y2:integer;
Begin
writeln('Digite o valor de n:');
readln(n);


For cont:= 1 to n do
Begin
y:=y+(n/n+1);


End;


writeln(y);
writeln('_');
writeln(y);
End.

---

Pelo que eu entendi, o algorítimo da questão 13 pede para você somar a y o valor da divisão de n por x, onde X é o número digitado pelo usuario e N é o contador.

E a questão nove falar por sí só...

Vc quer o algoritmo ou em pascal ?

Pq né...

isso é pra exercicio de faculdade/curso é? se for, quebre um pouco a cabeça pra achar a sequência em vez de perguntar.