roots.c

来自「miracl-大数运算库,大家使用有什么问题请多多提意见」· C语言 代码 · 共 29 行

/*
 *   Program to calculate square roots
 *
 *   Copyright (c) 1988-2001 Shamus Software Ltd.
 */

#include <stdio.h>
#include "miracl.h"

int main()
{ /* Find roots */
    flash x,y;
    miracl *mip=mirsys(40,0);
    x=mirvar(0);
    y=mirvar(0);
    mip->RPOINT=ON;
    printf("enter number\n");
    cinnum(x,stdin);
    printf("to the power of 1/2\n");
    froot(x,2,y);
    cotnum(y,stdout);
    fpower(y,2,x);
    printf("to the power of 2 = \n");
    cotnum(x,stdout);
    if (mip->EXACT) printf("Result is exact!\n");
    return 0;
}