PDA

Visualizza la versione completa : [PASCAL] Programma con ciclo while()


tiratardi
01-11-2007, 16:22
ciao raga...

sto imparando ad usare il linguaggio pascal...

sono arrivato ad "usare" o meglio ad imparare la sintassi con while + do ...

oggi visto che non sapevo cosa fare, mi son cimentato nel fare un programmino di facile utilizzo...richiedere all'utente 5 volte l'inserimento di un numero e fare la somma aggiornata per ogni numero inserito...

inizio il programma...

program esempio;
Uses Crt;
var cont1,num,somma:integer;

begin
clrscr;
cont1:=0; //pongo cont1 = 0
somma:=0; //pongo somma = 0
while cont1<5 do //condizione
begin
writeln('inserisci numero '); //messaggio
readln(num); //leggi numero
somma:=somma+num; //calcolo della somma
writeln('premi un tasto per tornare...');
readkey;
end; //chiudo il secondo begin
end. //chiudo il primo begin

il programma al momento della codifica non mi da errori di sintassi, e la somma si aggiorna in modo automatico ad ogni numero inserito come desiderato...
il problema che il programma mi chiede il messaggio 'inserisci un numero' pi volte di 5.

la cosa ancora pi strana che a scuola in laboratorio mi uscito perfettamente l'esercitazione...a casa quando l'ho rifatto per esercitazione non pi :dh:

chi mi sa dire l'errore?

grazie

:ciauz:

MacApp
01-11-2007, 16:57
la variabile count1 sempre 0; non viene incrementata nel corpo del while.

tiratardi
01-11-2007, 20:20
Originariamente inviato da MacApp
la variabile count1 sempre 0; non viene incrementata nel corpo del while.
e quindi come dovrei strutturarla?
quindi while lo metto nel begin dopo?

king64
01-11-2007, 22:48
dopo il calcolo della somma devi inserire l'istruzione:


count1:=count+1;

e porre dopo il primo end le istruzioni


writeln('premi un tasto per tornare...');
readkey;

Saluti :ciauz:

tiratardi
02-11-2007, 12:16
Originariamente inviato da king64
dopo il calcolo della somma devi inserire l'istruzione:


count1:=count+1;

e porre dopo il primo end le istruzioni


writeln('premi un tasto per tornare...');
readkey;

Saluti :ciauz:
cos facendo il programma mi da 3 errori...
proprio sull'istruzione count1:=count+1;

oregon
02-11-2007, 12:24
Fai attenzione al nome delle variabili ... deve essere

cont1:=cont1+1;

e non

count1:=count+1;

king64
02-11-2007, 13:11
Originariamente inviato da oregon
Fai attenzione al nome delle variabili ... deve essere

cont1:=cont1+1;

e non

count1:=count+1;
giusto ! E' stato un errore di battitura .

tiratardi
03-11-2007, 16:42
ok grazie...

ho provato come mi avete detto e ho risolto il problema...

Alla prossima :ciauz:

Loading