Izračun fakultete...

v pascalu (znajo bit napake, pisem na pamet):

Program Izracun;
uses crt; //ne sprasuj zakaj, navada ;)
var stevilo, fakulteta, i, j:integer;
resitev:real;
begin
fakulteta=1;
stevilo:=0;
resitev:=0;
Write ('Vpisi zeleno stevilo: ');
Readln (stevilo); //vpisi integer, ne bom ti pisal kode ki bo pregledvala to
For i:=1 to stevilo do begin
For j:=1 to (stevilo - 1) do begin //racunanje fakultete
fakulteta:=fakulteta * (fakulteta + 1);
end;
resitev:=resitev + (1 / fakulteta);
end;
Writeln ('Zeleno stevilo je ',stevilo);
end.

a sm car al sm car... se programirat znam, vidm ;))

Ja, ok, saj bi naredo z funkcijo, samo...mali problem...mi še jih nismo jemali! Sej sam izračun fakultete jaz tudi vem sam napisat. Problem se pojavi pri ulomku!!!

evo ti v C++

#include "iostream.h"

int main()
{
int n, f=1;

cin >> n ; //pac stevilo
for (int i = 1; i<=n; i++)
{
f=f*i;
}
cout << f;
reutn 1;
}

TrOn:

Rekurzivni izracun bo najhitrejsi.

Not really. V najboljsem primeru enako hiter (ce je compiler kolikor toliko dober pri optimizaciji). Vsekakor je rekurzija nesmiselna pri tako enostavnih primerih, kot je izracun fakultete.

Zal je ta vaja (poleg Fibonaccijeve vrste) edina, ki jo razni "profesorji" uporabljajo za razlago rekurzije. Rekurzija dobi smisel takrat, ko je ekvivalenten iterativni postopek prezapleten. Dva tipicna primera sta quicksort in pregledovanje drevesnih struktur.

Sicer pa je rekurzivna metoda za izracun n! v C++ taksnale:

 double factorial(unsigned short n)
 {
 if (n == 0) return 1;
 else return n * factorial(n - 1);
 }
 

Ali sem jaz šmack ali pa vsi ostali. Kode, ki so postane so večinoma napačne. Jeti - res si car, tvoj rezultat je cisto nepredvidljiv. Zadevo sem pognal: 1. fakulteta=1806, 2. fakulteta=5287454, 3.fakulteta(overflow)=-768815826, rezultat je pa stevilo, ki ga vpises. Ostalih kod nisem poganju, vendar lahko hitro opazis napake. Sentinel - k=0, ce fakulteto na zacetku pomnozis z niclo ti ne pomaga prav zelo rezultat.
Ostali ste domačo nalogo kar dobro naredili - vendar samo fakulteto. Kaj pa izračun funkcije? Saj je vendar oboje zelo enostavno narediti le v eni zanki. (Domaca naloga!!!) Bolj zanimivo je resiti tako funkcijo za malce vecja/majhna stevila. Recimo 100 clenov. (100!=.933200000...) (By Senitel - dej please ne dajat kilometerskih besed, ker pol skripta vse skupaj mal preveč raztegne, OK).

Nimam Pascala a tole ni videt da bi delal.
For one thing, stevilu najprej dodelis vrednost, nato ga RdLine-as, nato se ga med izracuni niti ne dotaknes in kr naenkrat je rezultat v spremenljivki stevilo...
How come ?

com: šmack si seveda ti. Meni lepo dela, razen ce vstavis preveliko stevilo, seveda, potem jasno da ne bo delalo, saj je spremenljivka rezultat tipa int in če vstaviš preveliko število, bo prišel ven čuden rezultat. Bolje bi bilo, če bi v sami funkciji deklarirar rezultat kot long int, pa bi se doseg povečal, ampak še vedno - če boš vstavil preveliko število, zadeva ne bo delovala, ker funkcija n! narašča še hitreje kot eksponentna. Kar poskusi v nek kalkulator vstaviti 50 ali pa 100 (dve relativno majhni števili), pa me prav zanima če ti bo prebavil n!. Tako da se ne peesdi brezveze, da je zadeva napačna, gre za omejtive, ki se jih je treba zavedati in na katere ne moreš vplivati (imaš pač maksimalno vrendost pri long int, ki je ne moreš preseči). Potem se pa človek buni, zakaj da zadeva pri N=1806 ven čuden rezultat...
No, seveda, če se pa ne strinjas, mi pa najdi napako v algoritmu. Ne bo ti uspelo, hehe.