Delphi中N的N次方计算方法

最新推荐文章于 2022-03-05 20:19:12 发布
最新推荐文章于 2022-03-05 20:19:12 发布
阅读量399 收藏
点赞数
原文链接：http://www.cnblogs.com/www2/archive/2010/06/23/1763055.html
版权

记得以前有个群问过此类问题，恰逢今日Blog新开，公布一下我的方法。其实就是个函数的应用罢了。

高手飘过~~~~~~

 

 
  
 
   1 
   procedure 
    TForm1.Button1Click(Sender: TObject);
 
   2 
     
   var 
   
 
   3 
    f : Real;
 
   4 
     
   begin 
   
 
   5 
    f : 
   = 
    Power( 
   2.2 
   , 
   2.2 
   );
 
   6 
     
   // 
   f : 
   = 
    IntPower( 
   2 
   , 
   2.2 
   );
 
   7 
    ShowMessage(FloatToStr(f));
 
   8 
    
   end 
   ; 
  
 
 
 
 
 
 

 

转载于:https://www.cnblogs.com/www2/archive/2010/06/23/1763055.html

                

        

        




    

  


    

      

        

            

              
                
                  weixin_30263277
                
              
            

            

                关注
              
            

        

        

          
      

      









                



	

		

			

				
					
子网掩码计算方法

				
			

			

				

					weixin_45741538的博客
				

				

					12-20
					
					6242
					
				

			

		

		

			
				
很多从事计算机行业的人都了解子网掩码这种技术，这也是一种很好用的提高ip地址的分配方式。但是不少刚进入IP行业的人不知道该如何操作这种技术，所以说子网掩码计算方式是什么呢？

子网掩码是一种再ip地址不多或者缺少的情况下，科技人员为了解决ip地址这个资源的紧缺而将ip地进行分配而产生的技术。这个技术说起来很简单，就是用子网掩码这种技术把ip地址分为很多个子网，这样一来就能够提高ip地址的分配，从而...

			
		

	



                

              
                



	

		

			

				
					
Delphi 常用函数及用法

				
			

			

				

					05-02
				

			

		

		

			
				
Exp函数计算e的幂次方，其中e是自然对数的底数（约等于2.71828）。 ```pascal var  R: Real; begin  R := Exp(1); // e^1 = e end; ```  #### Ln（自然对数）  Ln函数计算以e为底的对数。 ```pascal var  R: Real; ...

			
		

	



                


  
              

                


	

		

			

				
					
Delphi求一个数x的y次方是多少

				
			

			

				

					05-11
				

			

		

		

			
				
摘要:Delphi源码,算法相关,N次方
Delphi数字运算例子，求一个数x的y次方是多少，求一个数的N次方，对于电脑来说这就是小K思了，那该如何编写代码呢？不费话了，直接下载源码吧。
运行环境：Windows/Delphi7

			
		

	





	

		

			

				
					
Delphi求一个数x的y次方是多少..rar

				
			

			

				

					04-20
				

			

		

		

			
				
Delphi求一个数x的y次方是多少..rar

			
		

	



		

			
		



	

		

			

				
					
Delphi中的算术运算函数

				
			

			

				

					沉思的猪专栏
				

				

					09-10
					
					1895
					
				

			

		

		

			
				
Delphi中的算术运算函数   以下内容为编编程网站诸网友共同翻译的结果,如需转载,请注明出处:http://www.togetherdev.com,如果您对翻译Delphi的函数有兴趣,可登录编编程网站，如果对翻译的内容有什么看法，可以在回帖或在编编程网站中提出。AbsCeilExpFloorfracFrexpint

			
		

	





	

		

			

				
					
delphi的函数列表

				
			

			

				

					class221的专栏
				

				

					01-07
					
					493
					
				

			

		

		

			
				
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

			
		

	





	

		

			

				
					
Delphi 数学函数：常用的几个数学函数（Power、Abs、Int、Trunc、Round、Frac、sqr、sqrt)

				
			

			

				

					zisongjia的博客
				

				

					08-13
					
					3719
					
				

			

		

		

			
				
Delphi 常用的几个数学函数

1

Power函数，求次方

定义：functionPower(X，Y): (Same type as parameter);

说明：X可以是整型，也可以是实型；返回值实型例子：


var
　i:integer;
begin
　i := Power(2,3); { 8 }    // 2的3次方
end.

2

Abs(x) 函数 ，求绝对值。
定义：function Abs(X): (Same type as parameter);
说明：X可以是整型，也可以.

			
		

	





	

		

			

				
					
delphi 开发经验技巧宝典源码

				
			

			

				

					08-12
				

			

		

		

			
				
0071　如何计算x的y次方　46 3.2　复杂计算类算法　46 0072　如何实现金额大小写转换的算法　46 0073　如何计算时钟的指针位置　47 0074　如何计算汉字笔划　48 0075　如何计算两个日期之间的天数、周数、分钟数　49...

			
		

	





	

		

			

				
					
