Periodic table /*Program Title : Periodic TableThere is some personal infomation in the introduction and end. Please remove thembefore use.Only first 20 elements activated... */ #include#include#include#include#include#include#include#include#include void element(int,int); void welcome_screen(){clrscr();for(int x=50;x>=20;x--){delay(160);gotoxy(x,12);cputs(" P R O J E C T ");gotoxy(x,14);cputs(" D E V E L O P E D B Y : ");gotoxy(x,16);cputs("CBSE PORTAL"); }gotoxy(x,24);cputs("Press Any Key To Continue....");getch();} int i,j,g; void frame(){ gotoxy(19,9);cout<<"?";for(i=20;i<=60;i++){ gotoxy(i,9);cout<<"?";}cout<<"?"; gotoxy(19,16);cout<<"?";for(i=20;i<=60;i++){ gotoxy(i,16);cout<<"?";}cout<<"?";for(i=10;i<=15;i++){ gotoxy(19,i);cout<<"?";}for(i=10;i<=15;i++){ gotoxy(61,i);cout<<"?";} gotoxy(5,24);cout<<"Press Esc to Exit";} void display(){ gotoxy(33,2);cout<<"PERIODIC TABLE"; gotoxy(1,1);cout<<"?";for(i=2;i<=79;i++){ gotoxy(i,1);cout<<"?";}cout<<"?";for(i=2;i<=23;i++){ gotoxy(80,i);cout<<"?";} gotoxy(80,24);cout<<"?";for(i=2;i<=11;i++){ gotoxy(i,24);cout<<"?";} gotoxy(1,24);cout<<"?";for(i=2;i<=23;i++){ gotoxy(1,i);cout<<"?";} gotoxy(12,4);cout<<"?"<<"?"<<"?"<<"?"; gotoxy(63,4);cout<<"?"<<"?"<<"?"<<"?"; gotoxy(12,5);cout<<"?"; gotoxy(15,5);cout<<"?"; gotoxy(63,5);cout<<"?"; gotoxy(66,5);cout<<"?"; gotoxy(12,6);cout<<"?"<<"?"<<"?"<<"?"; gotoxy(48,6);cout<<"?";for(i=51;i<=60;i++)if(i%3==0){ gotoxy(i,6);cout<42){gotoxy(i,18);cout<<" ";}if(i%3==0){ gotoxy(i,14);cout<<"?"; gotoxy(i,12);cout<<"?"; gotoxy(i,16);cout<<"?";if(i>42) gotoxy(i,16);cout<<"?";}} for(i=23;i<66;i++){ gotoxy(i,20);cout<<"?"; gotoxy(i,22);cout<<"?"; gotoxy(i-11,24);cout<<"?"; gotoxy(i,24);cout<<"?";if(i%3==0){ gotoxy(i,20);cout<<"?"; gotoxy(i,22);cout<<"?"; gotoxy(i,24);cout<<"?";}}for(i=23;i<66;i++){if(i%3==0)if(i>10){ gotoxy(i,24);cout<<"?";}} for(i=67;i<=80;i++){gotoxy(i,24);cout<<"?";}for(i=0;i<=10;i++){gotoxy(i,25);cout<<" ";}for(i=19;i<=47;i++){gotoxy(i,9);cout<<" ";}for(i=2;i<=5;i++){gotoxy(61,i);cout<<" ";} gotoxy(12,22);cout<<"?";gotoxy(66,20);cout<<"? ";gotoxy(12,24);cout<<"??";gotoxy(80,24);cout<<"?";gotoxy(59,9);cout<<" ";gotoxy(56,9);cout<<" "; gotoxy(13,13);cout<<"Rb";gotoxy(13,15);cout<<"Cs";gotoxy(13,17);cout<<"Fr";gotoxy(16,7);cout<<"Be";gotoxy(16,9);cout<<"Mg";gotoxy(16,11);cout<<"Ca";gotoxy(16,13);cout<<"Sr";gotoxy(16,15);cout<<"Ba";gotoxy(16,17);cout<<"Ra";gotoxy(19,11);cout<<"Sc";gotoxy(19,13);cout<<"Y";gotoxy(19,15);cout<<"La";gotoxy(19,17);cout<<"Ac";gotoxy(22,11);cout<<"Ti";gotoxy(22,13);cout<<"Zr"; gotoxy(22,15);cout<<"Hf";gotoxy(22,17);cout<<"Rf";gotoxy(25,11);cout<<"V";gotoxy(25,13);cout<<"Nb";gotoxy(25,15);cout<<"Ta";gotoxy(25,17);cout<<"Ha";gotoxy(28,11);cout<<"Cr";gotoxy(28,13);cout<<"Mo";gotoxy(28,15);cout<<"W";gotoxy(28,17);cout<<"Un";gotoxy(31,11);cout<<"Mn";gotoxy(31,13);cout<<"Tc";gotoxy(31,15);cout<<"Re";gotoxy(31,17);cout<<"Ns";gotoxy(34,11);cout<<"Fe";gotoxy(34,13);cout<<"Ru";gotoxy(34,15);cout<<"Os";gotoxy(34,17);cout<<"Hs";gotoxy(37,11);cout<<"Co";gotoxy(37,13);cout<<"Rh";gotoxy(37,15);cout<<"Ir";gotoxy(37,17);cout<<"Mt";gotoxy(40,11);cout<<"Ni";gotoxy(40,13);cout<<"Pd";gotoxy(40,15);cout<<"Pt";gotoxy(40,17);cout<<"Uu";gotoxy(43,11);cout<<"Cu";gotoxy(43,13);cout<<"Ag";gotoxy(43,15);cout<<"Au";gotoxy(46,11);cout<<"Zn";gotoxy(46,13);cout<<"Cd";gotoxy(46,15);cout<<"Hg";gotoxy(49,7);cout<<"B";gotoxy(49,9);cout<<"Al";gotoxy(49,11);cout<<"Ga";gotoxy(49,13);cout<<"In";gotoxy(49,15);cout<<"Tl";gotoxy(52,7);cout<<"C";gotoxy(52,9);cout<<"Si";gotoxy(52,11);cout<<"Ge";gotoxy(52,13);cout<<"Sn";gotoxy(52,15);cout<<"Pb";gotoxy(55,7);cout<<"N";gotoxy(55,9);cout<<"P";gotoxy(55,11);cout<<"As";gotoxy(55,13);cout<<"Sb";gotoxy(55,15);cout<<"Bi";gotoxy(58,7);cout<<"O";gotoxy(58,9);cout<<"S";gotoxy(58,11);cout<<"Se";gotoxy(58,13);cout<<"Te";gotoxy(58,15);cout<<"Po";gotoxy(61,7);cout<<"F";gotoxy(61,9);cout<<"Cl";gotoxy(61,11);cout<<"Br";gotoxy(61,13);cout<<"I";gotoxy(61,15);cout<<"At";gotoxy(64,5);cout<<"He";gotoxy(64,7);cout<<"Ne";gotoxy(64,9);cout<<"Ar";gotoxy(64,11);cout<<"Kr";gotoxy(64,13);cout<<"Xe";gotoxy(64,15);cout<<"Rn";gotoxy(13,21);cout<<"Lanthanides";gotoxy(25,21);cout<<"Ce";gotoxy(28,21);cout<<"Pr";gotoxy(31,21);cout<<"Nd";gotoxy(34,21);cout<<"Pm";gotoxy(37,21);cout<<"Sm";gotoxy(40,21);cout<<"Eu";gotoxy(43,21);cout<<"Gd";gotoxy(46,21);cout<<"Tb";gotoxy(49,21);cout<<"Dy";gotoxy(52,21);cout<<"Ho";gotoxy(55,21);cout<<"Er";gotoxy(58,21);cout<<"Tm";gotoxy(61,21);cout<<"Yb";gotoxy(64,21);cout<<"Lu";gotoxy(13,23);cout<<"Actinides";gotoxy(25,23);cout<<"Th";gotoxy(28,23);cout<<"Pa";gotoxy(31,23);cout<<"U";gotoxy(34,23);cout<<"Np";gotoxy(37,23);cout<<"Pu";gotoxy(40,23);cout<<"Am";gotoxy(43,23);cout<<"Cm";gotoxy(46,23);cout<<"Bk";gotoxy(49,23);cout<<"Cf";gotoxy(52,23);cout<<"Ea";gotoxy(55,23);cout<<"Fm";gotoxy(58,23);cout<<"Md";gotoxy(61,23);cout<<"No";gotoxy(64,23);cout<<"Lr";gotoxy(2,2);i=2;j=2;gotoxy(i,j); do{ g=getch();if(g==80){if(j==23) j=1; gotoxy(i,++j);}elseif(g==77){if(i==79) i=1; gotoxy(++i,j);}elseif(g==75){if(i==2) i=80; gotoxy(--i,j);}elseif(g==72){if(j==2) j=24; gotoxy(i,--j);}if(g==13) element(i,j);}while(g!=27);} void main(){ clrscr(); welcome_screen();int gdriver=DETECT,gmode,errorcode; initgraph(&gdriver,&gmode,"h:\tc\bin");