Anonymous user
Multiplication tables: Difference between revisions
m
→[[Print_a_Multiplication_Table#ALGOL_68]]: - misc tidy.
m (→[[Print_a_Multiplication_Table#ALGOL_68]]: - rm blank lines) |
m (→[[Print_a_Multiplication_Table#ALGOL_68]]: - misc tidy.) |
||
Line 1:
Produce a formatted 12×12 multiplication table of the kind memorised by rote when in primary school.
Only print the top half triangle of products.
Line 15:
FOR row TO max DO
printf((fmt,row));
FOR col
[row:max]INT product;
FOR col FROM row TO max DO product[col]:=row*col OD;
|