Вопрос Переведите код из паскаля подобного яп, в алгоритмический язык
- Автор темы humerel
- Дата начала
Перевод на Free Pascal: var i, n: integer;
f: int64 = 1;
begin
readln
;
for i := 1 to n do f := f * i;
writeln(f)
end. Так будет работать точно для всех натуральных n до n=20 включительно. То же самое, но уже приближённо для больших n: var i, n: integer;
f: real = 1;
begin
readln;
for i := 1 to n do f := f * i;
writeln(f)
end. Так нормально работает c n до ста с чем-то. В Pascal abc.net, где есть спецтип целых чисел любой длины, можно сделать программу для любого натурального n, если, конечно, у компьютера для этого памяти хватит, а то ведь факториал - это варианта (функция целочисленного аргумента) с ростом по экспоненте с обострением...
f: int64 = 1;
begin
readln
;for i := 1 to n do f := f * i;
writeln(f)
end. Так будет работать точно для всех натуральных n до n=20 включительно. То же самое, но уже приближённо для больших n: var i, n: integer;
f: real = 1;
begin
readln
; for i := 1 to n do f := f * i;
writeln(f)
end. Так нормально работает c n до ста с чем-то. В Pascal abc.net, где есть спецтип целых чисел любой длины, можно сделать программу для любого натурального n, если, конечно, у компьютера для этого памяти хватит, а то ведь факториал - это варианта (функция целочисленного аргумента) с ростом по экспоненте с обострением...
Этот код представляет собой простой алгоритм для вычисления факториала числа n. Вот этот же алгоритм, описанный на псевдокоде: Initialize f to 1
Input n
For each i from 1 to n do
Multiply f by i
EndFor
Output f Этот псевдокод представляет собой упрощенное описание алгоритма, которое можно легко преобразовать в любой другой язык программирования.
Input n
For each i from 1 to n do
Multiply f by i
EndFor
Output f Этот псевдокод представляет собой упрощенное описание алгоритма, которое можно легко преобразовать в любой другой язык программирования.