Procedure con parametri per valore

Passaggio dei parametri per valore

Scrive a una certa posizione un certo messaggio

Procedure scriviMessaggio(riga, colonna: Integer; msg: String);
Begin
   GotoXY(colonna, riga);
   Write(msg);
End;

Scrive n volte un numero casuale tra 1 e 6

Procedure lanciaDadoVolte(n: Integer);
Var
    dado: Integer;
Begin
    Randomize;
    For i:=1 to n Do
    Begin
        dado:=Random(6)+1:
        Write(dado:2);
    End;
End;

Lancia n volte due dadi

Procedure lancia2dadiVolte(n: Integer);
...

Sporca lo schermo scrivendo 100 volte un certo messaggio in posizione casuale

Procedure sporcaSchermo3(m: String);
...
    Write(m);
...

ESERCIZI

1. SfondoColorato(colore), pulisce lo schermo ma prima cambia il colore di sfondo
2. CambiaColori(colore1, colore2), imposta il colore di primo piano e di sfondo dei caratteri
3. ScriviMessaggioColorato(x, y, msg, colore), scrive un messaggio in una certa posizione e con un certo colore
4. SuonaNota(frequenza, durata), emette un suono di una certa frequenza e di una certa durata
5. Equazione1Grado(a, b), discute l’equazione di primo grado
6. Equazione2Grado(a, b, c), discute l’equazione di secondo grado