Rosetta Code

Chemical calculator: Difference between revisions

Page Discussion

Chemical calculator (view source)

Revision as of 14:53, 20 November 2022

87 bytes removed ,  1 year ago
m
→‎{{header|ALGOL W}}: Adjust layout to avoid wrapped lines
m (→‎{{header|ALGOL W}}: Adjust layout to avoid wrapped lines)
Line 187:
real procedure parseCompound ; begin
real mass, itemMass;
% parses an element symbol fromfeom the molecule and returnsretutns its mass %
real procedure parseAtom ; begin
string(3) symbol;
Line 265:
A("Es",252 );A("Fm",257 ); % Md % %, No % % Lr %
end Actinides ;
A("Li",real 6.94 )CsMass;A("Na",22.98976928 );A("K",CsMass 39.0983:= );A("Rb", 85.4678 );A("Cs",132.90545196);A("Fr", 223 );
A("BeLi", 96.012183194 );A("MgNa",2422.305 98976928 );A("CaK",40.078 39.0983 );A("SrRb", 8785.62 4678 );A("BaCs",137.327 CsMass );A("RaFr", 226 223);
A("Be", 9.0121831 );A("Mg",24.305 );A("ScCa",4440.955908078 );A("YSr", 8887.90584);62 Lanthanides);A("Ba",137.327 Actinides);A("Ra",226);
A("TiSc",4744.867 955908);A("ZrY", 91.224 );A("Hf",17888.49 90584);Lanthanides; % Rf %Actinides;
A("VTi", 5047.9415867 );A("NbZr", 9291.90637224 );A("TaHf",180178.9478849 ); % Db Rf %
A("CrV",51 50.99619415 );A("MoNb", 9592.95 90637);A("WTa", 183180.84 94788 ); % Sg Db %
A("MnCr",5451.9380449961 );A("Mo", %95.95 Tc % );A("ReW",186 183.207 84 ); % Bh Sg %
A("FeMn",5554.845938044); % Tc );A("Ru",101.07 ); % A("OsRe",190186.23 207 ); % Hs Bh %
A("CoFe",5855.933194845 );A("RhRu",102101.905507 );A("IrOs",192190.217 23 ); % Mt Hs %
A("NiCo",58.6934 933194);A("PdRh",106102.42 9055 );A("PtIr",195192.084 217 ); % Ds Mt %
A("CuNi",6358.546 6934 );A("AgPd",107106.868242 );A("AuPt",196195.966569084 ); % Rg Ds %
A("ZnCu",6563.38 546 );A("CdAg",112107.414 8682 );A("HgAu",200196.592 966569); % Cn Rg %
A("B", 10.81 );A("Al",26.9815385 ); A("GaZn",6965.72338 );A("InCd",114112.818414 );A("TlHg",204200.38 592 ); % Nh Cn %
A("CB", 1210.01181 );A("SiAl",2826.085 9815385 );A("GeGa",7269.63 723 );A("SnIn",118114.71 818 );A("PbTl",207204.2 38 ); % Fl Nh %
A("NC", 1412.007011 );A("PSi", 3028.973761998085 );A("AsGe",7472.92159563 );A("SbSn",121118.7671 );A("BiPb",208207.98042 ); % Ms Fl %
A("ON", 1514.999007 );A("SP", 3230.06 973761998);A("SeAs",7874.971 921595);A("TeSb",127121.6 76 );A("PoBi",209 208.9804 ); % Lv Ms %
A("FO", 1815.998403163999 );A("ClS",35 32.4506 );A("BrSe",7978.904971 );A("ITe", 126127.904476 );A("AtPo",210 209 ); % Ts Lv %
A("NeF",20 18.1797 998403163);A("ArCl",3935.94845 );A("KrBr",8379.798904 );A("XeI",131 126.293 90447);A("RnAt",222 210 ); % Og Ts %
A("Ne",20.1797 );A("Ar",39.948 );A("Kr",83.798 );A("Xe",131.293 );A("Rn",222 ); % Og %
% ---------------- first period elements ---> % A("H", 1.008);A("He", 4.002602);
% --- hypothetical eigth period elements ---> % A("Uue",315 );A("Ubn",299 );
Line 313 ⟶ 314:
UueCl : 350.450
</pre>
 
=={{header|AutoHotkey}}==
<syntaxhighlight lang="autohotkey">test := ["H", "H2", "H2O", "H2O2", "(HO)2", "Na2SO4", "C6H12", "COOH(C(CH3)2)3CH3", "C6H4O2(OH)4", "C27H46O"
Tigerofdarkness
3,021

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/333730"