Fakultät in Lazarus (Pascal) berechnen?

Ich soll in Lazarus mithilfe von Schleifen die Fakultät berechnen, ich weiß aber nicht wie der Quelltext dazu aussehen soll, kann mir da jemand helfen?

Answer 1

[iQa1x]

Naja, so kompliziert ist das nicht, 5! = 1*2*3*4*5 ...

function fak(x:integer):integer;
var res, i: integer;
begin
  res:= 1;
  for i:=2 to x do res := res * i;
  fak:=res;
end;

Woher ich das weiß: Studium / Ausbildung – Informatiker