Relazione salute

Ci e’ stato posto il problema di creare un programma in linguaggio Pascal che chieda all’utente:”stai bene in salute”.L’utente puo’ rispondere  S o N,se la risposta e’ S il computer deve rispondere “sono felice”, altrimenti, se la risposta e’ N, il computer deve rispondere:”ti consiglio di andare dal medico”.

In questo problema esiste una sola variabile, quella che puo’ assumere valori “S” o “N” , che sono costanti e vengono immessi dall’utente.

La variabile e’ stata chiamata x.

 

Pseudocodice

 

INIZIO

Chiedi (stai bene in salute?);

Leggi (variabile);

Se variabile =S allora

                                    Scrivi (sono felice per te)

                        Altrimenti

                                    Scrivi (ti consiglio di andare dal medico);

FINE.

 

Flow Chart

 

 

 

 


    O

 

 

 

   I

 

 

F                                              V

 

 

 

 

 

 

        O                                                                   O

 

 

 

 

 

 

 

 

Programma in formato pascal

 

Tracing

x

s

 

output

Stai bene in salute?

Sono felice per te

x

n

 

output

Stai bene in salute?

Ti consiglio di andare dal medico

 

 

Programma con le procedure.

 

Pseudocodice

 

Procedura Domanda;

Inizio

Scrivi ('Stai bene in salute?');

Leggi (variabile);

Fine;

 

Procedura risposta;

Inizio

            Se variabile ='s' allora

                        Scrivi('Sono felice per te') altrimenti

                        Scrivi('Ti consiglio di andare dal medico');

Fine;

 

{main program}

INIZIO

            domanda;

            risposta;

Fine.

 

Flow chart

 

                                    Programma principale                           Procedura domanda

 

 

 

 


                                                                                                                                       O

 

 

 

                                                                                                                           I

 

 

 

 

 

 

 

                                                        Procedura risposta

 

 

 

 

 

 

 

 

 

 

 

 

                                                                                                                                    O

 

                                                              O

 

 

 

 

 

 

 

 

 

 

Programma in formato pascal

 

Tracing

x

s

 

output

Stai bene in salute?

Sono felice per te

x

n

 

output

Stai bene in salute?

Ti consiglio di andare dal medico