sjgau

2'補數

sjgau — Sat, 26 Apr 2008 05:52:04 +0800

作者: sjgau 链接：http://sjgau.javaeye.com/blog/186983 发表时间: 2008年04月26日

声明：本文系JavaEye网站发布的原创博客文章，未经作者书面许可，严禁任何网站转载本文，否则必将追究法律责任！

/*
n1= 50000, n2= 50001, n3= -1794917296
Press any key to continue

上面是 run 出來的結果，如何詳細 正確解釋
上面的現象。不能夠 只是一句 2'補數 就交差了事。

這是我 做學問的態度。
// ----------------------------------------------

如果你有興趣，請回覆 這個e-mail
sjgau4311@gmail.com
	  
*/

#include 

void main()
{
	int n1, n2, n3;
	
	n1= 50000L;
	n2= n1 + 1;
	n3= n1*n2;
	
	printf("n1= %d, n2= %d, n3= %d\n", n1, n2, n3);
}

本文的讨论也很精彩，浏览讨论>>

JavaEye推荐

計算時間的副程式

sjgau — Thu, 20 Dec 2007 11:49:26 +0800

作者: sjgau 链接：http://sjgau.javaeye.com/blog/149656 发表时间: 2007年12月20日

声明：本文系JavaEye网站发布的原创博客文章，未经作者书面许可，严禁任何网站转载本文，否则必将追究法律责任！

精確度可以到 10 ms

// file: psc51.cpp
// for time1(), time2()

#include 
#include 
#include 
#include 
#include 
#include 
// ----------------------------------------------

#include "sj01.h"
// ----------------------------------------------

//   time1(&t1);
void time1(long *t1)
{
/* FTIME.C: This program uses _ftime to obtain the current
 * time and then stores this time in timebuffer.

millitm
Fraction of a second in milliseconds.

time
Time in seconds since midnight (00:00:00), January 1, 1970, coordinated universal time (UTC).
 */

   struct _timeb timebuffer;
   // char *timeline;
   long t2, t3, t4, t5, t6;

   _ftime( &timebuffer );
   // timeline = ctime( & ( timebuffer.time ) );

   t2= timebuffer.time;// 秒
   t3= t2%(1L*24L*60L*60L);
   t4= t3*1000L;

   t5= timebuffer.millitm;// 千分之ㄧ秒
   t6= t4 + t5;
   *t1= t6;

   // printf( "The time is %.19s.%hu %s", timeline, timebuffer.millitm, &timeline[20] );
   // printf("%ld, %ld, %ld, %ld, %ld, \n", 
   //	       t2,  t3,  t4,  t5,  t6);
}// end of time1()
// ----------------------------------------------

//   time2(     t1,        &dt);
void time2(long t1, double *dt)
{
	long t2;
	time1(&t2);

	*dt= (t2 - t1)/1000.0;

	// (*dt) >= 0
	if ((*dt) < 0) {
		(*dt)+= 1.0*24.0*60.0*60.0;
	}
}// end of time2()
// ----------------------------------------------

void main()
{
	int no, sum, i, ct1= 0;
	long t1;
	double dt;
	// ----------------------------------------------

	no= 10;
	skip(3);
	while (no > 0) {
		time1(&t1);

		sum= 0;
		for (i=1;i<=no;i++) {
			sum+= i;
		}
		time2(t1, &dt);
		// ----------------------------------------------

		ct1++;
		printf("ct1= %3ld, no= %12ld, sum= %12ld, t1= %8ld, dt= %8.4lf\n", 
			ct1, no, sum, t1, dt);

		if (dt > 0) {
			pause();
		}

		if (ct1>=16) {
			// break;
		}

		no*= 2;
	}

	skip(1);
	printf("*** end of program!\n");
}// end of main()

本文的讨论也很精彩，浏览讨论>>

JavaEye推荐

兩個常用的副程式：skip(), pause()

sjgau — Thu, 20 Dec 2007 05:49:30 +0800

作者: sjgau 链接：http://sjgau.javaeye.com/blog/149590 发表时间: 2007年12月20日

声明：本文系JavaEye网站发布的原创博客文章，未经作者书面许可，严禁任何网站转载本文，否则必将追究法律责任！

// for skip(), pause()

