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

Data update

Browse source
This commit is contained in:
Ingy döt Net 2024-07-13 15:19:22 -07:00
parent 29a5eea0d4
commit 5c1bb7bfa9
2011 changed files with 35081 additions and 3229 deletions
Download patch file Download diff file Expand all files Collapse all files

37
Task/Vector/Chipmunk-Basic/vector.basic Normal file
View file

@ -0,0 +1,37 @@
100 cls
110 dim vect1(2)
120 vect1(1) = 5 : vect1(2) = 7
130 dim vect2(2)
140 vect2(1) = 2 : vect2(2) = 3
150 dim vect3(ubound(vect1))
160 for n = 1 to ubound(vect1)
170 vect3(n) = vect1(n)+vect2(n)
180 next n
190 print "["+str$(vect1(1))+", "+str$(vect1(2))+"] + ["+str$(vect2(1))+", "+str$(vect2(2))+"] = ";
200 showarray(vect3)
210 for n = 1 to ubound(vect1)
220 vect3(n) = vect1(n)-vect2(n)
230 next n
240 print "["+str$(vect1(1))+", "+str$(vect1(2))+"] - ["+str$(vect2(1))+", "+str$(vect2(2))+"] = ";
250 showarray(vect3)
260 for n = 1 to ubound(vect1)
270 vect3(n) = vect1(n)*11
280 next n
290 print "["+str$(vect1(1))+", "+str$(vect1(2))+"] * 11 = ";
300 showarray(vect3)
310 for n = 1 to ubound(vect1)
320 vect3(n) = vect1(n)/2
330 next n
340 print "["+str$(vect1(1))+", "+str$(vect1(2))+"] / 2 = ";
350 showarray(vect3)
360 end
370 sub showarray(vect3)
380 print "[";
390 svect$ = ""
400 for n = 1 to ubound(vect3)
410 svect$ = svect$+str$(vect3(n))+", "
420 next n
430 svect$ = left$(svect$,len(svect$)-2)
440 print svect$;
450 print "]"
460 end sub

37
Task/Vector/GW-BASIC/vector.basic Normal file
View file

@ -0,0 +1,37 @@
100 CLS : rem 100 HOME for Applesoft BASIC
110 DIM v1(2)
120 v1(1) = 5 : v1(2) = 7
130 DIM v2(2)
140 v2(1) = 2 : v2(2) = 3
150 DIM v3(2)
160 FOR n = 1 TO 2
170 v3(n) = v1(n)+v2(n)
180 NEXT n
190 PRINT "[";v1(1);", ";v1(2);"] + [";v2(1);", ";v2(2);"] = ";
200 GOSUB 370 : rem showarray(vect3)
210 FOR n = 1 TO 2
220 v3(n) = v1(n)-v2(n)
230 NEXT n
240 PRINT "[";v1(1);", ";v1(2);"] - [";v2(1);", ";v2(2);"] = ";
250 GOSUB 370 : rem showarray(vect3)
260 FOR n = 1 TO 2
270 v3(n) = v1(n)*11
280 NEXT n
290 PRINT "[";v1(1);", ";v1(2);"] * ";11;" = ";
300 GOSUB 370 : rem showarray(vect3)
310 FOR n = 1 TO 2
320 v3(n) = v1(n)/2
330 NEXT n
340 PRINT "[";v1(1);", ";v1(2);"] / ";2;" = ";
350 GOSUB 370 : rem showarray(vect3)
360 END
370 rem SUB showarray(vect3)
380 PRINT "[";
390 svt$ = ""
400 FOR n = 1 TO 2
410 svt$ = svt$+STR$(v3(n))+", "
420 NEXT n
430 svt$ = LEFT$(svt$,LEN(svt$)-2)
440 PRINT svt$;
450 PRINT "]"
460 RETURN

31
Task/Vector/PascalABC.NET/vector.pas Normal file
View file

