Permutace x cisel v delphi

[Krys]

zdar mam problem potreboval bych upravittento zdrojak tak abych mohl pomoci writeln upravovat rozsah permutace.

jedna se o program:na vypsani vsech permutaci
x cisel
dik za pomoc

[Trinom]

Napiš se m pořádně, co chceš, aby to dělalo. Pokud chceš jen P(n), tak je to n!.

[Krys]

Ted tam je nadefinovana constanta const n=2 a ja jen potrebuju abych ji mohl vkladat pomoci napr writeln('Zadej cislo pro pocet permutaci'); readln(n);

[Trinom]

Jelikož ten tvůj odkaz nějak nefunguje, tak jsem ti to napsal. Nepředpokládám, že do toho budeš cpát záporný čísla.

Kód: Vybrat vše

program Permutace;

{$APPTYPE CONSOLE}

uses
  SysUtils;
  var n,p:integer;

function faktorial (n:integer):integer;
begin
  if n=0 then faktorial:=1                                                                                  {triviální případ}
  else faktorial:=n * faktorial(n - 1)
end;

begin
  write('Zadej pocet permutaci: ');
  readln(n);
  writeln(faktorial(n));
  readln;
end.

[Krys]

parada dik za pomoc

[Trinom]

nz