#include 
#include 
#include 
#include 
// ----------------------------------------------

//   skip(-3);
void skip(int no)
{
	// limits no in 1 .. 20
	if ((no >= 1) && (no <= 20)) {// no is OK!
		for (int i=1;i<=no;i++) {
			// printf("i= %5d, no= %5d\n", i, no);

			printf("\n");
		}
	}
	else {// no is invalid!
		// printf("\n\n\n *** error in skip(), no= %5d\n", no);
		// system("pause");

		printf("\n");
	}
}// end of skip()
// ----------------------------------------------

//   pause();
void pause(void)
{
	int ch1;

	// remove type- ahead
	while (_kbhit()) {
		_getch();
	}
	// ----------------------------------------------

	printf(" Press any key to continue, [Esc] key to exit... ");
	do {
		// wait for key pressed
	} while (!_kbhit());
	ch1= _getch();
	printf("\n");
	// ----------------------------------------------

	if (ch1==0x1b) {// [Esc] key be pressed!
		exit(1);
	}

	// remove extra key pressed
	while (_kbhit()) {
		_getch();
	}
}// end of pause()
// ----------------------------------------------

void main()
{
	skip(3);

	for (int i=1;i<=20;i++) {
		skip(i);
		printf("i= %5d, i*i= %5d, sqrt(i)= %10.6lf\n", 
			i, i*i, sqrt(i));
		pause();
	}
	pause();
}// end of main()

本文的讨论也很精彩，浏览讨论>>

JavaEye推荐

"hello, world!\n"

sjgau — Wed, 19 Dec 2007 22:01:58 +0800

作者: sjgau 链接：http://sjgau.javaeye.com/blog/149540 发表时间: 2007年12月19日

声明：本文系JavaEye网站发布的原创博客文章，未经作者书面许可，严禁任何网站转载本文，否则必将追究法律责任！

#include 

void main()
{
	printf("hello, world! at 10:00 -A\n");
}

本文的讨论也很精彩，浏览讨论>>

JavaEye推荐

void main()

sjgau — Wed, 19 Dec 2007 21:56:29 +0800

作者: sjgau 链接：http://sjgau.javaeye.com/blog/149539 发表时间: 2007年12月19日

声明：本文系JavaEye网站发布的原创博客文章，未经作者书面许可，严禁任何网站转载本文，否则必将追究法律责任！

// unresolved external symbol _main

// function should return a value; 'void' return type assumed

void main()
{
}

本文的讨论也很精彩，浏览讨论>>

JavaEye推荐

未卜先知－計算機模擬 Computer Simulation

sjgau — Wed, 19 Dec 2007 15:02:32 +0800

作者: sjgau 链接：http://sjgau.javaeye.com/blog/149418 发表时间: 2007年12月19日

声明：本文系JavaEye网站发布的原创博客文章，未经作者书面许可，严禁任何网站转载本文，否则必将追究法律责任！

1/2 要結案，女兒的科普寫作 Home- Work

標題: 未卜先知－計算機模擬 Computer Simulation

國中的時候，碰到一個很好的數學老師。除了課本的內容之外，
他還會額外的介紹很多跟日常生活有關的數學。

其中，有一項錯誤的介紹，卻影響我很深。他提到過年時候，
街頭巷尾經常看到的賭博遊戲：三顆骰子的押寶遊戲。

老師說，有一種必勝的秘技。第一次押1元，輸了。第二次，
押2元，贏了，就總共獲利至少1元，然後就從頭開始。
輸了，就一直加倍的押下去。

當時年幼無知的我，非常相信他的說法。很可惜，在現實的
生活中，莊家不可能讓你這樣子玩，所以一直無從驗證。

ㄧ直到大學讀資訊工程，才有機會解開這個謎團，證明老師的
觀念是錯的。我用的方法就是：計算機模擬 Computer Simulation。

本文的主旨是介紹－計算機模擬 Computer Simulation，和必須用到的
相關工具：機率與統計，電腦亂數產生器等。
本文的讨论也很精彩，浏览讨论>>

JavaEye推荐

AutoLISP 程式設計教學大綱

sjgau — Mon, 12 Mar 2007 11:08:41 +0800

作者: sjgau 链接：http://sjgau.javaeye.com/blog/59226 发表时间: 2007年03月12日

