Pascal - cast...of...else problema con una calcolatrice

Forum - Pascal - cast...of...else problema con una calcolatrice

tullio1995 (Normal User)
Rookie

Messaggi: 59
Iscritto: 20/03/2011

Postato alle 19:04
Lunedì, 21/03/2011

Codice sorgente - presumibilmente Delphi

program calcolatrice;
uses crt;
var a,b,c,o,d:INTEGER;
begin
repeat
writeln ('INSERISCI IL NUMERO DELL''OPERAZIONE DA FARE');
writeln ('1.  ADDIZIONE');
writeln ('2.  SOTTRAZIONE');
writeln ('3.  MOLTIPLICAZIONE');
writeln ('4.  DIVISIONE');
writeln ('5.  N. ALLA SECONDA');
writeln ('6.  N. ALLA TERZA');
writeln ('7.  N. ALLA QUARTA');
writeln ('8.  N. ALLA QUINTA ');
readln (o);
if o=5 or 6 or 7 or 8 then
begin
writeln ('Inserisci il numero: ');
readln(d);
case o of
5:d:=d*d;
6:d:=d*d*d;
7:d:=d*d*d*d;
8:d:=d*d*d*d*d;
writeln('Il risultato e ',d);
readln;
end;
end
else
begin
clrscr;
writeln ('Inserisci il primo numero intero: ');
readln (a);
writeln ('Inserisci il secondo numero intero: ');
readln (b);
if o=1 then
begin
c:=a+b;
end;
if o=2 then
begin
c:=a-b;
end;
if o=3 then
begin
c:=a*b;
end;
if o=4 then
begin
c:=a div b;
end;
writeln ('Il risultato e' ,c);
readln;
end;
until o=6;
repeat
until keypressed;
end.

Qui mi viene dato un errore alla riga 25,29. Non so quale è il problema...

Mi potreste aiutare?

Ultima modifica effettuata da tullio1995 il 21/03/2011 alle 20:38

crash outside control (Normal User)
Expert

Messaggi: 217
Iscritto: 12/02/2008

Postato alle 19:36
Lunedì, 21/03/2011

Semplicemente hai messo l'end del case nel punto sbagliato.
Devi metterlo prima di:

Codice sorgente - presumibilmente Plain Text

writeln('Il risultato e ',d);

O se volessi stampare il risultato solo per o=8, dovresti utilizzare "begin" ed "end" per delimitare un blocco di istruzioni. Altrimenti ti da un'errore come ora.

Ti consiglio di prestare attenzione all'indentazione. Può sembrare banale, ma fidati, aiuta molto.

ora lo compila però quando vado a fare le operazioni dalla 5 alla 8 m dice di inserire due numeri e non calcola il numero elevato - tullio1995 - 21/03/11 20:34

a_butta (Member)
Expert

Messaggi: 578
Iscritto: 16/03/2010

Postato alle 21:17
Lunedì, 21/03/2011

Ma prima di postare domande a nastro, perché non leggere l'errore che il compilatore ti fornisce e ragionarci su?
Cosa ti dice il compilatore? Avrà scritto qualcosa oltre al fatto che c'è qualcosa alla riga 25, 29. Posta gli errori del compilatore se non riesci a capirli e da lì partiremo.

PS: mi riferisco anche al tuo post sulla radice quadrata SQRT: se il compilatore ti avrà tirato fuori un errore del genere type real incompatible with integer, qualcosa ti farà riflettere

quoto - TheKaneB - 22/03/11 20:21