Con le istruzioni Case...Of possiamo dare all'utente molteplici scelte, in modo simile ai comandi if then else.
Facciamo ora un esempio di come va strutturata la scelta:

program calc;
uses crt;
var a,b,c:real;
x:integer;
begin
clrscr;
writeln ('Se vuoi sommare premi 1.');
writeln ('Se vuoi sottrarre premi 2.');
writeln ('Se vuoi moltiplicare premi 3.');
writeln ('Se vuoi dividere premi 4.');
read (x);
writeln ('Scrivi il primo numero con cui vuoi operare: ');
read (a);
writeln ('Scrivi il secondo numero con cui vuoi operare: ');
read (b);
case x of
1: c:=a+b;
2: c:=a-b;
3: c:=a*b;
4: c:=a/b;
end;
writeln (Il risultato dell'' operazione è ',c:8:3);
readln;
readln;
end.

Il programma mostra prima la scelta dell'operazione da eseguire, poi acquisisce il valore della variabile "x" che indica al programma la scelta presa dall'utente. In seguito chiede i due numeri con cui operare, esegue i comandi secondo la scelta e infine comunica il risultato.

Se volessimo mettere in un caso più comandi dovremmo inserire un begin, scrivere i comandi e prima di passare al caso successivo, inserire un end;.

Esempio:

[...]
1: begin
writeln ('Scrivi il primo addendo');
read (a);
writeln ('Scrivi il secondo addendo');
read (b);
c:=a+b;
end;
2:[...]

Errori di punteggiatura e in fase di esecuzione

TrackBack URI for this entry