MODULE format; FROM SUPINT IMPORT SuperInteger, Create, ReadSup, WriteSup; FROM MYINOUT IMPORT ReadLongReal, ReadCard, WriteString, WriteLn, ReadLn; FROM NUM IMPORT WriteLR; VAR r : LONGREAL; i, j, k : CARDINAL; S : SuperInteger; BEGIN WriteString ('Test de la procedure WriteLR (module NUM)'); WriteLn; WriteString ('r = '); ReadLongReal ( r ); ReadLn; WriteString ('i = '); ReadCard ( i ); ReadLn; WriteString ('j = '); ReadCard ( j ); ReadLn; WriteString ('k = '); ReadCard ( k ); ReadLn; WriteLn; WriteString ('WriteLR =>'); WriteLR ( r, i, j, k ); WriteString ('<='); WriteLn; WriteLn; WriteString ('Test des procedures ReadSup et WriteSup (sentiers)' ); WriteLn; WriteString ("Lecture en base 'i' et ecriture en base 'j' ..."); WriteLn; Create (S, 4); WriteString ('i = '); ReadCard ( i ); ReadLn; WriteString ('j = '); ReadCard ( j ); ReadLn; WriteString ("S = "); ReadSup (S, i); ReadLn; WriteLn; WriteSup (S, j, 50); WriteLn; WriteLn; END format.