Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Pascal - Esercizio su Case..of
Forum - Pascal - Esercizio su Case..of

Avatar
giodum (Normal User)
Newbie


Messaggi: 1
Iscritto: 15/12/2006

Segnala al moderatore
Postato alle 23:29
Venerdì, 15/12/2006
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.

AIUTATEMI!!! Grazie :(

PM Quote
Avatar
Maury91 (Member)
Expert


Messaggi: 531
Iscritto: 18/09/2006

Segnala al moderatore
Postato alle 19:49
Sabato, 16/12/2006
Testo quotato

Postato originariamente da giodum:

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

  1. Program Operazioni;
  2. Uses Crt;
  3. Var a,b,c:real;
  4.     d:integer;
  5. begin
  6.   clrscr;
  7.   write('Inserire un numero reale: ');
  8.   readln(a);
  9.   write('Inserire un altro numero reale: ');
  10.   readln(b);
  11.   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');
  12.   write('Scegliere l''operazione da effettuare: ');
  13. readln(d);
  14. case d of
  15. 1:
  16. begin
  17.  c:=a+b;
  18.  writeln('Il risultato della somma è: ',c:0:2);
  19. end;
  20. 2:
  21. begin
  22.  c:=a-b;
  23.  writeln('Il risultato della sottrazione è: ',c:0:2);
  24. end;
  25. 3:
  26. begin
  27.  c:=a*b;
  28.  writeln('Il risultato della moltiplicazione è: ',c:0:2);
  29. end;
  30. 4:
  31. begin
  32.  c:=a/b;
  33.  writeln('Il risultato della divisione è: ',c:0:2);
  34. end;
  35. else
  36.   writeln('Selezionare SOLO una delle quattro opzioni');
  37. end;
  38. readln;
  39. end.


tutto qui .:asd:

PM Quote