1 program stk1;
2 uses mtx09;
3 var
4 a, b, r: mtx;
5 begin
6 tra;
7 equ(a,'1 2 3; 4 5 6');
8 zer(b,lgn(a,1));
9 add(b,a);
10 stk(r,a,b);
11 dvd(r,b);
12 mul(r,100.0)
13 end.
14 {
15 # equ [2,3]
16 1 2 3
17 4 5 6
18
19 # zer [1,3] [1,3]
20 0 0 0
21
22 # add [1,3] [2,3]
23 5 7 9
24
25 # stk [3,3] [2,3] [1,3]
26 1 2 3
27 4 5 6
28 5 7 9
29
30 # dvd [3,3] [1,3]
31 0.200000 0.285714 0.333333
32 0.800000 0.714286 0.666667
33 1 1 1
34
35 # mul [3,3]
36 20 28.5714 33.3333
37 80 71.4286 66.6667
38 100 100 100
39
40 }