Programma per calcolare le potenze [PASCAL]

[Xboxman]

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è se tra due programmi che funzionano uno ci mette 2s e l'altro ce ne mette 1 usando meno risorse è molto meglio il secondo

Bhe, ho iniziato da poco a studiare il Pascal a scuola. In classe mia i ragazzi sono tutti buoni a nulla in Informatica rispetto a me, quindi penso che per ora stia andando alla grande!

[balmung91]

ma se vuoi combinare qualcosa non ti devi misurare con la scuola...

[Xboxman]

ma se vuoi combinare qualcosa non ti devi misurare con la scuola...

Vuoi dire che quando avrò il diploma sarò un finto programmatore?

[cava]

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.

hai fatto un bel mischione col "c" mi dicono a!=0 nn esiste in pascal... poi si fa := per l'assegnazione... infine nn funziona con esponente negativo xke la ricorsione nn ha la condizione d'uscita... (mi sembra... nn ho provato..)

[Ricky`]

si hai ragione, ci stavo pensando ieri sera mentre tornavo a casa che ho scritto una cazzata
Poi cmq scusatemi se faccio un po' di mischioni, pascal l'ho fatto 2 anni fa e nel frattempo ho fatto c, java e php percui potete capire che mischione ho in testa

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,abs(b)); 
if(b<0) and (a<>0) then
        ris:=1/ris;

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

che ne dici, ora va meglio?

[Xboxman]

Potresti spiegarmi bene a cosa serve la function pow? E poi non ho capito bene che razza di procedimenti fa.

[Ricky`]

E' una funzione ricorsiva, ovvero che come puoi vedere si richiama al suo interno. Per maggiori informazioni sulla ricorsione vai qui:

http://it.wikipedia.org/wiki/Ricorsione

[Shadowsky]

Vuoi dire che quando avrò il diploma sarò un finto programmatore?

detto così sembra brutto ma in pratica ...
no dai se ti và bene qualche linguaggio bello lo impari ( java o c++ di solito ci sono bene o male ),cmq la scuola ti dà le basi ma le cose belle le devi imparare da solo

[Ricky`]

diciamo che la scuola ti da le basi, ma la programmazione è ben altra e se non ci metti del tuo le 4 baggianate che impari a scuola nn ti servono a nulla.

[GreenCode]

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!

Ciao a tutti , mi sono iscritto proprio in questo momento , leggevo il programma , e visto che sono un neofita proprio alle prime nozioni mi ero imbattuto in questo esercizio ( su di un altro sito su cui stavo studiando ) e cercando informazioni in merito mi sono imbattuto in questo post , cosi che ho deciso di postare il codice secondo la mia idea , anche per capire se quello che sto facendo ,studiando e pensando mi stia riuscendo , cmq qui di seguito vi posto il codice .. fatemi sapere , piacere a tutti , io sono greenCode.

Il codice:
program potenze;
uses crt;
var
base:integer;
esp:integer;
pot:integer;
i:integer;
npot:integer;
nbase:integer;
potz:integer;


begin
clrscr;
write('Di quale numero vuoi calcolare le potenze?');
readln(nbase);
write('Quante potenze del numero base vuoi calcolare?');
readln(npot);
clrscr;
write('Bene iniziamo , prema INVIO per iniziare il calcolo . '?);
write('Inserisca la base . '?);
readln(base);
write('Inserisca l esponente . ');
readln(esp);
esp:=1;
potz:=1;
pot:=base*esp;
for i:=1 to npot do
begin
potz:=potz*nbase;
write(nbase , ' elevato a ' , i , ' e'' : ' , trunc(potz) );
end;
write('Abbiamo finito , prema INVIO per terminare la sessione');
readln;
end.

[Ricky`]

Non so la risposta ma ricevere una notifica di un thread di 16 anni fa è un qualcosa di emozionante ��

[GreenCode]

Non so la risposta ma ricevere una notifica di un thread di 16 anni fa è un qualcosa di emozionante 🤣

Felice di averti regalato questa emozione ..