`
sjgau
  • 浏览: 97012 次
  • 性别: Icon_minigender_1
  • 来自: 台灣省 台北市
最近访客 更多访客>>
文章分类
社区版块
存档分类
最新评论
文章列表
AutoCAD 2004 的安裝說明 Q: 為何採用 2004 的版本 A: 因為 2006 的功能和 2004 差不多,2004 的安裝比較容易。 Q: 安裝時要注意些什麼? A: 要選擇 完整安裝。如此,才會有完整的範例和說明。
cpp 代码 ; mid-per.lsp       (defun c:mid-per( / ent1 l1 p1 pm )      (setq ent1 (entsel "\n Select a Line: "))            (setq l1 (car ent1))      (setq p1 (cadr ent1))      (setq pm (osnap p1 "mid"))      (setvar "cmdecho" 0)    ...
cpp 代码 // 這一行是 註解,凡是在同一行裡面,"//" 後面的,都是註解       // VC0401.cpp : 定義主控台應用程式的進入點。    //       #include "stdafx.h"    #include <conio.h>    // #include 的意思是,把某一個文字檔案 include 進來,    // 一起 compile, < > 是系統提供的檔案," " 是自己寫的    ...
cpp 代码 // VC0401.cpp : 定義主控台應用程式的進入點。    //       #include "stdafx.h"    #include <conio.h></conio.h>       int _tmain(int argc, _TCHAR* argv[])    {        printf("hello, world! 0405\n");        _getch();       ...
cpp 代码 // file: sj03.h       void rnd1(int *s1);    void rnd2(int *s1, double *x);    void swap_int(int *x, int *y);    void irnd(int *s1, int i1, int i2, int *ii);    void init_rnd(int *s1);    // ----------------------------------------------       void rn ...
cpp 代码 // file: sj02.h       void time1(int *t1);    void time2(int t1, double *dt);    // ----------------------------------------------       void time1(int *t1)    {        struct _timeb timebuffer;        _ftime( &timebuffer );           *t1= ...
cpp 代码 // file: sj01.h       void skip(int no);    void pause(void);    // ----------------------------------------------       void skip(int no)    {        // limits no in 1 .. 20        if (!((no >= 1) && (no <= 20))) {            printf ...
一 使用的軟體 二 安裝 Fortran 軟體的注意事項 三 VF 所提供的 "hello, world!" 四 註解 五 關於變數的 說明 之一 六 關於變數的 說明 之二 七 關於變數的 說明 之三 八 程式設計的 基本控制結構 九 選擇式 結構 十 迴圈式 結構 十一 副程式 介紹 十二 函數的 介紹 十三 遞迴,以 費氏數列作例子 十四 以上,是基礎部份完成 接著,將介紹 進階的 綜合應用 十五 先介紹 兩個有用的副程式 call skip2(no) call pause2 因為 擔心副程式的 名稱和 系統所提供的 相撞, 所以,副程式的 ...
cpp 代码 ! main()    implicit none       real t1, t2    integer*4 no, sum, i       pause    t1= secnds(0.0)       pause    t2= secnds(t1)    print *, 't1= ', t1, ', t2= ', t2    pause       n ...
asdf 當 no 太大的時候, sum= 1 + 2 + ... + no 會出現 錯誤的答案,integer*2 2- bytes 的整數範圍是 -32768 ... +32767 4- bytes 的整數範圍是 -2147483648 ... +2147484647 以下的 示範程式,介紹三種回圈結構,如此就 夠用了 cpp 代码 ! main()    implicit none    integer no, sum, i       ! loop for sum= 1 + 2 + ... + no    no= 100 ...
這是 Fortran 90 所提供的 選擇性的 程式結構, 很重要。 當 係數 a,b,c= 1, 3, 1 的時候,驗算結果會產生 誤差, 這就是 浮點數的運算,一定會 產生誤差。 如何 正確處理 誤差,是一個很重要的 學問。
因為 會牽涉到 程式執行速度的比較問題, 所以,在這裡 先列出來 我目前的作業平台情況 給大家參考。有興趣的朋友,可以互相 觀摩比較。 Windows XP sp2, Intel Celeron M 1.5GHz 504 MB
cpp 代码 ! --- main() ---    implicit none       ! integer 到底是 2 or 4 個 bytes?    ! Ans: > 32767, 所以是 4 個 bytes    integer no       no= 10    do while (no .GT. 0)       no= no + no + no       print *, 'no= ', no    end do      print *, '   ' ...
cpp 代码 ! --- main() ---    implicit none       print *, 'Hello World at 06:06'       end    ! -----------------------------------------------    其實,只要ㄧ行 end 就是 ㄧ個 主程式。
cpp 代码 ! main() begin    implicit none       print *, 'Hello World at 1201'    ! print *, 'Hello World at 1202'       print *, 'Hello World at 1203'       !DEC$IF (.FALSE.)        print *, 'Hello World at 1204'        print *, 'Hello World at 12 ...
Global site tag (gtag.js) - Google Analytics