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
- SfondoColorato(colore), pulisce lo schermo ma prima cambia il colore di sfondo
- CambiaColori(colore1, colore2), imposta il colore di primo piano e di sfondo dei caratteri
- ScriviMessaggioColorato(x, y, msg, colore), scrive un messaggio in una certa posizione e con un certo colore
- SuonaNota(frequenza, durata), emette un suono di una certa frequenza e di una certa durata
- Equazione1Grado(a, b), discute l’equazione di primo grado
- Equazione2Grado(a, b, c), discute l’equazione di secondo grado