A Collection of Code Snippets in as Many Programming Languages as Possible

This project is maintained by TheRenegadeCoder

Welcome to the Factorial in Pascal page! Here, you'll find the source code for this program as well as a description of how the program works.

```
program factorial_calculate(input, output, stdErr);
(* Read a number from Commandline, Return it's factorial value
Cardinal, int-64 and qWord are the relevant data type to store long int in pascal.
With Cardinal data type, maximum factorial that can be computed is 34, 4926277576697053184
With int-64 data type, maximum factorial that can be computed is 44, 2673996885588443136
With qWord data type, maximum factorial that can be computed is 65, 9223372036854775808
*)
var
buf: String;
(* input_value, factorial, check:qWord;*)
i, check: integer;
input_value, factorial_value: qWord;
begin
buf:= paramStr(1);
Val(buf, input_value, check);
if check <> 0
then
writeln('Usage: please input a non-negative integer')
else
if input_value < 0
then
writeln('Usage: please input a non-negative integer')
else
begin
if (input_value = 0) then
writeln('1')
else
begin
factorial_value := 1;
for i := 1 to input_value do
begin
factorial_value := factorial_value * i;
end;
writeln(factorial_value);
end;
end;
end.
```

Factorial in Pascal was written by:

- Mr Anand Somashekhara Rao Somavarapete

If you see anything you'd like to change or update, please consider contributing.

No 'How to Implement the Solution' section available. Please consider contributing.

No 'How to Run the Solution' section available. Please consider contributing.