MODULE testnum; (* NUM test *) FROM NUM IMPORT WriteLR,ReadLR,TruncLR,RoundLR; FROM MYINOUT IMPORT ReadLongReal,Read, ReadLn, ReadCard, WriteLongReal, WriteString, WriteLn; VAR rep : CHAR; nb : LONGREAL; i,j,k : CARDINAL; fin : BOOLEAN; BEGIN WriteLn; WriteString("Verification des procedures ReadLR, WriteLR, "); WriteLn; WriteString("et des fonctions TruncLR et RoundLR du module NUM."); WriteLn; REPEAT WriteLn; WriteString("Entrez le nombre : "); ReadLR (nb); ReadLn; WriteString("Entrez le nombre total de positions : "); ReadCard (i); ReadLn; WriteString("Entrez le nombre de decimales : "); ReadCard (j); ReadLn; WriteString("Entrez le nombre de chiffres significatifs : "); ReadCard (k); ReadLn; WriteLn; WriteString("WriteLR : "); WriteLR (nb,i,j,k); WriteLn; WriteString("(fonction TruncLR, WriteLongReal) : "); WriteLn; WriteLongReal (TruncLR (nb), 20, 5); WriteLn; WriteString("(fonction RoundLR, WriteLongReal) : "); WriteLn; WriteLongReal (RoundLR (nb), 20, 5); WriteLn; WriteString("Fin des tests ? "); Read(rep);ReadLn; WriteLn; fin := ( ( CAP(rep) = 'Y' ) OR ( CAP(rep) = 'O') ); UNTIL fin; END testnum.