{ File: testrip1.pas } { Scopo: ordine dei dati in input ha effetto sulla necessita` o meno di usare array vedi file: testrip2.pas } program RipetizioniTest; { Legge i risultati (ognuno dei quali e` un valore reale compreso tra 0 e 100) di 20 test, per ognuno dei quali sono state effettuate due ripetizioni. Stampa la media ed il numero d'ordine per quei test per i quali la media dei risultati delle due ripetizioni e` maggiore del valore assoluto della lora differenza. Assume che in ingresso vengano forniti per ogni test, il risultato della prima ripetizione seguito immediatamente dal risultato della seconda ripetizione. } const NumeroTest = 5; type TipoRisultato = real; var ris1, ris2, media : TipoRisultato; i : 1..NumeroTest; begin for i := 1 to NumeroTest do begin write('Test ', i:2, ' - risultati delle due ripetizioni ? '); readln(ris1, ris2); media := (ris1 + ris2) / 2; if media > abs(ris1 - ris2) then writeln('Test ', i:2, ' valido! - Media risultati: ', media:7:2) else writeln('Test ', i:2, ' da scartare!') end end. { RipetizioniTest }