To tentando fazer um programa que tire o numero fatorial do que o usuário entrar.
Pra quem nao sabe, fatorial se calcula assim:
2!=2.1
5!=5*4*3*2*1
10!=10*9*8*7*6*5*4*3*2*1
To fazendo em pascal mas tenho que fazer usando só while, e ta dando errado alguma coisa porque quando boto pra calcular ele mostra só o número que foi de entrada vezes 1 que seria o ultimo numero a multiplicar.
por enquanto o meu ficou assim:
Program Pzim ;
Uses
CRT;
var
N,M,I,resp:real;
Begin
resp:=1;
while(resp=1)do
begin
writeln('Digite o numero fatorial: ');
readln(N);
I:=N;
while(I>1)do
begin
M:=N*(I-1);
I:=I-1;
end;
writeln('O numero e: ',M:7:2);
writeln('Digite 1 para continuar e 2 para fechar');
readln(resp);
end;
End.
Pra quem nao sabe, fatorial se calcula assim:
2!=2.1
5!=5*4*3*2*1
10!=10*9*8*7*6*5*4*3*2*1
To fazendo em pascal mas tenho que fazer usando só while, e ta dando errado alguma coisa porque quando boto pra calcular ele mostra só o número que foi de entrada vezes 1 que seria o ultimo numero a multiplicar.
por enquanto o meu ficou assim:
Program Pzim ;
Uses
CRT;
var
N,M,I,resp:real;
Begin
resp:=1;
while(resp=1)do
begin
writeln('Digite o numero fatorial: ');
readln(N);
I:=N;
while(I>1)do
begin
M:=N*(I-1);
I:=I-1;
end;
writeln('O numero e: ',M:7:2);
writeln('Digite 1 para continuar e 2 para fechar');
readln(resp);
end;
End.