声明：本文系JavaEye网站发布的原创博客文章，未经作者书面许可，严禁任何网站转载本文，否则必将追究法律责任！

最近，有網友想透過網路跟我學習 AutoLISP 程式設計。
我準備透過上面的部落格從事這項活動。

獨樂樂，不如眾樂樂。
教一個人和教一堆人，應該是沒有什麼差別。

有興趣的朋友，可以經常前往上面的網站看看
有問題，有心得，都可以在上面發言。

我的教學大綱，大概如下
ㄧ AutoCAD 2004 安裝
二 2D + 3D 快速 demo
三複習 2D
四 AutoLISP 教學

1 "hello, world!\n"
2 註解
; ---

;| ---
---
|;

3 變數之一
x= 4.0*atan(1.0);
x= exp(1.0);

變數之二
x= x + 1

變數之三
swap x, y

4 sequential

select
if
cond

loop
while
repeat

5 function
swap(x, y);

rtod(r1); dtor(d1);

recursive
費氏數列(no)

(defun c:xxx( / )
;
)

6 作中垂線的範例

7 作分角線的範例

8 其他有趣的，或是網友隨時提出的範例
完全免費，完整分享。

大台北地區的朋友，如果有需要，
亦可免費面授

本文的讨论也很精彩，浏览讨论>>

JavaEye推荐

AutoCAD 2004 的安裝說明

sjgau — Sat, 10 Mar 2007 06:43:59 +0800

作者: sjgau 链接：http://sjgau.javaeye.com/blog/58755 发表时间: 2007年03月10日

声明：本文系JavaEye网站发布的原创博客文章，未经作者书面许可，严禁任何网站转载本文，否则必将追究法律责任！

AutoCAD 2004 的安裝說明

Q: 為何採用 2004 的版本
A: 因為 2006 的功能和 2004 差不多，2004 的安裝比較容易。

Q: 安裝時要注意些什麼？
A: 要選擇完整安裝。如此，才會有完整的範例和說明。

本文的讨论也很精彩，浏览讨论>>

JavaEye推荐

作中垂線的 AutoLISP 程式

sjgau — Fri, 02 Mar 2007 07:48:42 +0800

作者: sjgau 链接：http://sjgau.javaeye.com/blog/56908 发表时间: 2007年03月02日

声明：本文系JavaEye网站发布的原创博客文章，未经作者书面许可，严禁任何网站转载本文，否则必将追究法律责任！

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)
(command "-array" l1 "" "P" pm 2 90 "Y")
(princ)
); end of mid-per()
; end of file

本文的讨论也很精彩，浏览讨论>>

JavaEye推荐

VC++ 的注解

sjgau — Thu, 01 Mar 2007 07:20:22 +0800

作者: sjgau 链接：http://sjgau.javaeye.com/blog/56666 发表时间: 2007年03月01日

声明：本文系JavaEye网站发布的原创博客文章，未经作者书面许可，严禁任何网站转载本文，否则必将追究法律责任！

cpp 代码

// 這一行是註解，凡是在同一行裡面，"//" 後面的，都是註解
// VC0401.cpp : 定義主控台應用程式的進入點。
//
#include "stdafx.h"
#include
// #include 的意思是，把某一個文字檔案 include 進來，
// 一起 compile， < > 是系統提供的檔案，" " 是自己寫的
// 下面這一行，先不要管他。
int _tmain(int argc, _TCHAR* argv[])
{
printf("hello, world! 0723\n");
_getch();// 這一行是提供暫停的功能。
return 0;// 這一行，先不要管他。
}// end of main()
// 這樣子，應該暫時沒有問題了吧？
// 還有問題的話，請提出。

本文的讨论也很精彩，浏览讨论>>

JavaEye推荐

VC++2005 的

sjgau — Wed, 28 Feb 2007 16:09:00 +0800

作者: sjgau 链接：http://sjgau.javaeye.com/blog/56525 发表时间: 2007年02月28日

声明：本文系JavaEye网站发布的原创博客文章，未经作者书面许可，严禁任何网站转载本文，否则必将追究法律责任！

cpp 代码

// VC0401.cpp : 定義主控台應用程式的進入點。
//
#include "stdafx.h"
#include
int _tmain(int argc, _TCHAR* argv[])
{
printf("hello, world! 0405\n");
_getch();
return 0;
}// end of main()

