KGC_TEST/miracl/source/roots.cpp

33 lines
508 B
C++

/*
* Program to calculate roots
*
* Requires: flash.cpp
*
*/
#include <iostream>
#include "flash.h"
using namespace std;
Miracl precision=50;
int main()
{ /* Find roots */
Flash x,y;
int n;
miracl *mip=&precision;
mip->RPOINT=ON;
cout << "enter number\n";
cin >> x;
cout << "to the power of 1/2\n";
y=sqrt(x);
cout << y;
x=y*y;
cout << "\nto the power of 2 = \n";
cout << x;
if (mip->EXACT) cout << "\nResult is exact!\n";
return 0;
}