Family Day update

Task/Formatted-numeric-output/Julia/formatted-numeric-output.julia

@@ -1,3 +1,4 @@
+using Printf
 test = [7.125, [rand()*10^rand(0:4) for i in 1:9]]
 
 println("Formatting some numbers with the @sprintf macro (using \"%09.3f\"):")

Task/Formatted-numeric-output/XPL0/formatted-numeric-output.xpl0

@@ -0,0 +1,9 @@
+int C;
+[Format(5, 3);                  \5 places before decimal point and 3 after
+RlOut(8, 7.125);                \output real number to internal buffer
+loop    [C:= ChIn(8);           \read character from internal buffer
+        if C = ^  then C:= ^0;  \change leading space characters to zeros
+        if C = $1A then quit;   \exit loop on end-of-file (EOF = end of chars)
+        ChOut(0, C);            \display digit character on terminal
+        ];
+]