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-10-16 18:07:41 -07:00
parent 81fd053722
commit 52a6ef48dd
10248 changed files with 63654 additions and 6775 deletions
Download patch file Download diff file Expand all files Collapse all files

34
Task/Periodic-table/QBasic/periodic-table.basic
View file

@ -1,3 +1,20 @@
DECLARE SUB MostarPos (N)
DIM Element(0 TO 12)
RESTORE elements
elements:
DATA 1,2,29,42,57,58,59,71,72,89,90,103,113
FOR x = 0 TO 12: READ Element(x): NEXT x
FOR I = 0 TO UBOUND(Element)
MostarPos (Element(I))
NEXT I
a:
DATA 1,2,5,13,57,72,89,104
b:
DATA -1,15,25,35,72,21,58,7
SUB MostarPos (N)
DIM a(7)
RESTORE a:
@ -8,25 +25,10 @@ SUB MostarPos (N)
I = 7
WHILE a(I) > N
I = I - 1
I = I - 1
WEND
M = N + b(I)
R = (M \ 18) + 1
C = (M MOD 18) + 1
PRINT USING "Atomic number ### -> #_, ##"; N; R; C
END SUB
DIM Element(0 TO 12)
RESTORE elements
elements:
DATA 1, 2, 29, 42, 57, 58, 59, 71, 72, 89, 90, 103, 113
FOR x = 0 TO 12: READ Element(x): NEXT x
FOR I = 0 TO UBOUND(Element)
MostarPos (Element(I))
NEXT I
a:
DATA 1, 2, 5, 13, 57, 72, 89, 104
b:
DATA -1, 15, 25, 35, 72, 21, 58, 7