Home

A scuola di Delphi

www.gpeano.org 

Introduzione · Capitolo 1 · Capitolo 2 · Capitolo 3 · Capitolo 4 · Capitolo 5 · Download 

Sommario
Euroconvertitore
Area rettangolo
Propagaz. errori
Cubo binomio
Equazione lineare
Calcolatrice
Numeri dispari
Esadecimale
Sommat. Produtt.
Divisori
Somma divisori
Fattori
 

Capitolo 1

Propagazione degli errori di misura

Spesso nelle classi prime di vari ordini di scuole vengono realizzati esperimenti in cui successivamente è necessario propagare l'errore di misura per la determinazione delle grandezze fisiche indirette.

Il programma è molto semplice: vi sono due campi Edit per ogni grandezza fisica, uno per il valor medio, l'altro per l'errore. Alla pressione del tasto Propaga, la prima grandezza fisica a viene sommata alla seconda grandezza fisica b ed il risultato con il relativo errore viene visualizzato.
Poi vi sono varie Label di commento per aumentare la leggibilità del programma.

Ricordando che se: c = a + b, allora Δc = Δa + Δb. La realizzazione di questo 3º programma Delphi è lasciata al lettore, che ormai dovrebbe possedere le conoscenze necessarie allo scopo.

Osservazione. Ricordarsi di assegnare a tutti gli oggetti presenti sulla form e sulla form stessa nomi (Name) significativi, altrimenti il listato del programma risulterà incomprensibile e nella fase di scrittura della procedura non si saprà che cosa sono Edit1, Edit2, Edit3, etc. Ricordarsi inoltre di salvare il Project e la Unit in una cartella separata dalla altre, ad es. all'interno di Documenti/Delphi/PropagazioneErrori.

Nomi consigliati da assegnare alle proprietà dei vari oggetti:

  • object FormPropagazioneErrori: TFormPropagazioneErrori
      Caption = 'Propagazione errori'
  • object LabelA: TLabel
      Caption = 'a = (                ±                )'
  • object EditA: TEdit
      Text = ''
  • object EditDa: TEdit
      Text = ''
  • object LabelB: TLabel
      Caption = 'b = (                ±                )'
  • object EditB: TEdit
      Text = ''
  • object EditDb: TEdit
      Text = ''
  • object LabelSomma: TLabel
      Caption = 'c = a + b'
  • object ButtonPropaga: TButton
      Caption = 'Propaga'
      OnClick = ButtonPropagaClick
  • object LabelC: TLabel
      Caption = 'c = (                ±                )'
  • object EditC: TEdit
      Text = ''
  • object EditDc: TEdit
      Text = ''

Esercizio. Migliorare il programma suddetto inserendo 4 tasti con associate 4 differenti procedure, in modo da poter effettuare la propagazione dell'errore non solo sull'addizione, ma anche sulla sottrazione, la moltiplicazione e la divisione.

 1.03 - Propagazione errori