1 program dvd_ax;
2 uses mtx09;
3 var a: mtx; x:double=2.0;
4 begin
5 tra;
6 equ(a,'1 2 3; 4 5 6');
7 dvd(a,x);
8 dvd(x,a)
9 end.
10 {
11 # equ [2,3]
12 1 2 3
13 4 5 6
14
15 # dvd [2,3]
16 0.500000 1 1.50000
17 2 2.50000 3
18
19 # dvd [1,1] [2,3]
20 0.177778
21
22 }