Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Salve a tutti, ho provato a svolgere l'esercizio riguardante Case..of. Ho provato a risolverlo, ma essendo abbastanza digiuno di Pascal non ho ottenuto buoni risultati. Qualcuno potrebbe corregerlo e darmi una mano?? Ho le olimpiadi di Informatica, ma non so nulla!!! HELP!
program Operazioni;
Uses Crt;
Var a,b,c:real;
d:integer;
begin
clrscr;
write('Inserire un numero reale: ');
readln(a);
write('Inserire un altro numero reale: ');
readln(b);
writeln('Premere 1 per eseguire la somma dei due numeri, Premere 2 per eseguire la differenza dei due numeri, Premere 3 per eseguire la moltiplicazione dei due numeri,Premere 4 per eseguire la divisione dei due numeri');
write('Scegliere l''operazione da effettuare: ');
readln(d);
case d of
1: c:=a+b;
writeln('Il risultato della somma è: ',c);
2: c:=a-b;
writeln('Il risultato della sottrazione è: ',c);
3: c:=a*b;
writeln('Il risultato della moltiplicazione è: ',c);
4: c:=a/b;
writeln('Il risultato della divisione è: ',c);
else
writeln('Selezionare SOLO una delle quattro opzioni');
end;
readln
end.
Program Operazioni;
Uses Crt;
Var a,b,c:real;
d:integer;
begin
clrscr;
write('Inserire un numero reale: ');
readln(a);
write('Inserire un altro numero reale: ');
readln(b);
writeln('Premere 1 per eseguire la somma dei due numeri, Premere 2 per eseguire la differenza dei due numeri, Premere 3 per eseguire la moltiplicazione dei due numeri,Premere 4 per eseguire la divisione dei due numeri');
write('Scegliere l''operazione da effettuare: ');
readln(d);
case d of
1: c:=a+b;
writeln('Il risultato della somma è: ',c);
2: c:=a-b;
writeln('Il risultato della sottrazione è: ',c);
3: c:=a*b;
writeln('Il risultato della moltiplicazione è: ',c);
4: c:=a/b;
writeln('Il risultato della divisione è: ',c);
else
writeln('Selezionare SOLO una delle quattro opzioni');
end;
readln
end.
è una sciochezza hai dimenticato dei begin-end;
ecco la risoluzione
Codice sorgente - presumibilmente Delphi
Program Operazioni;
Uses Crt;
Var a,b,c:real;
d:integer;
begin
clrscr;
write('Inserire un numero reale: ');
readln(a);
write('Inserire un altro numero reale: ');
readln(b);
writeln('Premere 1 per eseguire la somma dei due numeri, Premere 2 per eseguire la differenza dei due numeri, Premere 3 per eseguire la moltiplicazione dei due numeri,Premere 4 per eseguire la divisione dei due numeri');
write('Scegliere l''operazione da effettuare: ');
readln(d);
case d of
1:
begin
c:=a+b;
writeln('Il risultato della somma è: ',c:0:2);
end;
2:
begin
c:=a-b;
writeln('Il risultato della sottrazione è: ',c:0:2);
end;
3:
begin
c:=a*b;
writeln('Il risultato della moltiplicazione è: ',c:0:2);
end;
4:
begin
c:=a/b;
writeln('Il risultato della divisione è: ',c:0:2);
end;
else
writeln('Selezionare SOLO una delle quattro opzioni');