下面是比較簡短的 case

cpp 代码

#include "stdafx.h"
#include
int _tmain(int argc, _TCHAR* argv[])
{
printf("hello, world! 10:54\n");
_getch();
return 0;
}// end of main()

本文的讨论也很精彩，浏览讨论>>

JavaEye推荐

C的亂數產生器

sjgau — Mon, 12 Feb 2007 11:43:00 +0800

作者: sjgau 链接：http://sjgau.javaeye.com/blog/53928 发表时间: 2007年02月12日

声明：本文系JavaEye网站发布的原创博客文章，未经作者书面许可，严禁任何网站转载本文，否则必将追究法律责任！

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 rnd1(int *s1)
{
// r(n)= (r(n-1)*a + b) MOD c
// a= 7^5= 16807.0
// b= 0.0
// c= 2147483647.0
// ----------------------------------------------
// double r1, r2, r3;
// r1= (double) (*s1);
// r2= r1*16807.0;
// r3= fmod(r2, 2147483647.0);
(*s1)= (int) ((fmod((((double) (*s1))*16807.0), 2147483647.0)) + 0.5);
}// end rnd1()
// ----------------------------------------------
void rnd2(int *s1, double *x)
{
rnd1(s1);
*x= ((double) *s1)/2147483647.0;
}// end rnd2()
// ----------------------------------------------
void swap_int(int *x, int *y)
{
int z;
z= *x;
*x= *y;
*y= z;
}// end swap_int()
// ----------------------------------------------
void irnd(int *s1, int i1, int i2, int *ii)
{
double x;
rnd2(s1, &x);
// I hope i1 <= i2
if (i1 > i2) {
swap_int(&i1, &i2);
}
*ii= ((int) (x*(i2 - i1 + 1))) + i1;
}// end irnd()
// ----------------------------------------------
void init_rnd(int *s1)
{
int t1, t2;
time1(&t1);
// ----------------------------------------------
t2= t1;
do {
time1(&t1);
} while (t1 == t2);
// t1 <> t2
// ----------------------------------------------
*s1= t1;
for (int i=0;i<300;i++) {
rnd1(s1);
}
}// end init_rnd()

自己寫的。

本文的讨论也很精彩，浏览讨论>>

JavaEye推荐

C 的 time1(&t1), time2(t1, &dt)

sjgau — Mon, 12 Feb 2007 11:28:02 +0800

作者: sjgau 链接：http://sjgau.javaeye.com/blog/53925 发表时间: 2007年02月12日

声明：本文系JavaEye网站发布的原创博客文章，未经作者书面许可，严禁任何网站转载本文，否则必将追究法律责任！

cpp 代码

// file: sj02.h
void time1(int *t1);
void time2(int t1, double *dt);
// ----------------------------------------------
void time1(int *t1)
{
struct _timeb timebuffer;
_ftime( &timebuffer );
*t1= timebuffer.time + 8L*60*60;
(*t1)%= (1L*24*60*60);
*t1= (*t1)*1000L + timebuffer.millitm;
}// end time1()
// ----------------------------------------------
void time2(int t1, double *dt)
{
// get t2
int t2;
time1(&t2);
// ----------------------------------------------
*dt= (t2 - t1)/1000.0;
// dt must >= 0.0
if ((*dt) < 0.0) {
(*dt)+= 1.0*24.0*60.0*60.0;
}
}// end time2()
// ----------------------------------------------

本文的讨论也很精彩，浏览讨论>>

JavaEye推荐

C的 skip(no), pause()

sjgau — Mon, 12 Feb 2007 11:26:29 +0800

作者: sjgau 链接：http://sjgau.javaeye.com/blog/53924 发表时间: 2007年02月12日

声明：本文系JavaEye网站发布的原创博客文章，未经作者书面许可，严禁任何网站转载本文，否则必将追究法律责任！

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("no is invalid! no= %d\n", no);
pause();
no= 1;
}
// ----------------------------------------------
for (int i=1;i<=no;i++) {
printf("\n");
}
}// end skip()
// ----------------------------------------------
void pause(void)
{
// remove type- ahead
while (_kbhit()) {
_getch();
}
// ----------------------------------------------
printf(" Press [Esc] for stop! other key for continue...");
do {
// wait for keyPressed
} while (!_kbhit());
int ch1= _getch();
printf("\n");
// ----------------------------------------------
if (ch1==0x1b) {
exit(1);
}
// remove other key
while (_kbhit()) {
_getch();
}
}// end pause()
// ----------------------------------------------

