#include<dos.h>
#include<iostream.h>
#include<stdlib.h>
#include<conio.h>
#include<stdio.h>
#include<string.h>
#include<graphics.h>
int y;
int i;
struct element{ char name[20];
int at_no;
double at_wt,at_r,en,ion,density,mp,bp;
char ato_wt[20],ato_r[20],eno[20];
char iono[20],densityo[20],mpo[20],bpo[20];
char crs[20];
char sym[4];
char earr[100];
}E[118];
void numberfind(int);
void numrfind(int,int);
void massfind(double);
void namfind(char*);
void namlfind(char);
void massrfind(double,double);
void ionifind(double);
void ionirfind(double,double);
void enegfind(double);
void enegrfind(double,double);
void mepfind(double);
void meprfind(double,double);
void bepfind(double);
void beprfind(double,double);
void densefind(double);
void denserfind(double,double);
void elecfind(char*);
void radiusrfind(double,double);
void radiusfind(double);
void symbfind(char*);
int main(void)
{
y:
int gm,gd=DETECT;
initgraph(&gd,&gm,"c:\\tc3\\bgi");
for(int v=9,w=79;v<=170;v++,w++)
{
cleardevice();
setcolor(random(15));
settextstyle(4,0,200);
outtextxy(v,w,"WELCOME TO MODERN PERIODIC TABLE");
delay(100);
}
for(int q=0;q<5000;q++)
{
putpixel(random(700),random(500),random(16));
delay(2);
}
setcolor(9);
outtextxy(300,400,"PRESS ANY KEY TO SEE THE PERIODIC TABLE...");
getch();
cleardevice();
floodfill(0,0,0);
setcolor(63);
line(180,30,180,65);
line(180,30,210,30);
line(210,30,210,65);
line(210,65,180,65);
line(30,65,30,275);
line(0,135,625,135);
line(65,65,65,275);
line(100,135,100,275);
line(135,135,135,275);
line(170,135,170,275);
line(205,135,205,275);
line(240,135,240,275);
line(275,135,275,275);
line(310,135,310,275);
line(345,135,345,275);
line(380,135,380,275);
line(415,65,415,275);
line(450,65,450,275);
line(485,65,485,275);
line(520,65,520,275);
line(555,65,555,275);
line(590,30,590,275);
line(625,30,625,275);
line(0,65,0,275);
line(0,170,625,170);
line(0,205,625,205);
line(0,240,625,240);
line(0,275,625,275);
line(0,65,65,65);
line(0,100,65,100);
line(415,65,625,65);
line(415,100,625,100);
line(590,30,625,30);
line(590,30,625,30);
line(135,420,625,420);
line(135,350,135,420);
line(135,350,625,350);
line(135,385,625,385);
line(170,350,170,420);
line(205,350,205,420);
line(240,350,240,420);
line(275,350,275,420);
line(310,350,310,420);
line(345,350,345,420);
line(380,350,380,420);
line(415,350,415,420);
line(450,350,450,420);
line(485,350,485,420);
line(520,350,520,420);
line(555,350,555,420);
line(590,350,590,420);
line(625,350,625,420);
setcolor(58);
line(0,65,0,275);
line(0,65,65,65);
line(65,65,65,275);
line(65,275,0,275);
setcolor(1);
line(67,275,413,275);
line(67,275,67,135);
line(67,135,413,135);
line(413,135,413,275);
setcolor(3);
line(415,275,415,65);
line(415,275,625,275);
line(625,275,625,30);
line(590,65,415,65);
line(625,30,590,30);
line(590,30,590,65);
setcolor(60);
line(135,350,625,350);
line(135,350,135,385);
line(135,385,625,385);
line(625,350,625,385);
setcolor(61);
line(625,387,625,420);
line(625,420,135,420);
line(135,420,135,387);
line(135,387,625,387);
setcolor(59);
line(133,348,627,348);
line(133,348,133,422);
line(133,422,627,422);
line(627,422,627,348);
setcolor(58);
settextstyle(9,0,0);
outtextxy(190,35,"1");
outtextxy(190,50,"H");
setcolor(57);
settextstyle(9,0,0);
outtextxy(10,70,"3");
outtextxy(10,105,"11");
outtextxy(10,140,"19");
outtextxy(10,175,"37");
outtextxy(10,210,"55");
outtextxy(10,245,"87");
outtextxy(40,70,"4");
outtextxy(40,105,"12");
outtextxy(40,140,"20");
outtextxy(40,175,"38");
outtextxy(40,210,"56");
outtextxy(40,245,"88");
outtextxy(10,85,"Li");
outtextxy(10,120,"Na");
outtextxy(10,155,"K");
outtextxy(10,190,"Rb");
outtextxy(10,225,"Cs");
outtextxy(10,260,"Fr");
outtextxy(40,85,"Be");
outtextxy(40,120,"Mg");
outtextxy(40,155,"Ca");
outtextxy(40,190,"Sr");
outtextxy(40,225,"Ba");
outtextxy(40,260,"Ra");
setcolor(1);
outtextxy(75,140,"21");
outtextxy(75,175,"39");
outtextxy(110,140,"22");
outtextxy(110,175,"40");
outtextxy(110,210,"72");
outtextxy(110,245,"104");
outtextxy(145,140,"23");
outtextxy(145,175,"41");
outtextxy(145,210,"73");
outtextxy(145,245,"105");
outtextxy(180,140,"24");
outtextxy(180,175,"42");
outtextxy(180,210,"74");
outtextxy(180,245,"106");
outtextxy(215,140,"25");
outtextxy(215,175,"43");
outtextxy(215,210,"75");
outtextxy(215,245,"107");
outtextxy(250,140,"26");
outtextxy(250,175,"44");
outtextxy(250,210,"76");
outtextxy(250,245,"108");
outtextxy(285,140,"27");
outtextxy(285,175,"45");
outtextxy(285,210,"77");
outtextxy(285,245,"109");
outtextxy(320,140,"28");
outtextxy(320,175,"46");
outtextxy(320,210,"78");
outtextxy(315,245,"110");
outtextxy(355,140,"29");
outtextxy(355,175,"47");
outtextxy(355,210,"79");
outtextxy(350,245,"111");
outtextxy(390,140,"30");
outtextxy(390,175,"46");
outtextxy(390,210,"80");
outtextxy(385,245,"112");
outtextxy(75,155,"Sc");
outtextxy(75,190,"Y");
outtextxy(110,155,"Ti");
outtextxy(110,190,"Zr");
outtextxy(110,225,"Hf");
outtextxy(110,260,"Rf");
outtextxy(145,155,"V");
outtextxy(145,190,"Nb");
outtextxy(145,225,"Ta");
outtextxy(145,260,"Db");
outtextxy(180,155,"Cr");
outtextxy(180,190,"Mo");
outtextxy(180,225,"W");
outtextxy(180,260,"Sg");
outtextxy(215,155,"Mn");
outtextxy(215,190,"Tc");
outtextxy(215,225,"Re");
outtextxy(215,260,"Bh");
outtextxy(250,155,"Fe");
outtextxy(250,190,"Ru");
outtextxy(250,225,"Os");
outtextxy(250,260,"Hs");
outtextxy(285,155,"Co");
outtextxy(285,190,"Rh");
outtextxy(285,225,"Ir");
outtextxy(285,260,"Mt");
outtextxy(320,155,"Ni");
outtextxy(320,190,"Pd");
outtextxy(320,225,"Pt");
outtextxy(315,260,"Ds");
outtextxy(355,155,"Cu");
outtextxy(355,190,"Ag");
outtextxy(355,225,"Au");
outtextxy(350,260,"Rg");
outtextxy(390,155,"Zn");
outtextxy(390,190,"Cd");
outtextxy(390,225,"Hg");
outtextxy(385,260,"Cn");
setcolor(57);
outtextxy(425,140,"31");
outtextxy(425,175,"49");
outtextxy(425,210,"81");
outtextxy(420,245,"113");
outtextxy(425,105,"13");
outtextxy(425,155,"Ga");
outtextxy(425,190,"In");
outtextxy(425,225,"Ti");
outtextxy(420,260,"Uut");
outtextxy(425,120,"Al");
setcolor(58);
outtextxy(425,85,"B");
setcolor(58);
outtextxy(460,85,"C");
setcolor(4);
outtextxy(460,120,"Si");
outtextxy(460,155,"Ge");
setcolor(57);
outtextxy(460,190,"Sn");
outtextxy(460,225,"Pb");
outtextxy(455,260,"Uuq");
setcolor(58);
outtextxy(495,85,"N");
outtextxy(495,120,"P");
setcolor(4);
outtextxy(495,155,"As");
outtextxy(495,190,"Sb");
setcolor(57);
outtextxy(495,225,"Bi");
outtextxy(490,260,"Uup");
setcolor(58);
outtextxy(530,85,"O");
outtextxy(530,120,"S");
outtextxy(530,155,"Se");
setcolor(4);
outtextxy(530,190,"Te");
outtextxy(530,225,"Po");
setcolor(57);
outtextxy(525,260,"Uuh");
setcolor(58);
outtextxy(565,85,"F");
outtextxy(565,120,"Cl");
outtextxy(565,155,"Br");
outtextxy(565,190,"I");
setcolor(4);
outtextxy(565,225,"At");
setcolor(57);
outtextxy(560,260,"Uus");
setcolor(5);
outtextxy(600,35,"2");
outtextxy(600,70,"10");
outtextxy(600,105,"18");
outtextxy(600,140,"36");
outtextxy(600,175,"54");
outtextxy(600,210,"86");
outtextxy(600,245,"118");
outtextxy(600,50,"He");
outtextxy(600,85,"Ne");
outtextxy(600,120,"Ar");
outtextxy(600,155,"Kr");
outtextxy(600,190,"Xe");
outtextxy(600,225,"Rn");
outtextxy(600,260,"Uuo");
setcolor(1);
settextstyle(0,0,2);
outtextxy(165,5,"PERIODIC TABLE");
outtextxy(163,8,"______________");
settextstyle(3,0,0);
setcolor(60);
outtextxy(75,225,"La");
outtextxy(145,375,"Ce");
outtextxy(180,375,"Pr");
outtextxy(215,375,"Nd");
outtextxy(250,375,"Pm");
outtextxy(285,375,"Sm");
outtextxy(320,375,"Eu");
outtextxy(355,375,"Gd");
outtextxy(390,375,"Tb");
outtextxy(425,375,"Dy");
outtextxy(460,375,"Ho");
outtextxy(495,375,"Er");
outtextxy(530,375,"Tm");
outtextxy(565,375,"Yb");
outtextxy(600,375,"Lu");
outtextxy(145,360,"58");
outtextxy(180,360,"59");
outtextxy(215,360,"60");
outtextxy(250,360,"61");
outtextxy(285,360,"62");
outtextxy(320,360,"63");
outtextxy(355,360,"64");
outtextxy(390,360,"65");
outtextxy(425,360,"66");
outtextxy(460,360,"67");
outtextxy(495,360,"68");
outtextxy(530,360,"69");
outtextxy(565,360,"70");
outtextxy(600,360,"71");
outtextxy(75,210,"57");
setcolor(61);
outtextxy(145,395,"90");
outtextxy(180,395,"91");
outtextxy(215,395,"92");
outtextxy(250,395,"93");
outtextxy(285,395,"94");
outtextxy(320,395,"95");
outtextxy(355,395,"96");
outtextxy(390,395,"97");
outtextxy(425,395,"98");
outtextxy(460,395,"99");
outtextxy(495,395,"100");
outtextxy(530,395,"101");
outtextxy(565,395,"102");
outtextxy(600,395,"103");
outtextxy(75,245,"89");
outtextxy(75,260,"Ac");
outtextxy(145,410,"Th");
outtextxy(180,410,"Pa");
outtextxy(215,410,"U");
outtextxy(250,410,"Np");
outtextxy(285,410,"Pu");
outtextxy(320,410,"Am");
outtextxy(355,410,"Cm");
outtextxy(390,410,"Bk");
outtextxy(425,410,"Cf");
outtextxy(460,410,"Es");
outtextxy(495,410,"Fm");
outtextxy(530,410,"Md");
outtextxy(565,410,"No");
outtextxy(600,410,"Lr");
setcolor(60);
outtextxy(20,365,"Lanthanoides--");
setcolor(61);
outtextxy(20,400,"Actinoides----");
setcolor(59);
outtextxy(135,330,"|----------------------f-block Elements----------------------|");
setcolor(1);
outtextxy(65,120,"|-------------d-block Elements-------------|");
setcolor(3);
outtextxy(412,15,"|-----p-block Elements----|");
outtextxy(0,50,"|--------|");
setcolor(2);
outtextxy(0,35,"s-block Elements");
setcolor(58);
outtextxy(425,70,"5");
outtextxy(460,70,"6");
setcolor(4);
outtextxy(460,105,"14");
outtextxy(460,140,"32");
outtextxy(495,140,"33");
outtextxy(495,175,"51");
outtextxy(530,175,"52");
outtextxy(530,210,"84");
setcolor(57);
outtextxy(460,175,"50");
outtextxy(460,210,"82");
outtextxy(455,245,"114");
setcolor(58);
outtextxy(495,70,"7");
outtextxy(495,105,"15");
outtextxy(530,70,"8");
outtextxy(530,105,"16");
outtextxy(530,140,"34") ;
outtextxy(565,70,"9");
outtextxy(565,105,"17");
outtextxy(565,140,"35");
outtextxy(565,175,"53");
setcolor(57);
outtextxy(495,210,"83");
outtextxy(490,245,"115");
outtextxy(525,245,"116");
outtextxy(560,245,"117");
setcolor(4);
outtextxy(565,210,"85");
outtextxy(400,450,"PRESS ANY KEY TO CONTINUE...");
getch();
closegraph();
restorecrtmode();
int m=63;
clrscr();
int ch=0;
q:
clrscr();
textcolor(m);
cout<<"\n\n\n\n\n\n\n\n\n\n\t\t\t\t";
cprintf("%s","This is what you can do...");
cout<<"\n\n\n\n\t\t\t\t";
cprintf("%s","1. Show periodic table");
cout<<"\n\t\t\t\t";
cprintf("%s","2. Find elements");
cout<<"\n\t\t\t\t";
cprintf("%s","3. Options");
cout<<"\n\t\t\t\t";
cprintf("%s","4. Exit");
cout<<"\n\t\t\t\t";
cprintf("%s","Enter the choice : ");
cin>>ch;
switch(ch)
{
case 1: setgraphmode(getgraphmode());
goto y;
case 2:
w:
clrscr();
int find;
cout<<"\n\n\n\n\t\t\t\t1.Find an element";
cout<<"\n\t\t\t\t2.Find elements in a range";
cout<<"\n\t\t\t\t3.Go to previous menu";
cout<<"\n\t\t\t\t4.Exit";
cout<<"\n\t\t\t\tEnter your choice : ";
cin>>find;
clrscr();
switch(find)
{
case 1:
e:
clrscr();
int find1;
cout<<"\n\n\n\n\t\t\t\tFIND AN ELEMENT BY";
cout<<"\n\t\t\t\t\t 1. Atomic number";
cout<<"\n\t\t\t\t\t 2. Atomic weight";
cout<<"\n\t\t\t\t\t 3. Name";
cout<<"\n\t\t\t\t\t 4. Atomic radius";
cout<<"\n\t\t\t\t\t 5. Electronegativity";
cout<<"\n\t\t\t\t\t 6. Ionisation enthalpy";
cout<<"\n\t\t\t\t\t 7. Electron Arrangement";
cout<<"\n\t\t\t\t\t 8. Melting point";
cout<<"\n\t\t\t\t\t 9. Boiling point";
cout<<"\n\t\t\t\t\t10. Density";
cout<<"\n\t\t\t\t\t11. Symbol";
cout<<"\n\t\t\t\t\t12. Go to previous menu";
cout<<"\n\t\t\t\t\t13. Exit";
cout<<"\n\t\t\t\t\t Enter the choice : ";
cin>>find1;
clrscr();
switch(find1)
{
case 1 : int num;
cout<<"\n\n\n\n\t\t\t\tFIND AN ELEMENT BY ATOMIC NUMBER";
cout<<"\n\n\n\n\t\t\t\tEnter the number : ";
cin>>num;
numberfind(num);
goto e;
case 2 : double mass;
cout<<"\n\n\n\n\t\t\t\tFIND AN ELEMENT BY ATOMIC WEIGHT";
cout<<"\n\n\n\n\t\t\t\tEnter the weight : ";
cin>>mass;
massfind(mass);
goto e;
case 3 : char nam[100];
cout<<"\n\n\n\n\t\t\t\tFIND AN ELEMENT BY NAME";
cout<<"\n\n\n\n\t\t\t\tEnter the name : ";
gets(nam);
namfind(nam);
goto e;
case 4 : double radius;
cout<<"\n\n\n\n\t\t\t\tFIND AN ELEMENT BY ATOMIC RADIUS";
cout<<"\n\n\n\n\t\t\t\tEnter the atomic radius : ";
cin>>radius;
radiusfind(radius);
goto e;
case 6 : double ioni;
cout<<"\n\n\n\n\t\t\t\tFIND AN ELEMENT BY IONISATION ENTHALPY";
cout<<"\n\n\n\n\t\t\t\tEnter the ionisation enthalpy : ";
cin>>ioni;
ionifind(ioni);
goto e;
case 7 : char elec[100];
cout<<"\n\n\n\n\t\t\t\tFIND AN ELEMENT BY ELECTRON ARRANGEMENT";
cout<<"\n\n\n\n\t\t\t\tEnter the electron arrangement : ";
gets(elec);
elecfind(elec);
goto e;
case 8 : double mep;
cout<<"\n\n\n\n\t\t\t\tFIND AN ELEMENT BY MELTING POINT";
cout<<"\n\n\n\n\t\t\t\tEnter the melting point : ";
cin>>mep;
mepfind(mep);
goto e;
case 9 : double bep;
cout<<"\n\n\n\n\t\t\t\tFIND AN ELEMENT BY BOILING POINT";
cout<<"\n\n\n\n\t\t\t\tEnter the boiling point : ";
cin>>bep;
bepfind(bep);
goto e;
case 10: double dense;
cout<<"\n\n\n\n\t\t\t\tFIND AN ELEMENT BY DENSITY";
cout<<"\n\n\n\n\t\t\t\tEnter the density : ";
cin>>dense;
densefind(dense);
goto e;
case 11: char symb[9];
cout<<"\n\n\n\n\t\t\t\tFIND AN ELEMENT BY SYMBOL";
cout<<"\n\n\n\n\t\t\t\tEnter the symbol : ";
gets(symb);
symbfind(symb);
goto e;
case 5: double eneg;
cout<<"\n\n\n\n\t\t\t\tFIND AN ELEMENT BY ELECTRONEGATIVITY";
cout<<"\n\n\n\n\t\t\t\tEnter the electronegativity : ";
cin>>eneg;
enegfind(eneg);
goto e;
case 12: goto w;
case 13: exit(0);
default: cout<<"\nINVALID CHOICE !!!";
goto e;
}
case 2:
r:
clrscr();
int find2;
cout<<"\n\n\n\n\t\t\t\tFIND ELEMENTS IN A RANGE BY";
cout<<"\n\t\t\t\t\t 1. Atomic number";
cout<<"\n\t\t\t\t\t 2. Atomic weight";
cout<<"\n\t\t\t\t\t 3. Starting letter";
cout<<"\n\t\t\t\t\t 4. Atomic radius";
cout<<"\n\t\t\t\t\t 5. Electronegativity";
cout<<"\n\t\t\t\t\t 6. Ionisation enthalpy";
cout<<"\n\t\t\t\t\t 7. Melting point";
cout<<"\n\t\t\t\t\t 8. Boiling point";
cout<<"\n\t\t\t\t\t 9. Density";
cout<<"\n\t\t\t\t\t10. Go to previous menu";
cout<<"\n\t\t\t\t\t11. Exit";
cout<<"\n\t\t\t\t\t Enter the choice : ";
cin>>find2;
clrscr();
switch(find2)
{
case 1 : int num1,num2;
cout<<"\n\n\n\n\t\t\t\tFIND ELEMENTS IN A RANGE BY ATOMIC NUMBER";
cout<<"\n\n\n\n\t\t\t\tEnter the number 1 : ";
cin>>num1;
cout<<"\n\n\n\n\t\t\t\tEnter the number 2 : ";
cin>>num2;
numrfind(num1,num2);
goto r;
case 2 : double mass1,mass2;
cout<<"\n\n\n\n\t\t\t\tFIND ELEMENTS IN A RANGE BY ATOMIC WEIGHT";
cout<<"\n\n\n\n\t\t\t\tEnter the weight 1 : ";
cin>>mass1;
cout<<"\n\n\n\n\t\t\t\tEnter the weight 2 : ";
cin>>mass2;
massrfind(mass1,mass2);
goto r;
case 3 : char naml;
cout<<"\n\n\n\n\t\t\t\tFIND ELEMENTS IN A RANGE BY STARTING LETTER";
cout<<"\n\n\n\n\t\t\t\tEnter the starting letter : ";
cin>>naml;
namlfind(naml);
goto r;
case 4 : double radius1,radius2;
cout<<"\n\n\n\n\t\t\t\tFIND ELEMENTS IN A RANGE BY ATOMIC RADIUS";
cout<<"\n\n\n\n\t\t\t\tEnter the atomic radius 1 : ";
cin>>radius1;
cout<<"\n\n\n\n\t\t\t\tEnter the atomic radius 2 : ";
cin>>radius2;
radiusrfind(radius1,radius2);
goto r;
case 6 : double ioni1,ioni2;
cout<<"\n\n\n\n\t\t\t\tFIND ELEMENTS IN A RANGE BY IONISATION ENTHALPY";
cout<<"\n\n\n\n\t\t\t\tEnter the ionisation enthalpy 1 : ";
cin>>ioni1;
cout<<"\n\n\n\n\t\t\t\tEnter the ionisation enthalpy 2 : ";
cin>>ioni2;
ionirfind(ioni1,ioni2);
goto r;
case 7 : double mep1,mep2;
cout<<"\n\n\n\n\t\t\t\tFIND ELEMENTS IN A RANGE BY MELTING POINT";
cout<<"\n\n\n\n\t\t\t\tEnter the melting point 1 : ";
cin>>mep1;
cout<<"\n\n\n\n\t\t\t\tEnter the melting point 2 : ";
cin>>mep2;
meprfind(mep1,mep2);
goto r;
case 8 : double bep1,bep2;
cout<<"\n\n\n\n\t\t\t\tFIND ELEMENTS IN A RANGE BY BOILING POINT";
cout<<"\n\n\n\n\t\t\t\tEnter the boiling point 1 : ";
cin>>bep1;
cout<<"\n\n\n\n\t\t\t\tEnter the boiling point 2 : ";
cin>>bep2;
beprfind(bep1,bep2);
goto r;
case 9: double dense1,dense2;
cout<<"\n\n\n\n\t\t\t\tFIND ELEMENTS IN A RANGE BY DENSITY";
cout<<"\n\n\n\n\t\t\t\tEnter the density 1 : ";
cin>>dense1;
cout<<"\n\n\n\n\t\t\t\tEnter the density 2 : ";
cin>>dense2;
denserfind(dense1,dense2);
goto r;
case 5: double eneg1,eneg2;
cout<<"\n\n\n\n\t\t\t\tFIND ELEMENTS IN A RANGE BY ELECTRONEGATIVITY";
cout<<"\n\n\n\n\t\t\t\tEnter the electronegativity 1 : ";
cin>>eneg1;
cout<<"\n\n\n\n\t\t\t\tEnter the electronegativity 2 : ";
cin>>eneg2;
enegrfind(eneg1,eneg2);
goto r;
case 10: goto e;
case 11: exit(0);
default: cout<<"\nINVALID CHOICE !!!";
goto r;
}
case 3:goto q;
case 4:exit(0);
default:cout<<"\n INVALID CHOICE !!!";
goto w;
}
case 3:clrscr();
textattr(m);
cout<<"\n\n\n\n\t\t\t\tChange display colour";
cout<<"\n\t\t\t\tPress number key";
for(int i=1;i<15;i++)
{
textattr(i);
cout<<"\n\t\t\t\t";
cprintf("%d",i);
}
cout<<"\n\n\n\n\t\t\t\tIF YOU KNOW OTHER COLOUR CODE YOU CAN ENTER IT";
cout<<"\n\n\t\t\t\tENTER CHOICE : ";
cin>>m;
goto q;
case 4:exit(0);
}
getch();
return 0;
}
void numberfind(int x)
{
clrscr();
strcpy(E[1].name,"Hydrogen");
strcpy(E[1].sym,"H");
E[1].at_no=1;
E[1].at_wt=1.00797;
strcpy(E[ 1].crs,"hcp/cubic");
E[1].at_r=46;
E[1].ion=13.598;
E[1].en=2.1;
E[1].density=0.08987;
E[1].mp=14.01;
E[1].bp=20.4;
strcpy(E[ 1].earr,"1s1");
strcpy(E[ 2].name,"Helium");
strcpy(E[ 2].sym,"He");
E[2].at_no=2;
E[2].at_wt=4.003;
strcpy(E[2].crs,"hcp/cubic");
E[2].at_r=176;
E[2].ion=24.587;
strcpy(E[ 2].eno,"NO DATA");
E[2].density=0.166;
E[2].mp=0.95;
E[2].bp=4.21;
strcpy(E[ 2].earr,"1s2");
strcpy(E[ 3].name,"Lithium");
strcpy(E[ 3].sym,"Li");
E[3].at_no=3;
E[3].at_wt=6.94;
strcpy(E[ 3].crs,"hcp/fcc/bcc");
E[3].at_r=152;
E[3].ion=5.392;
E[3].en=1.0;
E[3].density=534;
E[3].mp=452;
E[3].bp=1590;
strcpy(E[ 3].earr,"[He] 2s1");
strcpy(E[ 89].name,"Actinium");
strcpy(E[ 89].sym,"Ac");
E[89].at_no=89;
E[89].at_wt=227;
strcpy(E[ 89].crs,"fcc");
E[89].at_r=188;
E[89].ion=6.9;
E[89].en=1.1;
E[89].density=10100;
E[89].mp=1320;
E[89].bp=3470;
strcpy(E[ 89].earr,"[Rn] 6d1 7s2");
strcpy(E[ 13].name,"Aluminium");
strcpy(E[ 13].sym,"Al");
E[13].at_no=13;
E[13].at_wt=26.98;
strcpy(E[ 13].crs,"fcc");
E[13].at_r=142;
E[13].ion=5.986;
E[13].en=1.5;
E[13].density=2700;
E[13].mp=933.2;
E[13].bp=2740;
strcpy(E[ 13].earr,"[Ne] 3s2 3p1");
strcpy(E[ 4].name,"Beryllium");
strcpy(E[ 4].sym,"Be");
E[4].at_no=4;
E[4].at_wt=9.01;
strcpy(E[ 4].crs,"hcp/cubic");
E[4].at_r=112;
E[4].ion=9.322;
E[4].en=1.5;
E[4].density=1800;
E[4].mp=1550;
E[4].bp=3243;
strcpy(E[ 4].earr,"[He] 2s2");
strcpy(E[51].name,"Antimony");
strcpy(E[ 51].sym,"Sb");
E[51].at_no=51;
E[51].at_wt=121.75;
strcpy(E[ 51].crs,"rhombic");
E[51].at_r=145;
E[51].ion=8.641;
E[51].en=1.9;
E[51].density=6700;
E[51].mp=903.7;
E[51].bp=1650;
strcpy(E[ 51].earr,"[Xe] 4d10 5s2 5p3");
strcpy(E[ 18].name,"Argon");
strcpy(E[ 18].sym,"Ar");
E[18].at_no=18;
E[18].at_wt=39.95;
strcpy(E[ 18].crs,"fcc");
E[18].at_r=174;
E[18].ion=15.759;
strcpy(E[ 18].eno,"NO DATA");
E[18].density=1.66;
E[18].mp=83.7;
E[18].bp=87.4;
strcpy(E[ 18].earr,"[Ne] 3s2 3p6");
strcpy(E[ 33].name,"Arsenic");
strcpy(E[ 33].sym,"As");
E[33].at_no=33;
E[33].at_wt=74.92;
strcpy(E[ 33].crs,"rhombic");
E[33].at_r=125;
E[33].ion=9.81;
E[33].en=2.0;
E[33].density=5730;
E[33].mp=1090;
E[33].bp=886;
strcpy(E[ 33].earr,"[Ar] 3d10 4s2 4p3");
strcpy(E[ 85].name,"Astatine");
strcpy(E[ 85].sym,"At");
E[85].at_no=85;
E[85].at_wt=210;
strcpy(E[ 85].crs,"NO DATA");
E[85].at_r=150;
E[85].ion=9.5 ;
E[85].en=2.2;
strcpy(E[ 85].densityo,"NO DATA");
E[85].mp= 520;
E[85].bp= 623;
strcpy(E[ 85].earr,"[Xe] 4f14 5d10 6s2 6p5");
strcpy(E[ 56].name,"Barium");
strcpy(E[ 56].sym,"Ba");
E[56].at_no=56;
E[56].at_wt= 137.34;
strcpy(E[ 56].crs,"bcc");
E[56].at_r= 217;
E[56].ion= 5.212;
E[56].en= 0.9;
E[56].density=3600;
E[56].mp=1000;
E[56].bp=1910;
strcpy(E[ 56].earr,"[Xe] 6s2");
strcpy(E[ 83].name,"Bismuth");
strcpy(E[ 83].sym,"Bi");
E[83].at_no= 83;
E[ 83].at_wt= 208.98;
strcpy(E[ 83].crs,"rhombic");
E[83].at_r= 155;
E[83].ion= 7.289;
E[83].en= 1.9;
E[83].density=9800;
E[83].mp=544.4;
E[83].bp=1830;
strcpy(E[ 83].earr,"[Xe] 4f14 5d10 6s2 6p3");
strcpy(E[ 5].name,"Boron");
strcpy(E[ 5].sym,"B");
E[5].at_no= 5;
E[5].at_wt= 10.81;
strcpy(E[ 5].crs,"ortho");
E[5].at_r= 88;
E[5].ion= 8.289;
E[5].en= 2.0;
E[5].density=2500;
E[5].mp= 2600;
E[5].bp= 2820;
strcpy(E[ 5].earr,"[He] 2s2 2p1");
strcpy(E[ 35].name,"Bromine");
strcpy(E[ 35].sym,"Br");
E[35].at_no=35;
E[35].at_wt= 79.90;
strcpy(E[ 35].crs,"ortho");
E[35].at_r= 114;
E[35].ion= 11.814;
E[35].en= 2.8;
E[35].density= 3100;
E[35].mp=265.9;
E[35].bp= 331.9;
strcpy(E[ 35].earr,"[Ar] 3d10 4s2 4p5");
strcpy(E[ 48].name,"Cadmium");
strcpy(E[ 48].sym,"Cd");
E[48].at_no=48;
E[48].at_wt= 112.40;
strcpy(E[ 48].crs,"hcp");
E[48].at_r=148;
E[48].ion=8.993;
E[48].en= 1.7;
E[48].density=8650;
E[48].mp= 594.2;
E[48].bp= 1038;
strcpy(E[ 48].earr,"[Kr] 4d10 5s2");
strcpy(E[ 55].name,"Caesium");
strcpy(E[ 55].sym,"Cs");
E[55].at_no= 55;
E[55].at_wt= 132.90;
strcpy(E[ 55].crs,"bcc");
E[55].at_r= 262;
E[55].ion= 3.894;
E[55].en= 0.7;
E[55].density=1870;
E[55].mp= 301.6;
E[55].bp= 960;
strcpy(E[ 55].earr,"[Xe] 6s1");
strcpy(E[ 20].name,"Calcium");
strcpy(E[ 20].sym,"Ca");
E[20].at_no=20;
E[20].at_wt=40.08;
strcpy(E[ 20].crs,"fcc");
E[20].at_r=196;
E[20].ion= 6.113;
E[20].en= 1.0;
E[20].density=1540;
E[20].mp= 1120;
E[20].bp= 1760;
strcpy(E[ 20].earr,"[Ar] 4s2");
strcpy(E[ 6].name,"Carbon");
strcpy(E[ 6].sym,"C");
E[6].at_no= 6;
E[6].at_wt= 12.01;
strcpy(E[ 6].crs,"hex");
E[6].at_r= 77;
E[6].ion= 11.260;
E[6].en= 2.5;
E[6].density=2300;
E[6].mp= 3801;
E[6].bp= 5100;
strcpy(E[ 6].earr,"[He] 2s2 2p2");
strcpy(E[ 58].name,"Cerium");
strcpy(E[ 58].sym,"Ce");
E[58].at_no=58;
E[58].at_wt=140.12;
strcpy(E[ 58].crs,"fcc");
E[58].at_r= 183;
E[58].ion= 5.47;
E[58].en= 1.1;
E[58].density=6800;
E[58].mp= 1070;
E[58].bp= 3740;
strcpy(E[ 58].earr,"[Xe] 4f2 6s2");
strcpy(E[ 17].name,"Chlorine");
strcpy(E[ 17].sym,"Cl");
E[17].at_no= 17;
E[17].at_wt=35.45;
strcpy(E[17].crs,"tetra");
E[17].at_r= 91;
E[17].ion= 12.967;
E[17].en= 3.0;
E[17].density=3.21;
E[17].mp= 172.1;
E[17].bp= 238.5;
strcpy(E[ 17].earr,"[Ne] 3s2 3p5");
strcpy(E[ 24].name,"Chromium");
strcpy(E[ 24].sym,"Cr");
E[24].at_no= 24;
E[24].at_wt= 52.00;
strcpy(E[ 24].crs,"bcc");
E[24].at_r= 125;
E[24].ion= 6.766;
E[24].en= 1.6;
E[24].density=7200;
E[24].mp= 2160;
E[24].bp= 2755;
strcpy(E[ 24].earr,"[Ar] 3d5 4s1");
strcpy(E[ 27].name,"Cobalt");
strcpy(E[ 27].sym,"Co");
E[27].at_no=27;
E[27].at_wt= 58.93;
strcpy(E[ 27].crs,"hcp");
E[27].at_r=125;
E[27].ion=7.86;
E[27].en= 1.8;
E[27].density=8900;
E[27].mp= 1765;
E[27].bp= 3170;
strcpy(E[27].earr,"[Ar] 3d7 4s2");
strcpy(E[ 29].name,"Copper");
strcpy(E[ 29].sym,"Cu");
E[29].at_no=29;
E[29].at_wt=63.55;
strcpy(E[ 29].crs,"fcc");
E[29].at_r=128;
E[29].ion=7.726;
E[29].en=1.9;
E[29].density=8930;
E[29].mp= 1356;
E[29].bp= 2868;
strcpy(E[ 29].earr,"[Ar] 3d10 4s1");
strcpy(E[ 66].name,"Dysprosium");
strcpy(E[ 66].sym,"Dy");
E[66].at_no= 66;
E[66].at_wt= 162.50;
strcpy(E[ 66].crs,"rhombic");
E[66].at_r= 175;
E[66].ion= 5.93;
E[66].en= 1.2;
E[66].density=8500;
E[66].mp= 1680;
E[66].bp= 2900;
strcpy(E[ 66].earr,"[Xe] 4f10 6s2");
strcpy(E[ 68].name,"Erbium");
strcpy(E[ 68].sym,"Er");
E[68].at_no= 68;
E[68].at_wt= 167.26;
strcpy(E[ 68].crs,"hcp");
E[68].at_r=173;
E[68].ion=6.10;
E[68].en= 1.2;
E[68].density=9000;
E[68].mp= 1770;
E[68].bp= 3200;
strcpy(E[ 68].earr,"[Xe] 4f12 6s2");
strcpy(E[ 63].name,"Europium");
strcpy(E[ 63].sym,"Eu");
E[63].at_no= 63;
E[63].at_wt= 151.96;
strcpy(E[ 63].crs,"bcc");
E[63].at_r= 198;
E[63].ion= 5.67;
E[63].en= 1.1;
E[63].density=5200;
E[63].mp= 1100;
E[63].bp= 1712;
strcpy(E[ 63].earr,"[Xe] 4f7 6s2");
strcpy(E[ 9].name,"Fluorine");
strcpy(E[ 9].sym,"F");
E[9].at_no=9;
E[9].at_wt=19.00;
strcpy(E[ 9].crs,"cubic");
E[9].at_r=60;
E[9].ion=17.422;
E[9].en=4.0;
E[9].density=1.7;
E[9].mp=53.5;
E[9].bp=85.01;
strcpy(E[ 9].earr,"[He] 2s2 2p5");
strcpy(E[ 87].name,"Francium");
strcpy(E[ 87].sym,"Fr");
E[87].at_no=87;
E[87].at_wt=223;
strcpy(E[ 87].crs,"bcc");
E[87].at_r= 270;
E[87].ion= 4.0;
E[87].en= 0.7;
E[87].density=1870;
E[87].mp=303;
E[87].bp= 920;
strcpy(E[87].earr,"[Rn] 7s1");
strcpy(E[ 64].name,"Gadolinium");
strcpy(E[ 64].sym,"Gd");
E[64].at_no= 64;
E[64].at_wt= 157.25;
strcpy(E[ 64].crs,"hcp");
E[64].at_r= 178;
E[64].ion=6.14;
E[64].en= 1.2;
E[64].density=7900;
E[64].mp= 1585;
E[64].bp= 3000;
strcpy(E[ 64].earr,"[Xe] 4f7 5d1 6s2");
strcpy(E[ 31].name,"Gallium");
strcpy(E[ 31].sym,"Ga");
E[31].at_no=31;
E[31].at_wt=69.72;
strcpy(E[ 31].crs,"fcc");
E[31].at_r= 121;
E[31].ion= 5.999;
E[31].en= 1.6;
E[31].density=5950;
E[31].mp=302.9;
E[31].bp= 2676;
strcpy(E[ 31].earr,"[Ar] 3d10 4s2 4p1");
strcpy(E[ 32].name,"Germanium");
strcpy(E[ 32].sym,"Ge");
E[32].at_no=32;
E[32].at_wt=72.59;
strcpy(E[ 32].crs,"cubic");
E[32].at_r=122;
E[32].ion=7.899;
E[32].en= 1.8;
E[32].density=5400;
E[32].mp= 1210.5;
E[32].bp= 3100;
strcpy(E[32].earr,"[Ar] 3d10 4s2 4p2");
strcpy(E[ 79].name,"Gold");
strcpy(E[ 79].sym,"Au");
E[79].at_no=79;
E[79].at_wt= 196.97;
strcpy(E[ 79].crs,"fcc");
E[79].at_r= 144;
E[79].ion= 9.225;
E[79].en= 2.4;
E[79].density=19300;
E[79].mp= 1336.1;
E[79].bp= 3239;
strcpy(E[79].earr,"[Xe] 4f14 5d10 6s1");
strcpy(E[ 72].name,"Hafnium");
strcpy(E[ 72].sym,"Hf");
E[72].at_no= 72;
E[72].at_wt= 178.49;
strcpy(E[ 72].crs,"hcp");
E[72].at_r= 158;
E[72].ion= 7.0;
E[72].en= 1.3;
E[72].density=13300;
E[72].mp= 2423;
E[72].bp= 5700;
strcpy(E[ 72].earr,"[Xe] 4f14 5d2 6s2");
strcpy(E[ 67].name,"Holmium");
strcpy(E[ 67].sym,"Ho");
E[67].at_no=67;
E[67].at_wt=164.93;
strcpy(E[ 67].crs,"hcp");
E[67].at_r=176;
E[67].ion=6.02;
E[67].en=1.2;
E[67].density=8800;
E[67].mp=1734;
E[67].bp=2900;
strcpy(E[ 67].earr,"[Xe] 4f11 6s2");
strcpy(E[49].name,"Indium");
strcpy(E[ 49].sym,"In");
E[49].at_no=49;
E[49].at_wt=114.82;
strcpy(E[ 49].crs,"bc tetra");
E[49].at_r=162;
E[49].ion=5.786;
E[49].en=1.7;
E[49].density=7310;
E[49].mp=429.8;
E[49].bp=2300;
strcpy(E[ 49].earr,"[Kr] 4d10 5s2 5p1");
strcpy(E[ 53].name,"Iodine");
strcpy(E[ 53].sym,"I");
E[53].at_no=53;
E[53].at_wt=126.9;
strcpy(E[ 53].crs,"ortho");
E[53].at_r=135;
E[53].ion=10.451;
E[53].en=2.5;
E[53].density=4940;
E[53].mp=386.6;
E[53].bp=457.4;
strcpy(E[ 53].earr,"[Kr] 4d10 5s2 5p5");
strcpy(E[ 77].name,"Iridium");
strcpy(E[ 77].sym,"Ir");
E[77].at_no=77;
E[77].at_wt=192.2;
strcpy(E[ 77].crs,"fcc");
E[77].at_r=135;
E[77].ion=9.1;
E[77].en=2.2;
E[77].density=22420;
E[77].mp=2716;
E[77].bp=4800;
strcpy(E[ 77].earr,"[Xe] 4f14 5d7 6s2");
strcpy(E[ 26].name,"Iron");
strcpy(E[ 26].sym,"Fe");
E[26].at_no=26;
E[26].at_wt=55.85;
strcpy(E[ 26].crs,"bcc/fcc");
E[26].at_r=123;
E[26].ion=7.87;
E[26].en=1.8;
E[26].density=7870;
E[26].mp=1808;
E[26].bp=3300;
strcpy(E[ 26].earr,"[Ar] 3d6 4s2");
strcpy(E[ 36].name,"Krypton");
strcpy(E[ 36].sym,"Kr");
E[36].at_no=36;
E[36].at_wt=83.8;
strcpy(E[ 36].crs,"fcc");
E[36].at_r=201;
E[36].ion=13.999;
E[36].en=3.0;
E[36].density=3.49;
E[36].mp=116.5;
E[36].bp=120.8;
strcpy(E[36].earr,"[Ar] 3d10 4s2 4p6");
strcpy(E[ 57].name,"Lanthanum");
strcpy(E[ 57].sym,"La");
E[57].at_no=57;
E[57].at_wt=138.91;
strcpy(E[ 57].crs,"hcp/fcc/bcc");
E[57].at_r=187;
E[57].ion=5.577;
E[57].en=1.1;
E[57].density=6150;
E[57].mp=1190;
E[57].bp=3742;
strcpy(E[ 57].earr,"[Xe] 5d1 6s2");
strcpy(E[ 82].name,"Lead");
strcpy(E[ 82].sym,"Pb");
E[82].at_no=82;
E[82].at_wt=207.19;
strcpy(E[ 82].crs,"fcc");
E[82].at_r=174;
E[82].ion=7.416;
E[82].en=1.8;
E[82].density=11340;
E[82].mp=600.4;
E[82].bp=2017;
strcpy(E[ 82].earr,"[Xe] 4f14 5d10 6s2 6p2");
strcpy(E[ 71].name,"Lutetium");
strcpy(E[ 71].sym,"Lu");
E[71].at_no=71;
E[71].at_wt=174.97;
strcpy(E[ 71].crs,"hcp");
E[71].at_r=173;
E[71].ion=5.426;
E[71].en=1.2;
E[71].density=9800;
E[71].mp=1925;
E[71].bp=3600;
strcpy(E[ 71].earr,"[Xe] 4f14 5d1 6s2");
strcpy(E[ 12].name,"Magnesium");
strcpy(E[ 12].sym,"Mg");
E[12].at_no=12;
E[12].at_wt=24.31;
strcpy(E[ 12].crs,"hcp");
E[12].at_r=160;
E[12].ion=7.646;
E[12].en=1.2;
E[12].density=1741;
E[12].mp=924;
E[12].bp=1380;
strcpy(E[ 12].earr,"[Ne] 3s2");
strcpy(E[ 25].name,"Manganese");
strcpy(E[ 25].sym,"Mn");
E[25].at_no=25;
E[25].at_wt=54.94;
strcpy(E[ 25].crs,"cubic");
E[25].at_r=112;
E[25].ion=7.435;
E[25].en=1.5;
E[25].density=7440;
E[25].mp=1517;
E[25].bp=2370;
strcpy(E[ 25].earr,"[Ar] 3d5 4s2");
strcpy(E[ 80].name,"Mercury");
strcpy(E[ 80].sym,"Hg");
E[80].at_no=80;
E[80].at_wt=200.59;
strcpy(E[ 80].crs,"rhombic");
E[80].at_r=156;
E[80].ion=10.437;
E[80].en=1.9;
E[80].density=13590;
E[80].mp=234.3;
E[80].bp=629.7;
strcpy(E[ 80].earr,"[Xe] 4f14 5d10 6s2");
strcpy(E[ 42].name,"Molybdenum");
strcpy(E[ 42].sym,"Mo");
E[42].at_no=42;
E[42].at_wt=95.94;
strcpy(E[ 42].crs,"bcc");
E[42].at_r=136;
E[42].ion=7.099;
E[42].en=1.8;
E[42].density=10200;
E[42].mp=2880;
E[42].bp=5830;
strcpy(E[ 42].earr,"[Kr] 4d5 5s1");
strcpy(E[ 60].name,"Neodymium");
strcpy(E[ 60].sym,"Nd");
E[60].at_no=60;
E[60].at_wt=144.24;
strcpy(E[ 60].crs,"hcp/bcc");
E[60].at_r=181;
E[60].ion=5.49;
E[60].en=1.1;
E[60].density=6960;
E[60].mp=1297;
E[60].bp=3300;
strcpy(E[ 60].earr,"[Xe] 4f4 6s2");
strcpy(E[ 10].name,"Neon");
strcpy(E[ 10].sym,"Ne");
E[10].at_no=10;
E[10].at_wt=20.18;
strcpy(E[ 10].crs,"fcc");
E[10].at_r=160;
E[10].ion=21.564;
strcpy(E[ 10].eno,"NO DATA");
E[10].density=0.839;
E[10].mp=24.5;
E[10].bp=27.2;
strcpy(E[ 10].earr,"[He] 2s2 2p6");
strcpy(E[ 28].name,"Nickel");
strcpy(E[ 28].sym,"Ni");
E[28].at_no=28;
E[28].at_wt=58.71;
strcpy(E[ 28].crs,"fcc");
E[28].at_r=124;
E[28].ion=7.635;
E[28].en=1.8;
E[28].density=8900;
E[28].mp=1726;
E[28].bp=3005;
strcpy(E[ 28].earr,"[Ar] 3d8 4s2");
strcpy(E[ 41].name,"Niobium");
strcpy(E[ 41].sym,"Nb");
E[41].at_no=41;
E[41].at_wt=92.91;
strcpy(E[ 41].crs,"bcc");
E[41].at_r=143;
E[41].ion=6.88;
E[41].en=1.6;
E[41].density=8.570;
E[41].mp=2741;
E[41].bp=5200;
strcpy(E[ 41].earr,"[Kr] 4d4 5s1");
strcpy(E[ 7].name,"Nitrogen");
strcpy(E[ 7].sym,"N");
E[7].at_no=7;
E[7].at_wt=14.01;
strcpy(E[ 7].crs,"cubic");
E[7].at_r=71;
E[7].ion=14.534;
E[7].en=3.0;
E[7].density=1.165;
E[7].mp=63.3;
E[7].bp=77.3;
strcpy(E[ 7].earr,"[He] 2s2 2p3");
strcpy(E[76].name,"Osmium");
strcpy(E[ 76].sym,"Os");
E[76].at_no=76;
E[76].at_wt=190.2;
strcpy(E[ 76].crs,"hcp");
E[76].at_r=135;
E[76].ion=8.7;
E[76].en=2.2;
E[76].density=22480;
E[76].mp=3300;
E[76].bp=4900;
strcpy(E[76].earr,"[Xe] 4f14 5d6 6s2");
strcpy(E[ 8].name,"Oxygen");
strcpy(E[ 8].sym,"O");
E[8].at_no=8;
E[8].at_wt=16.00;
strcpy(E[ 8].crs,"rhombic");
E[8].at_r=60;
E[8].ion=13.618;
E[8].en=3.5;
E[8].density=1.33;
E[8].mp=54.7;
E[8].bp=90.2;
strcpy(E[ 8].earr,"[He] 2s2 2p4");
strcpy(E[ 46].name,"Palladium");
strcpy(E[ 46].sym,"Pd");
E[46].at_no=46;
E[46].at_wt=106.4;
strcpy(E[ 46].crs,"fcc");
E[46].at_r=137;
E[46].ion=8.34;
E[46].en=2.2;
E[46].density=12000;
nitinmbhanu -3 Newbie Poster
rahulraj9 commented: wondrous! +0
DeanMSands3 69 Junior Poster
This question has already been answered the last time you posted this. The BGI error is telling you that your program compiled by Borland Turbo C++ can't find the right file for its graphics library.
And yes, we only need to see the article title to know it's Turbo C++. Though, the #include's would have been a second clue.
What you need to do is set your path to include the directory you have your BGI files in.
Or copy the right BGI file into the same directory as your executable. (But you'd have to do that every time.)
Actually, what you need to do is drop Turbo C++ and move on to bigger and better things. Things you can get for free. Legally.
If you're interested in porting this program to something usable, let us know in the forums or send me a PM.
rahulraj9 commented: help him +0
Be a part of the DaniWeb community
We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.