سرامیک

sio2,fe2o3,tio2,mgo,cao,na2o,loi,mikasodiom,kaolinit,s,ap,sp,pp,as

,ps,ss,pk,sk,alp,als,alk,sip,sis,sik,prp,prk,prs;
 char x;
jadval1();
  khuruji1();
  s1();
vorudi2();
mohasebat2();
 khuruji2();
jadval2();
vorudi();
mohasebat1();
main()
{
   textcolor(9);
   textbackground(6);
   clrscr();

    s1();
   getch();
    }
    //-----------------------------------------------------
   jadval1()
     {
      gotoxy(12,4);printf("عؤؤؤؤؤآؤؤؤؤؤآؤؤؤؤؤآؤؤؤؤؤآؤؤؤؤؤآؤؤؤؤؤآؤؤؤؤؤآؤؤؤؤؤآؤؤؤؤؤآؤؤؤؤؤ؟");
      gotoxy(12,5);printf("³loi  ³k2o  ³na2o ³cao  ³mgo  ³tio2 ³fe2o3³al2o3³sio2 ³oksid³");
      gotoxy(12,6);printf("أؤؤؤؤؤإؤؤؤؤؤإؤؤؤؤؤإؤؤؤؤؤإؤؤؤؤؤإؤؤؤؤؤإؤؤؤؤؤإؤؤؤؤؤإؤؤؤؤؤإؤؤؤؤؤ´");
      gotoxy(12,7);printf("³     ³     ³     ³     ³     ³     ³     ³     ³     ³%vazn³");
      gotoxy(12,8);printf("ہؤؤؤؤؤءؤؤؤؤؤءؤؤؤؤؤءؤؤؤؤؤءؤؤؤؤؤءؤؤؤؤؤءؤؤؤؤؤءؤؤؤؤؤءؤؤؤؤؤءؤؤؤؤؤظ");
     }
   jadval2()
     {
      gotoxy(7,10);printf("عؤؤؤؤؤؤؤؤؤؤؤؤآؤؤؤؤؤؤؤؤؤؤؤؤآؤؤؤؤؤؤؤؤؤؤؤؤآؤؤؤؤؤؤؤؤؤؤؤؤآؤؤؤؤؤؤؤؤؤؤؤؤآؤؤؤؤؤ؟");
      gotoxy(7,11);printf("³pert        ³SIO2        ³kaolinit    ³mikasodiom  ³mikapotasiom³kani ³");
      gotoxy(7,12);printf("أؤؤؤؤؤؤؤؤؤؤؤؤإؤؤؤؤؤؤؤؤؤؤؤؤإؤؤؤؤؤؤؤؤؤؤؤؤإؤؤؤؤؤؤؤؤؤؤؤؤإؤؤؤؤؤؤؤؤؤؤؤؤإؤؤؤؤؤ´");
      gotoxy(7,13);printf("³            ³            ³            ³            ³            ³vazn ³");
      gotoxy(7,14);printf("ہؤؤؤؤؤؤؤؤؤؤؤؤءؤؤؤؤؤؤؤؤؤؤؤؤءؤؤؤؤؤؤؤؤؤؤؤؤءؤؤؤؤؤؤؤؤؤؤؤؤءؤؤؤؤؤؤؤؤؤؤؤؤءؤؤؤؤؤظ");
     }
      vorudi()
    {
  gotoxy(61,7);scanf("%f",&sio2);
  if(sio2<0||sio2>100)
    {
     gotoxy(61,27);printf("error sio2");
     getch();
    }
  gotoxy(55,7);scanf("%f",&al2o3);
  if(al2o3<0||al2o3>100)
    {
     gotoxy(61,28);printf("error al2o3");
     getch();
    }
   gotoxy(49,7);scanf("%f",&fe2o3);
  if(fe2o3<0||fe2o3>100)
    {
     gotoxy(61,29);printf("error fe2o3");
     getch();
    }
  gotoxy(43,7);scanf("%f",&tio2);
  if(tio2<0||tio2>100)
    {
     gotoxy(61,30);printf("error tio2");
     getch();
    }
    gotoxy(37,7);scanf("%f",&mgo);
  if(mgo<0||mgo>100)
    {
     gotoxy(61,31);printf("error mgo");
     getch();
    }
  gotoxy(31,7);scanf("%f",&cao);
  if(cao<0||cao>100)
    {
     gotoxy(61,32);printf("error cao");
     getch();
    }
   gotoxy(25,7);scanf("%f",&na2o);
  if(na2o<0||na2o>100)
    {
     gotoxy(61,33);printf("error na20");
     getch();
    }
  gotoxy(19,7);scanf("%f",&k2o);
  if(k2o<0||k2o>100)
    {
     gotoxy(61,34);printf("error k20");
     getch();
    }

  gotoxy(13,7);scanf("%f",&loi);
  if(loi<0||loi>100)
    {
     gotoxy(61,35);printf("error loi");
     getch();
    }
    s=SIO2+k2o+al2o3+sio2+fe2o3+tio2+mgo+cao+na2o+loi;
    if(s<98||s>102)
    {
     gotoxy(41,28);printf("the sum is error");
     getch();
    }
      }
      mohasebat1()
      {
       mikapotasiom=796*k2o/94;
 ap=mikapotasiom*306/796;
 sp=mikapotasiom*360/796;
 pp=mikapotasiom*36/796;
       mikasodiom=754*na2o/62;
 as=mikasodiom*306/754;
 ss=mikasodiom*360/754;
 ps=mikasodiom*36/754;
   al2o3=al2o3-(as+ap);
       kaolinit=al2o3*258/102;
 sk=kaolinit*102/258;
 pk=kaolinit *36/258;
 SIO2=sio2-(sk+sp+ss);
       pert=loi-(pk+pp+ps);
      }
      khuruji1()
       {
       gotoxy(65,13);printf("%.2f",mikapotasiom);
       gotoxy(52,13);printf("%.2f",mikasodiom);
       gotoxy(39,13);printf("%.2f",kaolinit );
       gotoxy(26,13);printf("%.2f",SIO2);
       gotoxy(13,13);printf("%.2f",pert);
      }
      mohasebat2()
      {
      k2o=mikapotasiom*94/796;
       alp=mikapotasiom*306/796;
       sip=mikapotasiom*360/796;
       prp=mikapotasiom*36/796;
      na2o=mikasodiom*62/754;
       als=mikasodiom*306/754;
       sis=mikasodiom*360/754;
       prs=mikasodiom*36/754;

       alk=kaolinit*102/258;
       sik=kaolinit*120/258;
       prk=kaolinit*36/258;
      al2o3=alp+als+alk;
      sio2=SIO2+sip+sis+sik;
      loi=pert+prs+prk+prp;
      }
    khuruji2()
       {
       gotoxy(19,7);printf("%.2f",k2o);
       gotoxy(25,7);printf("%.2f",na2o);
       gotoxy(55,7);printf("%.2f",al2o3);
       gotoxy(61,7);printf("%.2f",sio2);
       gotoxy(13,7);printf("%.2f",loi);
      }
 vorudi2()
    {
  gotoxy(61,13);scanf("%f",&mikapotasiom);
  if(mikapotasiom<0||mikapotasiom>100)
    {
     gotoxy(41,27);printf("error mikapotasiom");
     getch();
    }
  gotoxy(48,13);scanf("%f",&mikasodiom);
  if(mikasodiom<0||mikasodiom>100)
    {
     gotoxy(41,28);printf("error mikasodiom");
     getch();
    }
   gotoxy(35,13);scanf("%f",&kaolinit);
  if(kaolinit<0||kaolinit>100)
    {
     gotoxy(41,29);printf("error kaolinit");
     getch();
    }
      gotoxy(22,13);scanf("%f",&SIO2);
  if(SIO2<0||SIO2>100)
    {
     gotoxy(41,30);printf("error SIO2");
     getch();
    }
  gotoxy(9,13);scanf("%f",&pert);
  if(pert<0||pert>100)
    {
     gotoxy(41,31);printf("error pert");
     getch();
     }
    }
    s1()
    {
      a:
      clrscr();
   gotoxy(10,12); printf("عؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤ؟ ");
   gotoxy(10,13); printf("³baray moshahede yeki az kodhay zir ra vared konid  ³");
   gotoxy(10,14); printf("أؤآؤؤآؤؤآؤؤآؤؤآؤؤآؤؤآؤؤآؤؤآؤؤآؤؤآؤؤآؤؤآؤآؤؤؤؤؤؤؤؤؤؤؤ´  ");
   gotoxy(10,15); printf("أؤءؤؤءؤؤءؤؤءؤؤءؤؤءؤؤءؤؤءؤؤءؤؤءؤؤءؤؤءؤؤءؤ´   kode    ³ ");
   gotoxy(10,16); printf("أؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤإؤؤؤؤؤؤؤؤؤؤؤ´ ");
   gotoxy(10,17); printf("³ mozue                                 ³     1     ³  ");
   gotoxy(10,18); printf("أؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤإؤؤؤؤؤؤؤؤؤؤؤ´");
   gotoxy(10,19); printf("³ nevisande                             ³     2     ³");
   gotoxy(10,20); printf("أؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤإؤؤؤؤؤؤؤؤؤؤؤ´ ");
   gotoxy(10,21); printf("³ rahnemai                              ³     3     ³ ") ;
   gotoxy(10,22); printf("أؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤإؤؤؤؤؤؤؤؤؤؤؤ´  ");
   gotoxy(10,23); printf("³                  minerali be shimiayi ³     a     ³ ") ;
   gotoxy(10,24); printf("³ ejra           ؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤإؤؤؤؤؤؤؤؤؤؤؤ´ ") ;
   gotoxy(10,25); printf("³                  shimiayi be minerali ³     b     ³");
   gotoxy(10,26); printf("أؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤإؤؤؤؤؤؤؤؤؤؤؤ´");
   gotoxy(10,27); printf("³ khoruj                                ³     4     ³");
   gotoxy(10,28); printf("ہؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤآؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤإؤؤؤؤؤؤؤؤؤؤؤ´");
   gotoxy(10,29); printf("                     ³  kode entekhabi  ³           ³");
   gotoxy(10,30); printf("                     ہؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤءؤؤؤؤؤؤؤؤؤؤؤظ ");
   gotoxy(56,29); scanf("%c",&x);
   clrscr();
   switch(x)
   {
   case '1':

     gotoxy(10,12); printf("mohasebate marbut be analiz shimiayi be komake");
     gotoxy(10,13); printf(" analiz minerali va belaks(bar asase mika)");
      getch();
   break;
   case '2':
  gotoxy(10,12); printf("mahmood reza vatankhah");
  getch();
     break;
  case '3':

    gotoxy(7,10); printf("shoma mitavanid be komake in barname tamamie analizhayhaye shimiayi ra be");
     gotoxy(7,11); printf("minerali va analizhayhaye  minerali ra be  shimiayi tabdil nemaid ");
   getch();
   break;
   case '4':
   exit(0);
      break;

    case 'b':
   jadval1();
   vorudi();
   mohasebat1();
   jadval2();
    khuruji1();
    getch();
   break;
   case 'a':
    jadval2();
   vorudi2();
   mohasebat2();
   jadval1();
khuruji2();
getch();
break;
default:
    gotoxy(15,19); printf("taerif nashode ");

}
 goto a;
}

برید حالشو ببرید

من این برنامه رو حدود۴۰ساعت روش کار میکردم قدرش را بدونید