Site hosted by Angelfire.com: Build your free website today!
/* Period Table Program * * Programmed by Carlo * Project Started October 3, 2001 * */ #include <iostream.h> #include <conio.h> #include <rw/random.h> #include <string.h> #include <armory.h> //--------------------------------------------------------------------------- void Table(string Name, double Number, int Group, int Period, string Formula, string Charge, double Mass, int Neutrons, string Special) { Neutrons = (Mass - Number); clrscr(); gotoxy(1,2); cout<< "Element Name: " << Name << "\n\n"; cout<< "Formula: " << Formula << "\n"; cout<< "Atomic Number: " << Number << "\n"; cout<< "Atomic Mass: " << Mass << "\n"; cout<< "Group: " << Group << "\n"; cout<< "Period: " << Period << "\n"; cout<< "Charge: " << Charge << "\n"; cout<< "Neutrons: " << Neutrons << "\n"; if (Special != "None") { cout<< "Note: " << Special << "\n"; } Pause(); clrscr(); gotoxy(1,2); } //--------------------------------------------------------------------------- void Help() { clrscr(); gotoxy(1,2); cout<< "HELP\n\n"; cout<< "Help - Opens this window.\n"; cout<< "Clear - Clears current screen.\n"; cout<< "Prefix - Lists prefix terms.\n"; cout<< "Element Formula - Displays information of element (eg: Sn).\n"; cout<< "Atomic Number - Displays information of element (eg: 50).\n"; cout<< "Element Name - Displays information of element (eg: tin).\n"; cout<< "Credits - Information on the programmer.\n"; cout<< "Quit - Quits the program.\n"; Pause(); clrscr(); gotoxy(1,2); } //--------------------------------------------------------------------------- void Credits() { char CreditsKey; clrscr(); gotoxy(1,2); cout<< "CREDITS\n\n"; cout<< "I made the PERIODIC TABLE program near the end of 2000. I\n"; cout<< "had just discovered the world of C++ program, and was eager\n"; cout<< "to test it out. This is the result.\n"; cout<< "I have always enjoyed chemistry, and so it was no surprise to\n"; cout<< "me when a periodic table program was the first idea that\n"; cout<< "popped into my head.\n"; cout<< "I hope you have all enjoyed the program as an educational tool.\n"; cout<< "Enjoy the program, use it often, and my vision will be fufilled.\n\n"; cout<< "\tProgrammed by Carlo (completed 2001)\n"; Pause(); clrscr(); gotoxy(1,2); } //--------------------------------------------------------------------------- void Prefix() { clrscr(); gotoxy(1,2); cout<< "PREFIX\n\n"; cout<< "mono - One (1)\n"; cout<< "di - Two (2)\n"; cout<< "tri - Three (3)\n"; cout<< "tetra - Four (4)\n"; cout<< "penta - Five (5)\n"; cout<< "hexa - Six (6)\n"; cout<< "hepta - Seven (7)\n"; cout<< "octa - Eight (8)\n"; cout<< "nona or ennea - Nine (9)\n"; cout<< "deca - Ten (10)\n"; Pause(); clrscr(); gotoxy(1,2); } //--------------------------------------------------------------------------- int main() { randomize(); Wait(); int Color = 1+random(8); if (Color == 1) { textcolor(RED); } else if (Color == 2) { textcolor(MAGENTA); } else if (Color == 3) { textcolor(BLUE); } else if (Color == 4) { textcolor(GREEN); } else if (Color == 5) { textcolor(WHITE); } else if (Color == 6) { textcolor(YELLOW); } else if (Color == 7) { textcolor(BROWN); } else if (Color == 8) { textcolor(CYAN); } clrscr(); gotoxy(1,11); cout<< "\a\t\t\t PERIODIC TABLE \n"; cout<< "\a\t\t\t *--------------------* \n"; cout<<endl; cout<< "\a\t\t\t Program by Carlo \n"; cout<< "\a\t\t\t c. 2001 \n"; gotoxy(35,15); Pause(); textcolor(WHITE); textbackground(BLUE); clrscr(); gotoxy(1,2); //--------------------------------------------------------------------------- // VARIABLES string Formula, Name, Command, Charge, Special = "None"; int Group, Period; double Mass, Neutrons, Number; //--------------------------------------------------------------------------- do{ cout<< "COMMAND: "; cin>> Command; if ((Command == "Help") || (Command == "HELP") || (Command == "help")) { Help(); } else if ((Command == "Credits") || (Command == "CREDITS") || (Command == "credits")) { Credits(); } else if ((Command == "Clear") || (Command == "CLEAR") || (Command == "clear")) { clrscr(); gotoxy(1,2); } else if ((Command == "Prefix") || (Command == "PREFIX") || (Command == "prefix")) { Prefix(); } //--------------------------------------------------------------------------- else if ((Command == "1") || (Command == "hydrogen") || (Command == "H")) { Name = "hydrogen"; Number = 1; Group = 1; Period = 1; Formula = "H"; Charge = "1+"; Mass = 1.01; Special = "Diatomic"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "2") || (Command == "helium") || (Command == "He")) { Name = "helium"; Number = 2; Group = 18; Period = 1; Formula = "He"; Charge = "0"; Mass = 4.00; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "3") || (Command == "lithium") || (Command == "Li")) { Name = "lithium"; Number = 3; Group = 1; Period = 2; Formula = "Li"; Charge = "1+"; Mass = 6.94; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "4") || (Command == "beryllium") || (Command == "Be")) { Name = "beryllium"; Number = 4; Group = 2; Period = 2; Formula = "Be"; Charge = "2+"; Mass = 9.01; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "5") || (Command == "boron") || (Command == "B")) { Name = "boron"; Number = 5; Group = 13; Period = 2; Formula = "B"; Charge = "3+"; Mass = 10.81; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "6") || (Command == "carbon") || (Command == "C")) { Name = "carbon"; Number = 6; Group = 14; Period = 2; Formula = "C"; Charge = "4+"; Mass = 12.01; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "7") || (Command == "nitrogen") || (Command == "N")) { Name = "nitrogen"; Number = 7; Group = 15; Period = 2; Formula = "N"; Charge = "3-"; Mass = 14.01; Special = "Diatomic"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "8") || (Command == "oxygen") || (Command == "O")) { Name = "oxygen"; Number = 8; Group = 16; Period = 2; Formula = "O"; Charge = "2-"; Mass = 16.00; Special = "Diatomic"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "9") || (Command == "flourine") || (Command == "F")) { Name = "fluorine"; Number = 9; Group = 17; Period = 2; Formula = "F"; Charge = "1-"; Mass = 19.00; Special = "Diatomic"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "10") || (Command == "neon") || (Command == "Ne")) { Name = "neon"; Number = 10; Group = 18; Period = 2; Formula = "Ne"; Charge = "0"; Mass = 20.18; Special = "Noble Gas"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "11") || (Command == "sodium") || (Command == "Na")) { Name = "sodium"; Number = 11; Group = 1; Period = 3; Formula = "Na"; Charge = "1+"; Mass = 22.99; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "12") || (Command == "magnesium") || (Command == "Mg")) { Name = "magnesium"; Number = 12; Group = 2; Period = 3; Formula = "Mg"; Charge = "2+"; Mass = 24.31; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "13") || (Command == "aluminum") || (Command == "Al")) { Name = "aluminum"; Number = 13; Group = 13; Period = 3; Formula = "Al"; Charge = "3+"; Mass = 26.98; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "14") || (Command == "silicon") || (Command == "Si")) { Name = "silicon"; Number = 14; Group = 14; Period = 3; Formula = "Si"; Charge = "4+"; Mass = 28.09; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "15") || (Command == "phosphorous") || (Command == "P")) { Name = "phosphorus"; Number = 15; Group = 15; Period = 3; Formula = "P"; Charge = "3-"; Mass = 30.97; Special = "Diatomic"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "16") || (Command == "sulfur") || (Command == "S")) { Name = "sulfur"; Number = 16; Group = 16; Period = 3; Formula = "S"; Charge = "2-"; Mass = 32.06; Special = "Diatomic"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "17") || (Command == "chlorine") || (Command == "Cl")) { Name = "chlorine"; Number = 17; Group = 17; Period = 3; Formula = "Cl"; Charge = "1-"; Mass = 35.45; Special = "Diatomic"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "18") || (Command == "argon") || (Command == "Ar")) { Name = "argon"; Number = 18; Group = 18; Period = 3; Formula = "Ar"; Charge = "0"; Mass = 39.95; Special = "Noble Gas"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "19") || (Command == "potassium") || (Command == "K")) { Name = "potassium"; Number = 19; Group = 1; Period = 4; Formula = "K"; Charge = "1+"; Mass = 39.10; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "20") || (Command == "calcium") || (Command == "Ca")) { Name = "calcium"; Number = 20; Group = 2; Period = 4; Formula = "Ca"; Charge = "2+"; Mass = 40.08; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "21") || (Command == "scandium") || (Command == "Sc")) { Name = "scandium"; Number = 21; Group = 3; Period = 4; Formula = "Sc"; Charge = "3+"; Mass = 44.96; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "22") || (Command == "titanium") || (Command == "Ti")) { Name = "titanium"; Number = 22; Group = 4; Period = 4; Formula = "Ti"; Charge = "4+ \\ 3+"; Mass = 47.88; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "23") || (Command == "vanadium") || (Command == "V")) { Name = "vanadium"; Number = 23; Group = 5; Period = 4; Formula = "V"; Charge = "5+ \\ 4+"; Mass = 50.94; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "24") || (Command == "chromium") || (Command == "Cr")) { Name = "chromium"; Number = 24; Group = 6; Period = 4; Formula = "Cr"; Charge = "3+ \\ 2+"; Mass = 52.00; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "25") || (Command == "manganese") || (Command == "Mn")) { Name = "manganese"; Number = 25; Group = 7; Period = 4; Formula = "Mn"; Charge = "2+ \\ 4+"; Mass = 54.94; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "26") || (Command == "iron") || (Command == "Fe")) { Name = "iron"; Number = 26; Group = 8; Period = 4; Formula = "Fe"; Charge = "3+ \\ 2+"; Mass = 55.85; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "27") || (Command == "cobalt") || (Command == "Co")) { Name = "cobalt"; Number = 27; Group = 9; Period = 4; Formula = "Co"; Charge = "2+ \\ 3+"; Mass = 58.93; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "28") || (Command == "nickel") || (Command == "Ni")) { Name = "nickel"; Number = 28; Group = 10; Period = 4; Formula = "Ni"; Charge = "2+ \\ 3+"; Mass = 58.69; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "29") || (Command == "copper") || (Command == "Cu")) { Name = "copper"; Number = 29; Group = 11; Period = 4; Formula = "Cu"; Charge = "2+ \\ 1+"; Mass = 63.55; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "30") || (Command == "zinc") || (Command == "Zn")) { Name = "zinc"; Number = 30; Group = 12; Period = 4; Formula = "Zn"; Charge = "2+"; Mass = 65.38; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "31") || (Command == "gallium") || (Command == "Ga")) { Name = "gallium"; Number = 31; Group = 13; Period = 4; Formula = "Ga"; Charge = "3+"; Mass = 69.72; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "32") || (Command == "germanium") || (Command == "Ge")) { Name = "germanium"; Number = 32; Group = 14; Period = 4; Formula = "Ge"; Charge = "4+"; Mass = 72.61; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "33") || (Command == "arsonic") || (Command == "As")) { Name = "arsonic"; Number = 33; Group = 15; Period = 4; Formula = "As"; Charge = "3-"; Mass = 74.92; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "34") || (Command == "selenium") || (Command == "Se")) { Name = "selenium"; Number = 34; Group = 16; Period = 4; Formula = "Se"; Charge = "2-"; Mass = 78.96; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "35") || (Command == "bromine") || (Command == "Br")) { Name = "bromine"; Number = 35; Group = 17; Period = 4; Formula = "Br"; Charge = "1-"; Mass = 79.90; Special = "Diatomic"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "36") || (Command == "krypton") || (Command == "Kr")) { Name = "krypton"; Number = 36; Group = 18; Period = 4; Formula = "Kr"; Charge = "0"; Mass = 83.80; Special = "Noble Gas"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "37") || (Command == "rubidium") || (Command == "Rb")) { Name = "rubidium"; Number = 37; Group = 1; Period = 5; Formula = "Rb"; Charge = "1+"; Mass = 85.47; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "38") || (Command == "stronthum") || (Command == "Sr")) { Name = "stronthum"; Number = 38; Group = 2; Period = 5; Formula = "Sr"; Charge = "2+"; Mass = 87.62; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "39") || (Command == "ythrium") || (Command == "Y")) { Name = "ythrium"; Number = 39; Group = 3; Period = 5; Formula = "Y"; Charge = "3+"; Mass = 88.91; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "40") || (Command == "zirconium") || (Command == "Zr")) { Name = "zirconium"; Number = 40; Group = 4; Period = 5; Formula = "Zr"; Charge = "4+"; Mass = 91.22; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "41") || (Command == "niobium") || (Command == "Nb")) { Name = "niobium"; Number = 41; Group = 5; Period = 5; Formula = "Nb"; Charge = "5+ \\ 3+"; Mass = 92.91; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "42") || (Command == "molybdenum") || (Command == "Mo")) { Name = "molybdenum"; Number = 42; Group = 6; Period = 5; Formula = "Mo"; Charge = "6+"; Mass = 95.94; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "43") || (Command == "techenium") || (Command == "Tc")) { Name = "techenium"; Number = 43; Group = 7; Period = 5; Formula = "Tc"; Charge = "7+"; Mass = 98.91; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "44") || (Command == "ruthenium") || (Command == "Ru")) { Name = "ruthenium"; Number = 44; Group = 8; Period = 5; Formula = "Ru"; Charge = "3+ \\ 4+"; Mass = 101.07; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "45") || (Command == "rhodium") || (Command == "Rh")) { Name = "rhodium"; Number = 45; Group = 9; Period = 5; Formula = "Rh"; Charge = "3+"; Mass = 102.91; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "46") || (Command == "palladium") || (Command == "Pd")) { Name = "palladium"; Number = 46; Group = 10; Period = 5; Formula = "Pd"; Charge = "2+ \\ 4+"; Mass = 106.42; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "47") || (Command == "silver") || (Command == "Ag")) { Name = "silver"; Number = 47; Group = 11; Period = 5; Formula = "Ag"; Charge = "1+"; Mass = 107.87; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "48") || (Command == "cadmium") || (Command == "Cd")) { Name = "cadmium"; Number = 48; Group = 12; Period = 5; Formula = "Cd"; Charge = "2+"; Mass = 112.41; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "49") || (Command == "indium") || (Command == "In")) { Name = "indium"; Number = 49; Group = 13; Period = 5; Formula = "In"; Charge = "3+"; Mass = 114.82; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "50") || (Command == "tin") || (Command == "Sn")) { Name = "tin"; Number = 50; Group = 14; Period = 5; Formula = "Sn"; Charge = "4+ \\ 2+"; Mass = 118.69; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "51") || (Command == "antimony") || (Command == "Sb")) { Name = "antimony"; Number = 51; Group = 15; Period = 5; Formula = "Sb"; Charge = "3+ \\ 5+"; Mass = 121.75; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "52") || (Command == "tellurium") || (Command == "Te")) { Name = "tellurium"; Number = 52; Group = 16; Period = 5; Formula = "Te"; Charge = "2-"; Mass = 127.60; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "53") || (Command == "iodine") || (Command == "I")) { Name = "iodine"; Number = 53; Group = 17; Period = 5; Formula = "I"; Charge = "1-"; Mass = 126.90; Special = "Diatomic"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "54") || (Command == "xenon") || (Command == "Xe")) { Name = "xenon"; Number = 54; Group = 18; Period = 5; Formula = "Xe"; Charge = "0"; Mass = 131.29; Special = "Noble Gas"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "55") || (Command == "cosium") || (Command == "Cs")) { Name = "cosiumn"; Number = 55; Group = 1; Period = 6; Formula = "Cs"; Charge = "1+"; Mass = 132.91; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "56") || (Command == "barium") || (Command == "Ba")) { Name = "barium"; Number = 56; Group = 2; Period = 6; Formula = "Ba"; Charge = "2+"; Mass = 137.33; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "57") || (Command == "lanthanum") || (Command == "La")) { Name = "lanthanum"; Number = 57; Group = 3; Period = 6; Formula = "La"; Charge = "3+"; Mass = 138.91; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "58") || (Command == "cerium") || (Command == "Ce")) { Name = "cerium"; Number = 58; Group = 5; Period = 6; Formula = "Ce"; Charge = "3+"; Mass = 140.12; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "59") || (Command == "pruseodymium") || (Command == "Pr")) { Name = "pruseodymium"; Number = 59; Group = 6; Period = 6; Formula = "Pr"; Charge = "3+"; Mass = 140.91; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "60") || (Command == "neodymium") || (Command == "Nd")) { Name = "neodymium"; Number = 60; Group = 7; Period = 6; Formula = "Nd"; Charge = "3+"; Mass = 144.24; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "61") || (Command == "promethium") || (Command == "Pm")) { Name = "promethium"; Number = 61; Group = 8; Period = 6; Formula = "Pm"; Charge = "3+"; Mass = 145; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "62") || (Command == "samarium") || (Command == "Sm")) { Name = "samarium"; Number = 62; Group = 9; Period = 6; Formula = "Sm"; Charge = "3+ \\ 2+"; Mass = 150.40; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "63") || (Command == "europium") || (Command == "Eu")) { Name = "europium"; Number = 63; Group = 10; Period = 6; Formula = "Eu"; Charge = "3+ \\ 2+"; Mass = 151.97; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "64") || (Command == "gadolinium") || (Command == "Gd")) { Name = "gadolinium"; Number = 64; Group = 11; Period = 6; Formula = "Gd"; Charge = "3+"; Mass = 157.25; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "65") || (Command == "terbium") || (Command == "Tb")) { Name = "terbium"; Number = 65; Group = 12; Period = 6; Formula = "Tb"; Charge = "3+"; Mass = 158.93; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "66") || (Command == "dysprosium") || (Command == "Dy")) { Name = "dysprosium"; Number = 66; Group = 13; Period = 6; Formula = "Dy"; Charge = "3+"; Mass = 162.50; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "67") || (Command == "helmium") || (Command == "Ho")) { Name = "helmium"; Number = 67; Group = 14; Period = 6; Formula = "Ho"; Charge = "3+"; Mass = 164.93; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "68") || (Command == "erbium") || (Command == "Er")) { Name = "erbium"; Number = 68; Group = 15; Period = 6; Formula = "Er"; Charge = "3+"; Mass = 167.26; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "69") || (Command == "thulium") || (Command == "Tm")) { Name = "thulium"; Number = 69; Group = 16; Period = 6; Formula = "Tm"; Charge = "3+"; Mass = 168.94; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "70") || (Command == "ytlerhium") || (Command == "Yb")) { Name = "ytlerhium"; Number = 70; Group = 17; Period = 6; Formula = "Yb"; Charge = "3+ \\ 2+"; Mass = 173.04; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "71") || (Command == "lutelium") || (Command == "Lu")) { Name = "lutelium"; Number = 71; Group = 18; Period = 6; Formula = "Lu"; Charge = "3+"; Mass = 174.97; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "72") || (Command == "hefnium") || (Command == "Hf")) { Name = "hefnium"; Number = 72; Group = 4; Period = 6; Formula = "Hf"; Charge = "4+"; Mass = 178.49; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "73") || (Command == "tantalum") || (Command == "Ta")) { Name = "tantalum"; Number = 73; Group = 5; Period = 6; Formula = "Ta"; Charge = "5+"; Mass = 180.95; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "74") || (Command == "wolfrum") || (Command == "tungsten") || (Command == "W")) { Name = "wolfrum (tungsten)"; Number = 74; Group = 6; Period = 6; Formula = "W"; Charge = "6+"; Mass = 183.85; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "75") || (Command == "rhenium") || (Command == "Re")) { Name = "rhenium"; Number = 75; Group = 7; Period = 6; Formula = "Re"; Charge = "7+"; Mass = 186.21; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "76") || (Command == "osmium") || (Command == "Os")) { Name = "osmium"; Number = 76; Group = 8; Period = 6; Formula = "Os"; Charge = "4+"; Mass = 190.2; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "77") || (Command == "iridium") || (Command == "Ir")) { Name = "iridium"; Number = 77; Group = 9; Period = 6; Formula = "Ir"; Charge = "4+"; Mass = 192.22; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "78") || (Command == "platinum") || (Command == "Pt")) { Name = "platinum"; Number = 78; Group = 10; Period = 6; Formula = "Pt"; Charge = "4+ \\ 2+"; Mass = 195.08; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "79") || (Command == "gold") || (Command == "Au")) { Name = "gold"; Number = 79; Group = 11; Period = 6; Formula = "Au"; Charge = "3+ \\ 1+"; Mass = 196.97; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "80") || (Command == "mercury") || (Command == "Mg")) { Name = "mercury"; Number = 80; Group = 12; Period = 6; Formula = "Hg"; Charge = "2+ \\ 1+"; Mass = 200.59; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "81") || (Command == "thallium") || (Command == "Tl")) { Name = "thallium"; Number = 81; Group = 13; Period = 6; Formula = "Tl"; Charge = "1+ \\ 3+"; Mass = 204.38; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "82") || (Command == "lead") || (Command == "Pb")) { Name = "lead"; Number = 82; Group = 14; Period = 6; Formula = "Pb"; Charge = "2+ \\ 4+"; Mass = 207.20; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "83") || (Command == "bismuth") || (Command == "Bi")) { Name = "bismuth"; Number = 83; Group = 15; Period = 6; Formula = "Bi"; Charge = "3+ \\ 5+"; Mass = 208.98; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "84") || (Command == "polonium") || (Command == "Po")) { Name = "polonium"; Number = 84; Group = 16; Period = 6; Formula = "Po"; Charge = "2+ \\ 4+"; Mass = 209; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "85") || (Command == "asiatine") || (Command == "At")) { Name = "asiatine"; Number = 85; Group = 17; Period = 6; Formula = "At"; Charge = "1-"; Mass = 210; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "86") || (Command == "radon") || (Command == "Rn")) { Name = "radon"; Number = 86; Group = 18; Period = 6; Formula = "Rn"; Charge = "0"; Mass = 222; Special = "Noble Gas"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "87") || (Command == "fruncium") || (Command == "Fr")) { Name = "fruncium"; Number = 87; Group = 1; Period = 7; Formula = "Fr"; Charge = "1+"; Mass = 223; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "88") || (Command == "radium") || (Command == "Ra")) { Name = "radium"; Number = 88; Group = 2; Period = 7; Formula = "Ra"; Charge = "2+"; Mass = 226.03; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "89") || (Command == "actinium") || (Command == "Ac")) { Name = "actinium"; Number = 89; Group = 3; Period = 7; Formula = "Ac"; Charge = "3+"; Mass = 227.03; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "90") || (Command == "thorlum") || (Command == "Th")) { Name = "thorlum"; Number = 90; Group = 5; Period = 7; Formula = "Th"; Charge = "4+"; Mass = 232.04; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "91") || (Command == "protactinium") || (Command == "Pa")) { Name = "protactinium"; Number = 91; Group = 6; Period = 7; Formula = "Pa"; Charge = "5+ \\ 4+"; Mass = 231.04; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "92") || (Command == "uranium") || (Command == "U")) { Name = "uranium"; Number = 92; Group = 7; Period = 7; Formula = "U"; Charge = "6+ \\ 4+"; Mass = 238.03; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "93") || (Command == "neplunium") || (Command == "Np")) { Name = "neplunium"; Number = 93; Group = 8; Period = 7; Formula = "Np"; Charge = "5+"; Mass = 237.05; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "94") || (Command == "plutonium") || (Command == "Pu")) { Name = "plutonium"; Number = 94; Group = 9; Period = 7; Formula = "Pu"; Charge = "4+ \\ 6+"; Mass = 244; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "95") || (Command == "americium") || (Command == "Am")) { Name = "americium"; Number = 95; Group = 10; Period = 7; Formula = "Am"; Charge = "3+ \\ 4+"; Mass = 244; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "96") || (Command == "curium") || (Command == "Cm")) { Name = "curium"; Number = 96; Group = 11; Period = 7; Formula = "Cm"; Charge = "3+"; Mass = 247; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "97") || (Command == "borkelium") || (Command == "Bk")) { Name = "borkelium"; Number = 97; Group = 12; Period = 7; Formula = "Bk"; Charge = "3+ \\ 4+"; Mass = 247; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "98") || (Command == "californium") || (Command == "Cf")) { Name = "californium"; Number = 98; Group = 13; Period = 7; Formula = "Cf"; Charge = "3+"; Mass = 251; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "99") || (Command == "einsteinium") || (Command == "Es")) { Name = "einsteinium"; Number = 99; Group = 14; Period = 7; Formula = "Es"; Charge = "3+"; Mass = 252; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "100") || (Command == "formium") || (Command == "Fm")) { Name = "formium"; Number = 100; Group = 15; Period = 7; Formula = "Fm"; Charge = "3+"; Mass = 257; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "101") || (Command == "mendelevium") || (Command == "Md")) { Name = "mendelevium"; Number = 101; Group = 16; Period = 7; Formula = "Md"; Charge = "2+ \\ 3+"; Mass = 258; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "102") || (Command == "nebelium") || (Command == "No")) { Name = "nebelium"; Number = 102; Group = 17; Period = 7; Formula = "No"; Charge = "2+ \\ 3+"; Mass = 259; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } else if ((Command == "103") || (Command == "lawrencium") || (Command == "Lr")) { Name = "lawrencium"; Number = 103; Group = 18; Period = 7; Formula = "Lr"; Charge = "3+"; Mass = 260; Special = "None"; Table (Name, Number, Group, Period, Formula, Charge, Mass, Neutrons, Special); } //--------------------------------------------------------------------------- else { if ((Command != "Quit") && (Command != "QUIT") && (Command != "quit")) { cout<< "Unrecognized command.\n"; } } }while ((Command != "Quit") && (Command != "QUIT") && (Command != "quit")); Color = 1+random(8); if (Color == 1) { textcolor(RED); } else if (Color == 2) { textcolor(MAGENTA); } else if (Color == 3) { textcolor(BLUE); } else if (Color == 4) { textcolor(GREEN); } else if (Color == 5) { textcolor(WHITE); } else if (Color == 6) { textcolor(YELLOW); } else if (Color == 7) { textcolor(BROWN); } else if (Color == 8) { textcolor(CYAN); } textbackground(BLACK); clrscr(); gotoxy(1,2); return(0); } // END OF Table.cpp