Forum - Pascal - programma calcolatrice...mi segnala un errore
simone97 Messaggi: 14Iscritto: 28/03/2010
il codice è questo:
Codice sorgente - presumibilmente Delphi
program calcolatrice;
uses crt;
var a, b, scelta, ris: integer ;
begin
writeln ( 'Inserisci il primo numero: ' ) ;
readln ( a) ;
writeln ( 'Inserisci il secondo numero: ' ) ;
readln ( b) ;
writeln ( 'Quale operazione vuoi svolgere? 1. add, 2. sott, 3. molt, 4. div ' ) ;
readln ( scelta) ;
case scelta of
1: begin
ris: = a+ b;
write ( 'Il risultato e' ' ' , ris) ;
end ;
2: begin
ris: = a- b;
write ( 'Il risultato e' ' ' , ris) ;
end ;
3: begin
ris: = a* b;
write ( 'Il risultato e' ' ' , ris) ;
end ;
4: begin
ris: = a/ b;
write ( 'Il risultato e' ' ' , ris) ;
end
readln
end .
uso Dev-Pascal, quando la vado a compilare mi segnala l'ultimo readln, quello prima dell'ultimo end, dov'è che ho sbagliato?
Poggi Marco Member )Messaggi: 969Iscritto: 05/01/2010
Ciao!
Codice sorgente - presumibilmente Delphi
program calcolatrice;
uses crt;
var a, b, scelta: integer ;
ris: real ;
begin
writeln ( 'Inserisci il primo numero: ' ) ;
readln ( a) ;
writeln ( 'Inserisci il secondo numero: ' ) ;
readln ( b) ;
writeln ( 'Quale operazione vuoi svolgere? 1. add, 2. sott, 3. molt, 4. div ' ) ;
readln ( scelta) ;
case scelta of
1: begin
ris: = a+ b;
write ( 'Il risultato e' ' ' , ris: 6: 2) ;
end ;
2: begin
ris: = a- b;
write ( 'Il risultato e' ' ' , ris: 6: 2) ;
end ;
3: begin
ris: = a* b;
write ( 'Il risultato e' ' ' , ris: 6: 2) ;
end ;
4: begin
ris: = a/ b;
write ( 'Il risultato e' ' ' , ris: 6: 2) ;
end ;
end ;
readln ;
end .
simone97 Messaggi: 14Iscritto: 28/03/2010
grazie mille adesso funziona
Poggi Marco Member )Messaggi: 969Iscritto: 05/01/2010
Di nulla!
