	  ࠡ⪨ ᥫ  饩 窮
	 

        믮 樨  饩 -
: 

     1) float.c    - 䠩  ⥪⠬ 㭪権, ᠭ  
     2) Fp	   - ࠡ 㭪 ( deff2.crl)
     3) floatsum.c - 樮 ਬ ᯮ짮 -
		     

        ࠡ⠥:   ᫠  饩 -
,  Op   ࠡ,    ᨢ 
 char (). ⥬ । 㪠⥫  ᨢ  ᮮ⢥-
饩 㭪樨.  㬥   㪠⥫ﬨ    ⠪
ᨢ.  ᭮ 䬥᪨ 㭪樨: FpAdd,  FpSub,
FpMul  FpDiv.    ਭ  㬥: 㪠⥫
 ᨢ   ⮢,  㤥 १,     ࠭
( 㪠⥫  ᨢ   ⮢, ।⠢騩 -
࠭  饩 窮). 
      ,  १   饭   
 ࠭  ⠫ ᫥⢨, .. : 
     FpMult (foo, foo, foo) ᯥ譮  	  foo  
 १  foo. 
     ⮡ 樨஢ ᨢ  ᥫ  饩 窮, 
⠪  祭  ⠡쭮 Op,   ᫥騥
㭪樨:  

     FtoA - ८ࠧ ᫮  饩 窮  楯  ASC
II, (Op     ⥬	뢥    ࠭    
"PutS").  :  㭪  㦭    ᯮ짮-
 ᯥ樠쭮 ।⢠ PrintF  float.c. 

     AtoF ८ࠧ 楯 ASC II (ନ஢ 㫥)  
᫮  饩 窮. 

     ItoF ८ࠧ 楫 ᫮  ᫮  饩 窮. 

		  ⪮ ᠭ 㭪権
		  

     騥 㭪樨  짮⥫ BDS C  -
  ⢥ ᫠  㫨஢ .    -
⢥ ᫮   ࠧ饭  	ᨢ      
(ਬ: char Fpno[5]).    ᮤঠ  
訬  ⮬,    Op浪 ᫠.  

     FpComp (Op1, Op2)
     char Op1[5], Op2[5]; 

     頥: 
     1 , ᫨ Op1 > Op2
    -1 , ᫨ Op1 > Op2
     0 , ᫨ Op1 == Op2  

        設⢥ 㣨 ⮢  饩 䬥⨪
⥫쭮 ஢ ⢥ ᫠  ࠢ⢮. 

     char *FpAdd (Result, Op1, Op2)
     char Result[5], Op1[5], Op2[5]; 

     뢠 祭 Op1+Op2  Result.  Op1    Op2  
 ᫠ 	饩 窮. 頥 㪠⥫	  -
砫 १. 

     char *FpSub (Result, Op1, Op2)
     char Result[5], Op1[5],Op2[5]; 
 
     뢠 祭 Op1-Op2  Result.  Op1    Op2  
 ᫠ 	饩 窮. 頥 㪠⥫	  -
砫 Result. 

     char *FpMult (Result, Op1, Op2)
     char Result[5], Op1[5], Op2[5];
 
     뢠 祭 Op1*Op2  Result.  Op1    Op2  
 ᫠ 	饩 窮. 頥 㪠⥫	  -
砫 Result. 

     char *FpDiv (Result, Op1, Op2)
     char Result[5], Op1[5], Op2[5]; 

     뢠 祭 Op1/Op2  Result.  Op1    Op2  
 ᫠ 	饩 窮. 頥 㪠⥫	  -
砫 Result.      頥 . 

     char *AtoF (Op1,s1)
     char Op1[5], *s1; 

     ८ࠧ 楯 ASC II s1  ᫮  饩 窮 
  १  Op1. 㭪 㤥 p஢ 騥
஡,    ப ஡ ⨬. ਬ  -
⨬ ப:  

     "2", "22022222222383.333", "2.71828-9",
     "334.333332".  

     ப ⠪,  "3443.33 10" ⨬, .. ᮤন
 ᥡ  ஡. 祭 ⥫      
।:
     -38<= ⥫ <=38.
     頥 㪠⥫  १. 

     char *FtoA (s1, Op1)
     char *s1, Op1[5]; 

     ८ࠧ ᫮  饩 窮 Op1  ப	ASC  II
s1.  㤥 p஢  scientific-樨,    -
 "+9.9999999+38"   筮 ᥬ  (7)    ᫥  窨.
ப 㤥 襭 㫥. 
     頥 㪠⥫  砫 s1. 

     char *ItoF (Op1, n)
     char Op1[5];
     int n; 

     ᢠ   饩 窮 Op1  祭  楫
᫠ n. N ⠥ 楫 ᫮  . 

			騥 
		        

     樨  饩 窮    ᬠਢ,  
맮 㭪権,     ஥ ࠦ; ⮬
室 㤥 ᮡ , ⮡    ९  -
 p  ﬨ   饩 窮.
⮡ ᢮   饩  窮  砫쭮  祭,
ਬ,   設쭮 㪠:  

     char Fpno [5];
     Fpno="2.236";  

       ⮣, ⮡  	१,  
 㪠:  

     char Fpno[5];
     AtoF(Fpno,"2.236"); 

     ,    ᢮   饩  窮
祭 楫 ६  IVal.    ⮬  ᫥⥫쭮
p: 

     char Fpno[5];
     int IVal;
     ...
     Fpno=IVal 

      㤥 ࠡ,    ᫥ ப 

     ItoF (Fpno, IVal);

      ᪮쪮 ਬ஢:
     ᫮ ᫠ 100.2  -7.99, :  

     FpAdd (a, AtoF(b,"100.2"), AtoF(c,"-7.99")); 

     (᫥ ,  a, b  c    ᨢ  
 ).
     騩 p  ਡ 1  , ⠪   Op1    Op2
  ᫠  饩 窮 (.e. 㪠⥫   -
): 

     FpAdd (a,a,1); /* 宥 ᯮ짮 "FpAdd" */	

       㯮 㭪樨 ᠭ  ,  設⢮
  뢠  ࠡ 㭪 Fp, p     
ࠡ.  㭪 饭  deff2.crl;  ⢥  -
஢  設 몥  . 

     :  㭪権 饩 䬥⨪  	짮-
⥫ Orionsoft 㤥 ⠢ ⤥쭮 (  㣨
ࠬ) ⤥ ⮬. 
饩 䬥⨪  	짮-
⥫ Orionsoft 㤥 ⠢ ⤥쭮 (  㣨
ࠬ) ⤥ 