Új hozzászólás Aktív témák

• #907 berkine csendes tag almi #897

  Új Válasz 2006-01-20 13:13:36 #907

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  berkine

  csendes tag

  válasz almi #897 üzenetére

  azthiszem sajna elkéstem vele, de hátha valakinek még szüksége lesz rá:
  n! rekurziv módon:
  
  function fakt(n:byte):longint;
  begin
  if n=1 then
  fakt := 1
  else
  fakt :=n*fakt(n-1);
  end;
  

• #899 c4-eXp aktív tag almi #897

  Új Válasz 2006-01-19 21:09:25 #899

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  c4-eXp

  aktív tag

  válasz almi #897 üzenetére

  Hali!
  
  Nos, van rekurzív megoldás is, de én inkább az egyszerűbbet fogom leírni (ciklussal).
  
  program nfact;
  uses crt;
  var i, n, osszeg : integer;
  begin
  osszeg:=1;
  writeln('Kerem a szamot: '); readln(n);
  for i:=1 to n do
  osszeg:=osszeg*i;
  writeln(n,' faktorialisa ',osszeg);
  readkey;
  end.
  
  
  Már rég pascaloztam, szóval nem garantálok semmit a kód működőképességével kapcsolatban.

• #898 s1ny1 tag almi #897

  Új Válasz 2006-01-19 21:04:50 #898

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  s1ny1

  tag

  válasz almi #897 üzenetére

  csak az alapját írom. amúgy általában hátul tesztelő ciklussal szokták, esetleg rekurzívan.
  ez most elöl tesztelelő lesz
  program faktor;
  uses crt;
  var
  fakt: longint;
  i,n:byte;
  begin
  fakt:=1;
  writeln('n='); readln(n);
  for i:=1 to n do fakt:=fakt*i;
  writeln('n!= ',fakt);
  readln;
  end.

Új hozzászólás Aktív témák