Pascal - Problema con la struttura case...of

Forum - Pascal - Problema con la struttura case...of

Mak (Normal User)
Rookie

Messaggi: 23
Iscritto: 17/08/2008

Postato alle 0:11
Giovedì, 11/09/2008

Ciao a tutti.
Sto seguendo la guida sul Pascal di questo sito, provando i codici per esercitarmi.
Nel capitolo 6, c'è questo codice:

Codice sorgente - presumibilmente Delphi

Program Esempio;
Uses Crt;
Var n:byte;
    c:word;
 
begin
    clrscr;
    write(‘Inserisci un numero: ‘);
    readln(n);
    case n of
         1: writeln(‘E’’ stato premuto il pulsante 1’);
         2: begin
            sound(440);
            delay(1000);
            nosound;
            end;
         3 or 4 or 5: write(‘Il numero premuto è fra 3 e 5’);
    else
      begin
      c:=sqr(n);
      writeln(c,’ è il quadrato di ‘,n);
      end;
    end;
    readln
end.

ma quando lo eseguo e premo il 3, il 4 o il 5, invece di venir fuori la scritta "Il numero premuto è fra 3 e 5", mi calcola la radice. Come si può aggiustare? Grazie.

totipianurese (Member)
Pro

Messaggi: 168
Iscritto: 24/06/2008

Postato alle 8:32
Giovedì, 11/09/2008

E semplice, con la struttura CASE, non si usa il connetivo logico OR, ma basta una semplice virgola ",".
Cmq ecco il sorgente:

Codice sorgente - presumibilmente Delphi

program Esempio;
uses Crt; 
var n:byte;
    c:word;
 
begin 
    clrscr; 
    write('Inserisci un numero: ');
    readln(n); 
    case n of
         1: writeln('Š stato premuto il pulsante 1');
         2: begin 
            sound(440); 
            delay(1000); 
            nosound; 
            end;
         3,4,5 :writeln('Il numero premuto Š fra 3 e 5');
    else 
      begin 
      c:=sqr(n); 
      writeln(c,' Š il quadrato di ',n);
      end; 
    end;
    readln 
end.

ciaooo

Mak (Normal User)
Rookie

Messaggi: 23
Iscritto: 17/08/2008

Postato alle 9:41
Giovedì, 11/09/2008

Grazie, ora funziona :k:

Bisognerebbe dare una ritoccata alla guida...