@ -0,0 +1,31 @@
type
Vector = class
x,y: real;
public
constructor (xx,yy: real) := (x,y) := (xx,yy);
function ToString: string; override := $'({x},{y})';
end;
function operator+(v1,v2: Vector): Vector; extensionmethod
:= new Vector(v1.x + v2.x, v1.y + v2.y);
function operator-(v1,v2: Vector): Vector; extensionmethod
:= new Vector(v1.x - v2.x, v1.y - v2.y);
function operator*(v: Vector; n: real): Vector; extensionmethod
:= new Vector(v.x * n, v.y * n);
function operator*(n: real; v: Vector): Vector; extensionmethod
:= v * n;
function operator/(v: Vector; n: real): Vector; extensionmethod
:= new Vector(v.x / n, v.y / n);
begin
var v1 := new Vector(1,2);
var v2 := new Vector(3,4);
Println(v1 + v2);
Println(v1 - v2);
Println(v1 * 2.5, 2.5 * v1);
Println(v1 / 2);
end.

39
Task/Vector/QBasic/vector.basic Normal file
View file

@ -0,0 +1,39 @@
DECLARE SUB showarray (vect3!())
CLS
DIM vect1(2)
vect1(1) = 5: vect1(2) = 7
DIM vect2(2)
vect2(1) = 2: vect2(2) = 3
DIM vect3(UBOUND(vect1))
FOR n = 1 TO UBOUND(vect1)
vect3(n) = vect1(n) + vect2(n)
NEXT n
PRINT "["; STR$(vect1(1)); ","; STR$(vect1(2)); " ] + ["; STR$(vect2(1)) + ","; STR$(vect2(2)); " ] = ";
CALL showarray(vect3())
FOR n = 1 TO UBOUND(vect1)
vect3(n) = vect1(n) - vect2(n)
NEXT n
PRINT "["; STR$(vect1(1)); ","; STR$(vect1(2)); " ] - ["; STR$(vect2(1)) + ","; STR$(vect2(2)); " ] = ";
CALL showarray(vect3())
FOR n = 1 TO UBOUND(vect1)
vect3(n) = vect1(n) * 11
NEXT n
PRINT "["; STR$(vect1(1)); ","; STR$(vect1(2)); " ] * 11 = ";
CALL showarray(vect3())
FOR n = 1 TO UBOUND(vect1)
vect3(n) = vect1(n) / 2
NEXT n
PRINT "["; STR$(vect1(1)); ","; STR$(vect1(2)); " ] / 2 = ";
CALL showarray(vect3())
END
SUB showarray (vect3())
PRINT "[";
svect$ = ""
FOR n = 1 TO UBOUND(vect3)
svect$ = svect$ + STR$(vect3(n)) + ","
NEXT n
svect$ = LEFT$(svect$, LEN(svect$) - 1)
PRINT svect$;
PRINT " ]"
END SUB

40
Task/Vector/True-BASIC/vector.basic Normal file
View file

@ -0,0 +1,40 @@
SUB showarray (vect3())
PRINT "[";
LET svect$ = ""
FOR n = 1 TO UBOUND(vect3)
LET svect$ = svect$ & STR$(vect3(n)) & ", "
NEXT n
LET svect$ = (svect$)[1:LEN(svect$)-2]
PRINT svect$;
PRINT "]"
END SUB
DIM vect1(2)
LET vect1(1) = 5
LET vect1(2) = 7
DIM vect2(2)
LET vect2(1) = 2
LET vect2(2) = 3
DIM vect3(0)
MAT REDIM vect3(UBOUND(vect1))
FOR n = 1 TO UBOUND(vect1)
LET vect3(n) = vect1(n)+vect2(n)
NEXT n
PRINT "["; STR$(vect1(1)); ", "; STR$(vect1(2)); "] + ["; STR$(vect2(1)) & ", "; STR$(vect2(2)); "] = ";
CALL showarray (vect3())
FOR n = 1 TO UBOUND(vect1)
LET vect3(n) = vect1(n)-vect2(n)
NEXT n
PRINT "["; STR$(vect1(1)); ", "; STR$(vect1(2)); "] - ["; STR$(vect2(1)) & ", "; STR$(vect2(2)); "] = ";
CALL showarray (vect3())
FOR n = 1 TO UBOUND(vect1)
LET vect3(n) = vect1(n)*11
NEXT n
PRINT "["; STR$(vect1(1)); ", "; STR$(vect1(2)); "] * 11 = ";
CALL showarray (vect3())
FOR n = 1 TO UBOUND(vect1)
LET vect3(n) = vect1(n)/2
NEXT n
PRINT "["; STR$(vect1(1)); ", "; STR$(vect1(2)); "] / 2 = ";
CALL showarray (vect3())
END