Relazione voto
Ci e’ stato posto il problema di creare un programma in linguaggio Pascal che,dato un voto intero in input visualizzi il relativo giudizio.
In questo problema esiste una sola variabile, quella che puo’ assumere i valori da 0 a 8: x.Questi valori sono costanti e vengono immessi dall’utente. Abbiamo compilato il programma usando:
INIZIO
Chiedi (“inserisci la valutazione (da 0 a 8));
Leggi (x);
Se x<5 allora
Scrivi (“il voto e’ scarso”)
Altrimenti
Se x=5 allora
Scrivi (“il voto e’ mediocre”)
Altrimenti
Se x=6 allora
Scrivi (“il voto e’ sufficiente”)
Altrimenti
Se x=7 allora
Scrivi (“il voto e’ discreto”)
Altrimenti
Se x=8 allora
Scrivi (“il voto e’ buono”)
Altrimenti
Scrivi(“il valore immesso non corrisponde ad una valutazione”)
FINE.
O
I
F V
F V O
F V
O
F V
O
F V
O
O
O
X
|
4
|
|
Output
|
Inserisci la
valutazione (da 0 a 8)
|
Il voto e’ scarso
|
x
|
7
|
|
output
|
Inserisci la
valutazione (da 0 a 8)
|
Il voto e’ discreto
|
INIZIO
Chiedi (“inserisci la valutazione (da 0 a 8));
Leggi (x);
Nel caso in cui x sia
0.. 4:Scrivi (“il voto e’ scarso”);
5: Scrivi (“il voto e’ mediocre”);
6: Scrivi (“il voto e’ sufficiente”);
7: Scrivi (“il voto e’ discreto”);
8: Scrivi (“il voto e’ buono”);
altrimenti
scrivi(“il valore immesso non corrisponde ad una valutazione”);
Fine caso;
FINE.
X
|
4
|
|
Output
|
Inserisci la
valutazione (da 0 a 8)
|
Il voto e’ scarso
|
x
|
7
|
|
output
|
Inserisci la
valutazione (da 0 a 8)
|
Il voto e’ discreto
|
Programma con le Procedura.
Procedura inser;
Inizio
scrivi('inserisci
la valutazione(da 0 a 10)');
leggi(x);
Fine;
Procedura calcolo;
Inizio
se
x<5 allora scrivi('il voto e scarso') altrimenti
se
x=5 allora scrivi('il voto e mediocre') altrimenti
se
x=6 allora scrivi('il voto e sufficiente') altrimenti
se
x=7 allora scrivi('il voto e discreto') altrimenti
se
x=8 allora scrivi('il voto e buono')
altrimenti
scrivi('nessun
voto');
Fine;
{programma principale}
Inizio
inser;
calcolo;
Fine.
Programma principale Procedura inser
O
I
Procedure calcolo
F V
F V O
F V O
F V O
F V O
O
O
procedura acqui;
Inizio
scrivi('inserisci
la valutazione(da 0 a 10)');
leggi(x);
Fine;
procedura calcolo;
Inizio
case x of
0..4:
scrivi('il voto e scarso');
5 : scrivi('il voto e mediocre');
6 : scrivi('il voto e sufficiente');
7 : scrivi('il voto e discreto');
8 : scrivi('il voto e buono');
altrimenti inizio
scrivi('nessun voto');
Fine;
Fine;
Fine;
{programma principale}
Inizio
acqui;
calcolo;
Fine.
X
|
4
|
|
Output
|
Inserisci la
valutazione (da 0 a 8)
|
Il voto e’ scarso
|
x
|
7
|
|
output
|
Inserisci la
valutazione (da 0 a 8)
|
Il voto e’ discreto
|