delphi 开发经验技巧宝典源码06

				
			

			

				

					08-12
				

			

		

		

			
				
0071　如何计算x的y次方　46 3.2　复杂计算类算法　46 0072　如何实现金额大小写转换的算法　46 0073　如何计算时钟的指针位置　47 0074　如何计算汉字笔划　48 0075　如何计算两个日期之间的天数、周数、分钟数　49...

			
		

	





	

		

			

				
					
delphi大数运算单元

				
			

			

				

					10-20
				

			

		

		

			
				
自己用delphi写的大数运算单元，支持加、减、乘、除(商和余数)，里面有调用各方法的示例。

			
		

	





	

		

			

				
					
处理负数，二进制最高位是1表示负数，0表示正数delphi

				
			

			

				

					03-14
				

			

		

		

			
				
十六进制转换成二进制，处理负数，二进制最高位是1表示负数，0表示正数。源代码，已测试，

			
		

	





	

		

			

				
					
delphi\lazarus:检查一个整数是否2的n次幂

				
			

			

				

					追
				

				

					05-04
					
					303
					
				

			

		

		

			
				
想检查一个数是否2的n次幂，网上没找到现成的delphi函数，自己写一个，这里记录一下。

顺便庆祝一下五四节，各位，节日快乐！


// 判断一个数字是否2的n次方幂
function is2nPower(num: integer):boolean;
begin
  Result := false;

  if (num mod 2 <> 0) then
    Result := ...

			
		

	





	

		

			

				
					
【4.Delphi程序设计】2.函数

				
			

			

				

					chenhaiy的博客
				

				

					03-05
					
					1404
					
				

			

		

		

			
				
2.函数

函数是有返回值的子程序。函数可以分为：标准函数和自定义函数。

标准函数也称为内部函数，是系统内部已经定义好的函数，可以直接使用。本节重点介绍自定义函数。

2.1自定义函数的定义

自定义函数的语法格式：


Function <函数名>[(<形参表>)]: 返回类型;
    [声明部分]
Begin
    [<语句>]
End;

说明：


	书写时注意返回类型前面的冒号和后面的分号
	
	
	函数可以没有形参，但必须有返回值
	
	
	与过程类似，

			
		

	





	

		

			

				
					
delphi中的常用数学函数

				
			

			

				

					data01002的博客
				

				

					04-10
					
					345
					
				

			

		

		

			
				
delphi中的常用数学函数
定义：function Power(X，Y): (Same type as parameter); 
说明：X可以是整型，也可以是实型；返回值实型例子：vari:integer;begini := Power(3,4); { 81}end.
求绝对值函数abs(x)定义：function Abs(X): (Same type as paramete...

			
		

	





	

		

			

				
					
delphi  加减乘除和次方计算

					
最新发布

				
			

			

				

					06-07
				

			

		

		

			
				
在 Delphi 中，可以使用基本的算术运算符进行加减乘除的计算，使用 Math 库中的 Power 函数进行次方计算。

以下是一个简单的示例代码：

```delphi
program arithmetic;

{$APPTYPE CONSOLE}

uses
  SysUtils, Math;

var
  a, b: Double;
begin
  Write('Enter the first number: ');
  ReadLn(a);
  Write('Enter the second number: ');
  ReadLn(b);

  WriteLn('Addition: ', a + b);
  WriteLn('Subtraction: ', a - b);
  WriteLn('Multiplication: ', a * b);
  WriteLn('Division: ', a / b);
  WriteLn('Power: ', Power(a, b));

  ReadLn;
end.
```

在上面的示例中，用户输入两个数字，然后使用加减乘除和次方运算符进行计算，并使用 WriteLn 函数输出结果。Power 函数使用了 Math 库，需要在代码中声明使用该库。

你可以将上面的代码复制到 Delphi IDE 中并运行，输入两个数字进行测试。

			
		

	



              




          




        



    





    



      

      

        
      

      





	

		评论	
	

	
	




  

    

      添加红包
      
    

    

      

        
        

          
          
        

        
请填写红包祝福语或标题

      

      

        
        

          
          个
        

        
红包个数最小为10个

      

      

        
        

          
          元
        

        
红包金额最低5元

      

      

        
        

          当前余额3.43元
          前往充值 >
        

      

      

        

          需支付：10.00元
        

        
        
      

    

  





  

    
    
  

  

    
    
  








  

    

      

        

          

            
            
成就一亿技术人!

          

          

        

        

          

          

            领取后你会自动成为博主和红包主的粉丝
            规则
          

        

      

      

        

          

            
              
            
            

              
hope_wisdom
 发出的红包
            

          

        

        

          

          

          

        

      

    

    

  



      
      

      
实付元

      
使用余额支付

      

        

          

            
            点击重新获取
          

        

        
扫码支付

      

      

        
          
            
          
          
        
      

      

        
        钱包余额
          0
          

            
            

              

                
抵扣说明：

                
 1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
 2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

              

            

          

      

      余额充值