Programma per calcolare le potenze [PASCAL]

[Xboxman]

Ragazzi mi dite cos'è che ho sbagliato??

(NON E' UN COMPITO PER LA SCUOLA! )

program potenze;
uses crt;
var a,b,c,i,somma:integer;
begin
clrscr;
writeln('Inserisci un numero');
readln(a);
writeln('Inserisci l''esponente');
readln(b);
for i:=1 to b do
begin
c:=a*a;
somma:=somma+c;
end;
writeln('Il risultato è ',somma);
readln;
end.

Se faccio 2 elevato a 5 mi esce 20!

[Xboxman]

ALEEEEEEEEEE!!!! Ci sono riuscito, ecco il programma giusto:

program potenze;
uses crt;
var a,b,c,i:integer;
begin
clrscr;
writeln('Inserisci numero');
readln(a);
writeln('Inserisci esponente');
readln(b);
c:=1;
for i:=1 to b do
begin
c:=c*a;
end;
writeln('Il risultato è ',c);
readln;
end.

[cava]

e se b è 0 ? ehehhehe e se è negativo ? ehhehhe

Program potenze;
uses crt;
var 
  a,b:integer;

function pow(base:real; esp:integer):real;
Begin
   if esp=0 then pow:=1
               else pow:=base*pow(base,esp-1);
end;

Begin
clrscr;
writeln('Inserisci un numero');
readln(a);
writeln('Inserisci l''esponente');
readln(b);
writeln('risultato: ',pow(x,y));
readln

[Ricky`]

facciamo i fighi con la ricorsione?
cmq questo è il metodo migliore direi.... molto stiloso :P

[miniBill '90]

e se l'esp è negativo?

[Ricky`]

effettivamente serve un controllo che se l'esponente è negativo fa il reciproco di quanto ha calcolato...

[miniBill '90]

dopo aver calcolato la potenza con epsonente opposto

[Xboxman]

e se b è 0 ? ehehhehe e se è negativo ? ehhehhe

Program potenze;
uses crt;
var 
  a,b:integer;

function pow(base:real; esp:integer):real;
Begin
   if esp=0 then pow:=1
               else pow:=base*pow(base,esp-1);
end;

Begin
clrscr;
writeln('Inserisci un numero');
readln(a);
writeln('Inserisci l''esponente');
readln(b);
writeln('risultato: ',pow(x,y));
readln

Non so che caspita di comando hai usato, comunque nessuno avrebbe il bisogno di scrivere un numero elevato alla 0.

La cosa più importante e che non so fare, e se l'esponente è negativo!

Ma 2 elevato a -4 viene -16? Scusate l'ignoranza!

[Xboxman]

Non so che caspita di comando hai usato, comunque nessuno avrebbe il bisogno di scrivere un numero elevato alla 0.

La cosa più importante e che non so fare, e se l'esponente è negativo!

Ma 2 elevato a -4 viene -16? Scusate l'ignoranza!

Dimenticavo, col mio prog è anche possibile elevare un numero a 0, il risultato viene 1, quindi l'unico problema da risolvere è se l'esponente è negativo!

[balmung91]

qui c'è scritto http://it.wikipedia.org/wiki/Notazione_scientifica

cmq in pratica n elevato a un numero è uguale a 1\n*potenza

[Ricky`]

io direi che modificato dovrebbe venrie una cosa del genere

Program potenze;
uses crt;
var 
  a,b:integer;
  ris:real; 

function pow(base:integer; esp:integer):real;
Begin
   if esp=0 then pow:=1
               else pow:=base*pow(base,esp-1);
end;

Begin
clrscr;
writeln('Inserisci un numero');
readln(a);
writeln('Inserisci l''esponente');
readln(b);

ris=pow(a,b); 
if(b<0) and (a!=0) then
        ris=1/ris;

writeln('risultato: ',ris);
readln;
end.

[Xboxman]

Il mio programma è sicuramente più bello:

program potenze;
uses crt;
var a,c:real;
i,b:integer;
begin
clrscr;
textcolor(green);
writeln('---CALCOLATORE DI POTENZE---');
writeln;
textcolor(3);
write('Inserisci un numero ---> ');
readln(a);
write('Inserisci l''esponente ---> ');
readln(b);
c:=1;
if b<0 then
begin
b:=-b;
for i:=1 to b do
begin
c:=c*a;
end;
c:=1/c;
textcolor(9);
writeln('--------------------------------');
textcolor(green);
writeln('Il risultato Š ',c:5:12);
writeln;
writeln('Premi Invio per chiudere');
end
else
begin
for i:=1 to b do
begin
c:=c*a;
end;
textcolor(9);
writeln('--------------------------------');
textcolor(green);
writeln('Il risultato Š: ',c:5:0);
writeln;
writeln('Premi Invio per chiudere');
end;
readln;
end.

[Ricky`]

si forse per l'output con l'utente perch&#232; metti il colore verde ma per il resto algoritmicamente lascia un po' (tanto) a desiderare.

[Xboxman]

si forse per l'output con l'utente perchè metti il colore verde ma per il resto algoritmicamente lascia un po' (tanto) a desiderare.

I risultati mi escono esatti, non vedo dove ci sia il problema... magari ho allungato un pò, ma i risultati sono esatti.

[balmung91]

si ma facendo programmi piu grossi (molto piu grossi) e piu pesanti, poi dovrai anche stare attento aocme scirvi il codice, primo per risparmiare tempo e secondo per risparmiare risorse.

perch&#232; se tra due programmi che funzionano uno ci mette 2s e l'altro ce ne mette 1 usando meno risorse &#232; molto meglio il secondo