Что вызывает проблемы с этим фрагментом кода?

Question

Мне просто интересно, почему эта определенная проблема возникает со мной. Если вы можете мне помочь, я буду признателен.

Хорошо, это прекрасно работает, и результат равен 120. И это правда.

Теперь вот в чем проблема. Если я попрошу пользователя ввести значение числа, это не сработает.

Program factorial; 
uses crt; 
var 
    i,r: Integer; 
begin 
    write('Enter the number'); 
    read(r); 

    for i:=1 to r do 
    r:= r * i; 

    write(r); 
    readkey; 
end. 

Если я написал 5, выход будет 600.

Answer 1

Вы используете значение r в качестве условия остановки цикла и изменяете значение в цикле.

Program factorial; 
uses crt; 
var 
    i,r, f: Integer; 
begin 
    write('Enter the number'); 
    read(r); 
    f := 1; 
    for i:=1 to r do 
    f:= f * i; 
    write(f); 
    readkey; 
end. 

Answer 2

попробовать:

Program factorial; 
uses crt; 
var 
i,r,x: Integer; 
begin 
write('Enter the number'); 
read(x); 
r:=1 
for i:=1 to x do 
r:= r * i; 
write(r); 
readkey; 
end. 

Answer 3

Вы повторно переменную r. Если вы вводите 5 для r, ваша программа будет действовать один раз. Вы должны начать с 1 в качестве первого f.

Program factorial; 
uses crt; 
var 
    i,r, f: Integer; 
begin 
    write('Enter the number'); 
    read(r); 
    f:=1 
    for i:=1 to r do 
     f:= f * i; 
    write(r); 
    readkey; 
end.