[Pascal] funzione elevamento a potenza

[keratox]

function powto(base,esp:integer) : integer;
begin
    temp:=0;
    for temp:=1 to esp do
    begin
    if esp=0 then
    returned:=1
    else
    returned:=returned * base;
    end;
    writeln(returned);
    powto:=returned;
end;

ho qualche problema nel definire la funzione e specificare il valore di ritorno
purtroppo il pascal non l'ho mai studiato seriamente e faccio programmi da autodidatta

ciao

[Lardoman]

Il valore di ritorno nn deve essere uno dei valori immessi. Quindi c'è bisogno di un nuovo dato che chiamo 'comodo':

function powto (base,esp:integer) : integer ;

var temp,comodo:integer ;

begin

comodo:=base ;

for temp:=1 to esp do

begin

esp:=esp+1 ;

comodo:=comodo*base ;

end

powto:=comodo ;

end ;

Dovrebbe funzionare

[LeleFT]

Originariamente inviato da Lardoman

function powto (base,esp:integer) : integer ;

var temp,comodo:integer ;

begin

comodo:=base ;

for temp:=1 to esp do

begin

esp:=esp+1 ;

comodo:=comodo*base ;

end

powto:=comodo ;

end ;

Dovrebbe funzionare

Ehm... non tieni conto che che l'esponente potrebbe essere 0, nel qual caso dovrebbe tornare 1 e in più c'è una cosa strana... perchè hai messo l'istruzione

esp := esp + 1;

Che fa andare in LOOP il programma??

Comunque, nel caso tu voglia avere una funzione ricorsiva, hai anche questa possibilità:

function powto (base, esp : integer) : integer;
begin
   int result;
   result := 1;
   If (esp > 0) Then
      result := base * powto(base, esp-1);
   powto := result;
end;

Ciao.

[Lardoman]

Ops,che coglione,hai ragione

Devo averla messa pensando che fosse un ciclo while....

[tom69]

Piccolo Consiglio : non usate nella funzione "potenza" le variabili di tipo integer perchè se le passiamo parametri di media grandezza il programma potrebbe segnalare il runtime error, cosa da non sottovalutare!!! :adhone:

[keratox]

non c'è nulla tipo 'long' di c/c++ o bisogna usare i real?

cmq il pascal e' facile, ma siccome ho affrontato prima altri linguaggi, alcuni particolari mi portano a sbagliare

[Lardoman]

Originariamente inviato da keratox
non c'è nulla tipo 'long' di c/c++ o bisogna usare i real?

cmq il pascal e' facile, ma siccome ho affrontato prima altri linguaggi, alcuni particolari mi portano a sbagliare

Certo che esistee! Si chiama 'longint' ed è compreso tra -2147483648 e 2147483647 (occupa 4 byte)

[keratox]

miticooo
thx