本文的讨论也很精彩，浏览讨论>>

JavaEye推荐

第二個副程式 skip(no)

sjgau — Mon, 05 Feb 2007 08:31:53 +0800

作者: sjgau 链接：http://sjgau.javaeye.com/blog/52249 发表时间: 2007年02月05日

声明：本文系JavaEye网站发布的原创博客文章，未经作者书面许可，严禁任何网站转载本文，否则必将追究法律责任！

cpp 代码

! VF0205.f90
program VF0205
implicit none
integer i
print *, 'Hello World! at 08:26'
pause
! -----------------------------------------------
call skip2(3)
do i=1, 20, 1
call skip2(i)
print *, 'i= ', i, ', i*i= ', i*i, &
', sqrt(i)= ', sqrt(float(i))
call pause2
end do
end program VF0205
! -----------------------------------------------
! call skip2(i)
subroutine skip2(no)
implicit none
integer no, i
! limits no in 1 ... 20
if ((no .GE. 1) .AND. (no .LE. 20)) then
! no is OK!
do i=1, no
print *, ' '
end do
else
! no is invalid
print *, '***'
end if
end ! of sub. skip2()
! -----------------------------------------------
! call pause2
subroutine pause2
implicit none
integer no
print *, ' Input 1 for continue, other number for stop! '
read(*, *)no
if (no .EQ. 1) then
return
else
stop
end if
end ! of sub. pause2
! -----------------------------------------------

這次的 SKIP2(NO)，是有帶參數的。會把主程式的 I 變數的值，COPY ㄧ份，
傳給副程式的參數 NO，如果 NO 的值在副程式裡面被改變了，
主程式的 I 的值，會跟著改變。這點和 C 剛好相反，值得注意！

本文的讨论也很精彩，浏览讨论>>

JavaEye推荐

實作副程式的過程

sjgau — Mon, 05 Feb 2007 06:43:43 +0800

作者: sjgau 链接：http://sjgau.javaeye.com/blog/52247 发表时间: 2007年02月05日

声明：本文系JavaEye网站发布的原创博客文章，未经作者书面许可，严禁任何网站转载本文，否则必将追究法律责任！

cpp 代码

! VF0205.f90
program VF0205
implicit none
print *, 'Hello World! at 06:40'
end program VF0205
! -----------------------------------------------

ㄧ開始，使用 F90 提供的 Free- format 的 "hello, world!" 範例程式
作為開始。

cpp 代码

! VF0205.f90
program VF0205
implicit none
integer i
print *, 'Hello World! at 06:52'
pause
do i=1, 20, 1
print *, 'i= ', i, ', i*i= ', i*i, &
', sqrt(i)= ', sqrt(float(i))
end do
! sqrt(x) 的參數 x , 必須是 real*4
end program VF0205
! -----------------------------------------------

接著，增加ㄧ個 DO- loop，這裡示範 for . . . next 的完整的寫法。

cpp 代码

! VF0205.f90
program VF0205
implicit none
integer i
print *, 'Hello World! at 06:56'
pause
! -----------------------------------------------
do i=1, 20, 1
print *, 'i= ', i, ', i*i= ', i*i, &
', sqrt(i)= ', sqrt(float(i))
call pause2
end do
! sqrt(x) 的參數 x , 必須是 real*4
end program VF0205
! -----------------------------------------------
! call pause2
subroutine pause2
implicit none
integer no
print *, ' Input 1 for continue, other number for stop! '
read(*, *)no
if (no .EQ. 1) then
return
else
stop
end if
end ! of sub. pause2
! -----------------------------------------------

上面，完成了 CALL PAUSE2 的副程式的寫作，因為這個副程式
沒有參數，所以其型態是如下的樣子

CALL PAUSE2

.
.
.
SUBROUTINE PAUSE2
END

本文的讨论也很精彩，浏览讨论>>

JavaEye推荐

Fortran 90 教學大綱

