1. Да се изчисли скоростната константа на химична реакция по зависимостта на Арениус:

където R e константа, равна на 0,813, Ко, Е и Т са реални променливи. Изчисленията да се извършат при стойности на T, изменящи се от начална стойност Tn до крайна стойност Tk със стъпка на нарастване dT. Изчисленията да се прекратят, ако К стане по-голямо от зададена критична стойност Ккр.

#include < iostream.h > 
#include < math.h >
#include < iomanip.h >
int main()
{
	 const double R = 8.13;
	 double T,Tn,Tk,dT;    //
	 double K, Kkr;
	 double E,K0;
	 cout << " Въведете  E, K0, Kkr :";
	 cin >> E >> K0 >> Kkr;
	 cout << "Въведете  Tn,Tk,dT :";
	 cin >> Tn >> Tk >> dT;
	 cout << setprecision(3) << setiosflags(ios::fixed);
	 T=Tn;
	 do
	 {
	   if (T = = 0)
	    {
		  cout << "Грешка! Деление на  0. ";
		  break;
	    }
	   K = K0*exp(-E/(R*T));
	   cout << " K = " << K << " T = " << T << endl;
	   T+=dT;
	 }
	 while(T < = Tk && K < = Kkr);
return 0;
}