`
sjgau
  • 浏览: 97210 次
  • 性别: Icon_minigender_1
  • 来自: 台灣省 台北市
最近访客 更多访客>>
文章分类
社区版块
存档分类
最新评论

integer 到底是 2 or 4 個 bytes?

阅读更多
cpp 代码
  1. ! --- main() ---   
  2. implicit none   
  3.   
  4. ! integer 到底是 2 or 4 個 bytes?   
  5. ! Ans: > 32767, 所以是 4 個 bytes   
  6. integer no   
  7.   
  8. no= 10   
  9. do while (no .GT. 0)   
  10.    no= no + no + no   
  11.    print *, 'no= ', no   
  12. end do  
  13.   
  14. print *, '   '   
  15. print *, 'no= ', no   
  16.   
  17. end   
  18. ! -----------------------------------------------   
分享到:
评论

相关推荐

    VC6中调用ProEssentialsv5图表组件实现科学图表绘制.pdf

    * PEP_fa: Array of Single (4 bytes) or Double (8 bytes) floating point * PEP_struct: Various structures 可以使用 DLL 调用来设定获取以上变量类型的值,可以根据以上变量类型的前缀来判断应该使用哪个函数。...

    OCI Programmer's Guide

    If the number being returned from Oracle Database is not an integer, the fractional part is discarded, and no error or other indication is returned. If the number to be returned exceeds the capacity ...

    Oracle 汉字转全拼 拼音首字母

    create or replace function f_getFirstOrFullSpell(p_cnStr In varchar2,p_sign In number default null) return varchar2 as lv_spell varchar2(200); lv_temp Varchar2(10); lv_char varchar2(10); --lv_...

    oracle加密解密

    CREATE OR REPLACE FUNCTION ENCRYPT(INPUT_STRING VARCHAR2, KEY_BYTES_RAW RAW) RETURN RAW IS ENCRYPTED_RAW RAW(4000); ENCRYPTION_TYPE PLS_INTEGER := DBMS_CRYPTO.ENCRYPT_AES256 + DBMS_CRYPTO.CHAIN_CBC ...

    二进制比较文件

    Do Until EOF(file1Handle) Or EOF(file2Handle) ' 读取文件1的字节 Get #file1Handle, , byte1 ' 读取文件2的字节 Get #file2Handle, , byte2 ' 如果字节不同,记录差异 If byte1 <> byte2 Then Debug....

    纯英文版 C-FAQ chm

    If well-defined overflow characteristics are important and negative values are not, or if you want to steer clear of sign-extension problems when manipulating bits or bytes, use one of the ...

    Delphi根据区位码转换成汉字..rar

    这个“Delphi根据区位码转换成汉字”主题涉及到的是字符编码和字符串处理的知识点,特别是如何在Delphi程序中将区位码(GB2312或GBK编码中的两个字节表示的汉字)转换为对应的汉字字符。 首先,区位码是早期中国...

    语言程序设计课后习题答案

    2-18 编写一个程序,运行时提示输入一个数字,再把这个数字显示出来。 解: 源程序: #include <iostream.h> int main() { int i; cout 请输入一个数字:"; cin >> i; cout 您输入一个数字是" ; return 0; } 程序...

    rpi_hal 树莓派的IO控制 pascal版代码

    功能强大,直接虐死wiringPi的树莓派IO之pascal代码,包括GPIO,I2C,PWM等控制。 rpi_hal-Hardware Abstraction Library (GPIO, I2C and SPI functions and procedures) This Unit with around 1700 Lines of Code ...

    java常见笔试题目总结

    // swap arr[i+1] and arr[high] (or pivot) int temp = arr[i + 1]; arr[i + 1] = arr[high]; arr[high] = temp; return i + 1; } ``` #### 9. Overload和Override的区别 - **Overload**:在同一类中,方法...

    Itanium Architecture For Programmers

    Chapter 2. Computer Structures and Data Representations Section 2.1. Computer Structures Section 2.2. Instruction Execution Section 2.3. Classes of Instruction Set Architectures Section 2.4. ...

    delphiIdHttp_delphi_idhttp_进度_

    2. **断点续传**: 断点续传技术允许我们在下载过程中暂停,然后在稍后的时间继续下载,而无需从头开始。在Delphi中实现这一功能,我们需要保存已下载文件的部分内容,通常是通过检查文件的大小,然后从上次中断的...

    Delphi Socket 通信编程要点小结

    If (sTemp[1] = '0') And ((sTemp[2] = 'x') Or (sTemp[2] = 'X')) Then sTemp := Copy(sTemp, 3, Length(sTemp) - 2); If sTemp = '' Then Exit; V := 0; For i := 1 To Length(sTemp) Do Begin Case sTemp...

    下位机中相互通信时用到vb二进制转十进制

    Dim value As Integer = BitConverter.ToInt32(bytes, 0) ' 将二进制字节转换为十进制 Dim decimalValue As Integer = Convert.ToInt32(value.ToString("X"), 16) ``` 这里先将字节数组转换为16进制的`value`,...

    Java语言程序设计基础篇课后题答案-Chapter18BinaryI_O.pdf

    The `read()` method returns the next byte as an integer between 0 and 255, or -1 if the end of the file has been reached. ```java try (FileInputStream fis = new FileInputStream("path_to_your_file"))...

    VB读取硬盘序列号MD5加密算法

    For i As Integer = 0 To hashBytes.Length - 1 result.Append(hashBytes(i).ToString("x2")) Next Return result.ToString() End Using End Function ``` 为了将这两个概念结合,我们可以先读取硬盘序列号,...

    最全的java面试题

    ##### 2. 作用域`public`,`protected`,`private`,以及不写时的区别? - **`public`**:公共访问级别,任何地方都可以访问。 - **`protected`**:受保护的访问级别,同一包内或不同包中的子类可以访问。 - **`...

    断点续传下载

    这两个函数 function app_path1:string; function socket_rec_line1(socket1:TCustomWinSocket;timeout1:integer;crlf1:string=#13#10):string; 实际上是我的一个公用单元中的函数,大家应该养成建立自己的...

    VB编写的Modbus RTU协议通讯源程序

    Private Function CalculateCRC(bytes As Byte(), startIndex As Integer, length As Integer) As UInt16 Dim crc As UInt16 = &HD54B For i As Integer = startIndex To startIndex + length - 1 crc = (crc Xor...

    python3.6.5参考手册 chm

    PEP 461 - percent formatting support for bytes and bytearray PEP 484 - Type Hints PEP 471 - os.scandir() function – a better and faster directory iterator PEP 475: Retry system calls failing with ...

Global site tag (gtag.js) - Google Analytics