Silnia pascal wyjaśnienie kodu

Question

Może to banalne pytanie ale uczę się sam i mam pewien problem
odnośnie kodu silni w pascalu

wiem że silnia to np 3silnia = 1*2*3=6

kod mam taki

function SilniaIteracyjna(n:integer): longint;
var
  i: integer;
  wynik: longint;
begin
    wynik :=1;
    for i:=2 to n do wynik := wynik*i;
    SilniaIteracyjna :=wynik;

 

no i tak jest pętla tak

jak podaje n=3 to

wynik = 1*2

wynik=2*2

wynik=4*2 = 8 nie 6

Rozumiałem to wróciłem do tego tematu i się zawiesiłem pewnie mój błąd jest śmieszny może mnie ktoś naprowadzić ?

Answer 1

Widze błąd w Twoim rozumowaniu a mianowicie tutaj

jak podaje n=3 to

wynik = 1*2

wynik=2*2

wynik=4*2 = 8 nie 6

przecież zmienna i zwiększa się o 1 co iteracje, więc powinno byc

jak podaje n=3 to

wynik = 1*2 ( zmienna i ma wartość 2 )

wynik=2*3 (zmienna i ma wartość 3)

Comments

Kod wygląda na poprawny. Może w pozostałej części programy jest jakiś błąd.

---

Nie nie Kod jest dobry tylko nie rozumiałem tego teraz wiem w czym tkwił problem w mojej głowie dzięki ! :)

---

Każdemu się zdarza. Powodzenia w dalszej  nauce.

Answer 2

Masz moją propozycję, rekurencyjną.

program dzialanieSilnia;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;

function Silnia( m : UInt64 ) : UInt64;
begin
  if m = 0 then Result := 1
  else Result := m * Silnia( m - 1 );
end;

begin
  { Obsługa wyjątków }
  try
    Writeln( Silnia( 5 ) );
    Readln;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

 

Answer 3

Według mojej symulacji powinno to działać.

(dla n = 3 wykonają się dwa obroty) zatem:

Wynik = 1

// Po pierwszym obrocie:

Wynik = 2*1 =2

// Po drugim obrocie i wzrasta o 1:

Wynik = 3*2 = 6

// Wynik to 6 koniec programu.

 

Spróbuj coś takiego może: Zamiast Twojej pętli.

for i:=2 to n do 
  begin
     wynik := wynik*i;
   end;

 

Answer 4

U mnie taki kod działa dobrze: 

program dzialania;
uses
crt;
var
i,n,wynik:integer;
begin
clrscr;
n:=3;
wynik:=1;
for i:=1 to n do wynik:=wynik*i;
writeln('wynik to ',wynik);
readln;
end.

Daje to wynik 6. Jaki jest Twój problem? Wylicza Ci 8 zamiast 6? U mnie pętla jest prawie taka jak u Ciebie (zacząłem od 1, żeby dało się policzyć silnię 1 i 0) i działa. Pierwszy obrót 1*1, drugi 1*2, trzeci 2*3, czyli 6.