Əsrin Proqramlaşdırma dili

İmtahandan topladığınız bala müvafiq nəticə çap edən kod.

tam x;

xaricet("Imtahandan aldiginiz qiymeti daxil edin\y");
daxilet(x);

sec (x){

 hal 5:
  xaricet("Siz ela qiymet aldiniz, tebrikler \y");
  dayan;
  
 hal 4:
  xaricet("Siz yaxshi netice gosterdiniz \y");
  dayan;
 
 hal 3:
  xaricet("Siz kafi qiymet aldiniz \y");
  xaricet("biraz da oz uzerinizde calishin\y");
  dayan;  
 
 hal 2:
  xaricet("Siz imtahandan kesildiniz \y");
  xaricet("oz uzerinizde ciddi calishmalisiniz \y");
  dayan;  
}

Imtahandan aldiginiz qiymeti daxil edin
3
Siz kafi qiymet aldiniz
biraz da oz uzerinizde calishin

Sadə hesablama proqramı.

tam x, y , netice;
kesr netice_kesr;
simvol emel;

xaricet("Her-hansi iki eded daxil edin: \y");
daxilet(x,y);
 
xaricet("Zehmet olmasa emeli daxil edin (+, - , *, /, %): \y");
daxilet(emel);

sec (emel){

 hal '+' :
  netice = x + y;
  xaricet(x, " + ", y, " = ", netice, "\y" );
  dayan;

 hal '-' :
  netice = x - y;
  xaricet(x, " - ", y, " = ", netice, "\y" );
  dayan; 
  
 hal '*' :
  netice = x * y;
  xaricet(x, " * ", y, " = ", netice, "\y" );
  dayan; 

 hal '%' :
  netice = x % y;
  xaricet(x, " % ", y, " = ", netice, "\y" );
  dayan; 

 /* bolme neticesinde qaliqi da onluq shekilde gostermek
    isteyirikse, onda neticeni kesr tipli secmeliyik.
    eger bolmenin neticesin tam tipli edede menimsetsek 
    onda qalig nezere alinmir*/ 
 hal '/' :
  netice_kesr = x / y;
  xaricet(x, " / ", y, " = ", netice_kesr, "\y" );
  dayan; 
 
 susma:
   xaricet("Zehmet olmasa duzgun emeliyyat daxil edin.\y");
   xaricet("Duzgun emeliyyatlar: +, -, *, /, %   \y");
}

Her-hansi iki eded daxil edin: 
3 4
Zehmet olmasa emeli daxil edin (+, - , *, /, %): 
+
3 + 4 = 7