PDA

Visualizza la versione completa : [PASCAL] Non capisco dov'è l'errore


php_4ever
29-12-2008, 14:52
Mi dice che c'è un errore ma dov'è??


Program potenze;
uses crt;
var base:integer;
espo:byte;
r:real;

Function Potenza(base:integer;esponente:byte):real;
var i:byte;
x:real;
begin
if esponente=0 then
Potenza:=1
else
begin
x:=1;
for i:=1 to esponente
x:=x*base;
Potenza:=x;
end;
end;

begin
clrscr;
TextBackground(4);
TextColor(2);
writeln('Benvenuto in allrisolveer (modalità potenze)');
write('Inserisci la base e premi invio:');
readln(base);
write('Inserisci l''esponente e premi invio (da 0 a 255):');
readln(espo);
r:=Potenza(base,espo);
writeln(base,' alla ',espo,'° è ',r);
writeln('Per risolvere un'altra potenza devi premere invio');
readln
end.

Pacio88
29-12-2008, 14:55
Perchè non posti anche l'errore?

php_4ever
29-12-2008, 16:11
Errore di sintassi

"Do" Expected but "Identifier X" found.
Ecco

king64
29-12-2008, 16:19
Manca il do dopo esponente


for i:=1 to esponente do

Saluti :ciauz:

php_4ever
29-12-2008, 16:20
Grazie!!

MacApp
29-12-2008, 16:21
for i:=1 to esponente do
x:=x*base;


EDIT: ok non avevo visto che già ti avevano risposto ;-)

Ricky_13
09-01-2009, 22:29
comunque che casino per risolvere una potenza!
io avrei fatto così! (ora mi sembra facile, ma mi hanno dovuto corregere parecchie volte)



PROGRAM potenza;
USES crt;
VAR a,b,c,i:INTEGER;
BEGIN
WRITELN(' Inserisci un numero ');
READLN(A);
WRITELN(' Inserisci esponente ');
READLN(B);
c:=1;
FOR I:= 1 TO b DO
begin
c:=c*a;
end;
WRITELN(' Il risultato della potenza è ' ,c);
READLN;
END.


comunque bel lavoro lo stesso..ciao :ciauz:

Loading