sjgau — Sat, 03 Feb 2007 07:59:26 +0800

作者: sjgau 链接：http://sjgau.javaeye.com/blog/51976 发表时间: 2007年02月03日

声明：本文系JavaEye网站发布的原创博客文章，未经作者书面许可，严禁任何网站转载本文，否则必将追究法律责任！

一使用的軟體

二安裝 Fortran 軟體的注意事項

三 VF 所提供的 "hello, world!"

四註解

五關於變數的說明之一

六關於變數的說明之二

七關於變數的說明之三

八程式設計的基本控制結構

九選擇式結構

十迴圈式結構

十一副程式介紹

十二函數的介紹

十三遞迴，以費氏數列作例子

十四以上，是基礎部份完成
接著，將介紹進階的綜合應用

十五先介紹兩個有用的副程式
call skip2(no)
call pause2

因為擔心副程式的名稱和系統所提供的相撞，
所以，副程式的名稱後面，多加ㄧ個 2

十六介紹計時付程式的寫作
call time1(t1)
call time2(t1, dt)

十七介紹自己寫的亂數產生器
call rnd1(s1)
call rnd2(s1, x)
call irnd(s1, i1, i2, ii)
call init_rnd(s1)

自己生的小孩，才可以打罵。
我知道系統有提供，但是我總覺得不好用。

十八今彩 539
利用以上的副程式，完成一個模擬樂透彩券
電腦開獎的程式。

本文的讨论也很精彩，浏览讨论>>

JavaEye推荐

Fortran 90 的教學

sjgau — Thu, 01 Feb 2007 07:31:49 +0800

作者: sjgau 链接：http://sjgau.javaeye.com/blog/51553 发表时间: 2007年02月01日

声明：本文系JavaEye网站发布的原创博客文章，未经作者书面许可，严禁任何网站转载本文，否则必将追究法律责任！

http://sjgau.javaeye.com

上面是我的部落格，
最近應網友的需求，展開一系列 Fortran 90
程式設計的教學。

透過部落格的教學活動，能夠做到什麼程度？
請有興趣，有需要的朋友，前往參觀指教。

謝謝！
本文的讨论也很精彩，浏览讨论>>

JavaEye推荐

Fortran 的計時程式

sjgau — Wed, 31 Jan 2007 12:53:31 +0800

作者: sjgau 链接：http://sjgau.javaeye.com/blog/51423 发表时间: 2007年01月31日

声明：本文系JavaEye网站发布的原创博客文章，未经作者书面许可，严禁任何网站转载本文，否则必将追究法律责任！

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
no= 10
do while (no .GT. 0)
t1= secnds(0.0)
sum= 0
do i=1, no
sum= sum + i
end do
t2= secnds(t1)
if (t2 .GT. 0.0) then
print *, '*** no= ', no, ', sum= ', sum, ', t2= ', t2
else
print *, ' no= ', no, ', sum= ', sum, ', t2= ', t2
end if
no= no + no
end do
end !of main()
! -----------------------------------------------

本文的讨论也很精彩，浏览讨论>>

JavaEye推荐

Fortran 所提供的迴圈結構

sjgau — Wed, 31 Jan 2007 11:26:15 +0800

作者: sjgau 链接：http://sjgau.javaeye.com/blog/51412 发表时间: 2007年01月31日

声明：本文系JavaEye网站发布的原创博客文章，未经作者书面许可，严禁任何网站转载本文，否则必将追究法律责任！

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= 100000000
sum= 0
do i=1, no, 1
sum= sum + i
end do
print *, 'do loop, sum= ', sum
! -----------------------------------------------
sum= 0
i= 1
! while (i <= no) do ...
do while (i <= no)
sum= sum + i
i= i + 1
end do
print *, 'do while(), sum= ', sum + 1
! -----------------------------------------------
! repeat ... until (i > no)
sum= 0
i= 1
do
sum= sum + i
i= i + 1
! if (i > no) exit
if (i .GT. no) then
exit
end if
end do
print *, 'repeat ... until(), sum= ', sum + 2
end !of main()
! -----------------------------------------------

asdf

本文的讨论也很精彩，浏览讨论>>

JavaEye推荐

Fortran 的選擇式結構

sjgau — Wed, 31 Jan 2007 10:51:10 +0800

