setscreen ("graphics:1000;500")
var number, math : int
put ""
var top : array 1 .. 12 of real
for i : 0 .. 12
put "" : 7, i ..
end for
put ""
%%%%%%%%%%%%%%
var top2 : array 1 .. 13 of real := init (1,1,2,3,4,5,6,7,8,9,10,11,12)
for b : 1 .. 13
put " " : 7, top2(b) ..
end for
put ""
var top3 : array 1 .. 13 of real := init (2,2,4,6,8,10,12,14,16,18,20,22,24)
for c : 1 .. 13
put " " : 5, top3(c) ..
end for
put ""
var top4 : array 1 .. 13 of real := init (3,3,6,9,12,15,18,21,24,28,32,36,40)
for d : 1 .. 13
put " " : 5, top4(d) ..
end for
put ""
var top5 : array 1 .. 13 of real := init (4,4,8,12,16,20,24,28,32,36,40,44,48)
for e : 1 .. 13
put " " : 5, top5(e) ..
end for
put ""
var top6 : array 1 .. 13 of real := init (5,5,10,15,20,25,30,35,40,45,50,55,60)
for f : 1 .. 13
put " " : 5, top6(f) ..
end for
put ""
var top7 : array 1 .. 13 of real := init (6,6,12,18,24,30,36,42,48,54,60,66,72)
for g : 1 .. 13
put " " : 5, top7(g) ..
end for
put ""
var top8 : array 1 .. 13 of real := init (7,7,14,21,28,35,42,49,56,63,70,77,84)
for h : 1 .. 13
put " " : 5, top8(h) ..
end for
put ""
var top9 : array 1 .. 13 of real := init (8,8,16,24,32,40,48,56,64,72,80,88,96)
for i : 1 .. 13
put " " : 5, top9(i) ..
end for
put ""
var top10 : array 1 .. 13 of real := init (9,9,18,27,36,45,54,63,72,81,90,99,108)
for j : 1 .. 13
put " " : 5, top10(j) ..
end for
put ""
var top11 : array 1 .. 13 of real := init (10,10,20,30,40,50,60,70,80,90,100,110,120)
for k : 1 .. 13
put " " : 5, top11(k) ..
end for
put ""
var top12 : array 1 .. 13 of real := init (11,11,22,33,44,55,66,77,88,99,110,121,132)
for l : 1 .. 13
put " " : 5, top12(l) ..
end for
put ""
var top13 : array 1 .. 13 of real := init (12,12,24,36,48,60,72,84,96,108,120,132,144)
for m : 1 .. 13
put " " : 5, top13(m) ..
end for
put ""
|