aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

langs a-z

Browse source
This commit is contained in:
Ingy döt Net 2013-04-10 22:43:41 -07:00
parent db842d013d
commit d066446780
11389 changed files with 98361 additions and 1020 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Task/Array-concatenation/PL-I/array-concatenation-1.pli Normal file
View file

@ -0,0 +1,3 @@
declare x(12) fixed;
declare b(5) fixed defined x;
declare c(7) fixed defined x(1sub+5);

3
Task/Array-concatenation/PL-I/array-concatenation-2.pli Normal file
View file

@ -0,0 +1,3 @@
declare x(m+n) fixed;
declare b(m) fixed defined x;
declare c(n) fixed defined x(1sub+hbound(b,1));

14
Task/Array-concatenation/PL-I/array-concatenation-3.pli Normal file
View file

@ -0,0 +1,14 @@
declare a(5,6) fixed;
declare b(3,4) fixed defined a(1sub, 2sub);
declare c(2,2) fixed defined a(1sub+hbound(b,1), 2sub+hbound(b,2));
declare (i, j, k) fixed;
a = 0;
put skip list ('Please type elements for a 3 x 4 matrix:');
get list (b);
put skip list ('Please type elements for a 2 x 2 matrix:');
get list (c);
put skip edit (c) ( skip, (hbound(c,2)) f(5,0) );
put skip list ('Composite matrix:');
put skip edit (a) ( skip, (hbound(a,2)) f(5,0) );

13
Task/Array-concatenation/PL-I/array-concatenation-4.pli Normal file
View file

@ -0,0 +1,13 @@
Please type elements for a 3 x 4 matrix:
Please type elements for a 2 x 2 matrix:
13 14
15 16
Composite matrix:
1 2 3 4 0 0
5 6 7 8 0 0
9 10 11 12 0 0
0 0 0 0 13 14
0 0 0 0 15 16