作者: sjgau 链接：http://sjgau.javaeye.com/blog/51403 发表时间: 2007年01月31日

声明：本文系JavaEye网站发布的原创博客文章，未经作者书面许可，严禁任何网站转载本文，否则必将追究法律责任！

這是 Fortran 90 所提供的選擇性的程式結構，
很重要。

當係數 a,b,c= 1, 3, 1 的時候，驗算結果會產生誤差，
這就是浮點數的運算，一定會產生誤差。

如何正確處理誤差，是一個很重要的學問。

本文的讨论也很精彩，浏览讨论>>

JavaEye推荐

我的作業平台

sjgau — Wed, 31 Jan 2007 09:14:39 +0800

作者: sjgau 链接：http://sjgau.javaeye.com/blog/51381 发表时间: 2007年01月31日

声明：本文系JavaEye网站发布的原创博客文章，未经作者书面许可，严禁任何网站转载本文，否则必将追究法律责任！

因為會牽涉到程式執行速度的比較問題，
所以，在這裡先列出來我目前的作業平台情況
給大家參考。有興趣的朋友，可以互相觀摩比較。

Windows XP sp2,
Intel Celeron M 1.5GHz
504 MB

本文的讨论也很精彩，浏览讨论>>

JavaEye推荐

integer 到底是 2 or 4 個 bytes?

sjgau — Tue, 30 Jan 2007 18:17:05 +0800

作者: sjgau 链接：http://sjgau.javaeye.com/blog/51281 发表时间: 2007年01月30日

声明：本文系JavaEye网站发布的原创博客文章，未经作者书面许可，严禁任何网站转载本文，否则必将追究法律责任！

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 *, ' '
print *, 'no= ', no
end
! -----------------------------------------------

本文的讨论也很精彩，浏览讨论>>

JavaEye推荐

Fortran 90 的主程式單元

sjgau — Tue, 30 Jan 2007 18:11:05 +0800

作者: sjgau 链接：http://sjgau.javaeye.com/blog/51278 发表时间: 2007年01月30日

声明：本文系JavaEye网站发布的原创博客文章，未经作者书面许可，严禁任何网站转载本文，否则必将追究法律责任！

cpp 代码

! --- main() ---
implicit none
print *, 'Hello World at 06:06'
end
! -----------------------------------------------

其實，只要ㄧ行

end

就是ㄧ個主程式。
本文的讨论也很精彩，浏览讨论>>

JavaEye推荐

Fortran 90 的段落式的注解

sjgau — Tue, 30 Jan 2007 12:13:06 +0800

作者: sjgau 链接：http://sjgau.javaeye.com/blog/51219 发表时间: 2007年01月30日

声明：本文系JavaEye网站发布的原创博客文章，未经作者书面许可，严禁任何网站转载本文，否则必将追究法律责任！

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 1205'
print *, 'Hello World at 1206'
!DEC$ENDIF
print *, 'Hello World at 1207'
end
! end of file

! 的注解，只能夠處理一整行的注解，如果碰到整個段落的注解，
就要改用上面所示範的注解。

註解是非常重要的東西，請適當和正確的使用註解。

其中的 "DEC" 應該是 DEC 電腦公司的意思，可能當初這個標準是
這個公司制定的吧。

本文的讨论也很精彩，浏览讨论>>

JavaEye推荐

sjgau

2'補數

計算時間的副程式

兩個常用的副程式：skip(), pause()

"hello, world!\n"

void main()

未卜先知－計算機模擬 Computer Simulation

AutoLISP 程式設計 教學大綱

AutoCAD 2004 的安裝說明

作中垂線的 AutoLISP 程式

VC++ 的注解

VC++2005 的

C的亂數產生器

C 的 time1(&t1), time2(t1, &dt)

C的 skip(no), pause()

第二個副程式 skip(no)

實作 副程式的過程

Fortran 90 教學大綱

Fortran 90 的教學

Fortran 的計時程式

Fortran 所提供的 迴圈結構

Fortran 的選擇式結構

我的作業平台

integer 到底是 2 or 4 個 bytes?

Fortran 90 的主程式單元

Fortran 90 的段落式的注解

AutoLISP 程式設計教學大綱

實作副程式的過程

Fortran 所提供的迴圈結構