程序怎么编写

简单的说，编程就是为了借助于计算机来达到某一目的或解决某个问题，而使用某种程序设计语言编写程序代码，并最终得到结果的过程。

计算机虽然功能十分强大。可以供你上网、打游戏、管理公司人事关系等等，但是没有程序，它就等于是一堆废铁，不会理会我们对它下达的“命令”。于是，我们要驯服它，只有通过一种方式——程序，这也是我们和计算机沟通的唯一方式。

那程序到底是什么呢？

程序也就是指令的集合，它告诉计算机如何执行特殊的任务。

打个比方说，它好比指导你烹调菜品的菜谱或指挥行驶一路到达目的地的交警（或者交通路标）。没有这些特殊的指令，就不能执行预期的任务。计算机也一样，当你想让计算机为你做一件事情的时候，计算机本身并不能主动为我们工作，因此我们必须对它下达指令，而它根本不会也不可能听懂人类自然语言对事情的描述，因此我们必须使用程序来告诉计算机做什么事情以及如何去做？甚至对最简单的任务也需要指令，例如如何取得击键，怎样在屏幕上放一个字母，怎样在磁盘中保存文件等等。

这么麻烦，连这些东西编程都要考虑！怪不得人家说编程好难！你错了，其实许多这样的指令都是现成的，包含在处理芯片中内置于 *** 作系统中，因此我们不必担心它们工作，他们都是由处理器和 *** 作系统来完成的，并不需要我们来干预这些过程。

上面讲到的计算机本身不会主动的做任何事情。因此我们要通过程序的方式来让计算机为我们“效劳”。而这个过程就是我们“编”出来的。编程可以使用某一种程序设计语言来实现，按照这种语言的语法来描述让计算机要做的事情。

我们这里所讲的语法和外语中的语法完全两码事，这里讲的语法只是读你的程序书写做出一写规定而已。

写出程序后，再由特殊的软件将你的程序解释或翻译成计算机能够识别的“计算机语言”，然后计算机就可以“听得懂”你的话了，并会按照你的吩咐去做事了。因此，编程实际上也就是“人给计算机出规则”这么一个过程。

随计算机语言的种类非常的多，总的来说可以分成机器语言，汇编语言，高级语言三大类。

电脑每做的一次动作，一个步骤，都是按照已经用计算机语言编好的程序来执行，程序是计算机要执行的指令的集合，而程序全部都是用我们所掌握的语言来编写的。所以人们要控制计算机一定要通过计算机语言向计算机发出命令。

计算机所能识别的语言只有机器语言，即由构成的代码。但通常人们编程时，不采用机器语言，因为它非常难于记忆和识别。

目前通用的编程语言有两种形式：汇编语言和高级语言。

汇编语言的实质和机器语言是相同的，都是直接对硬件 *** 作，只不过指令采用了英文缩写的标识符，更容易识别和记忆。它同样需要编程者将每一步具体的 *** 作用命令的形式写出来。

汇编程序的每一句指令只能对应实际 *** 作过程中的一个很细微的动作，例如移动、自增，因此汇编源程序一般比较冗长、复杂、容易出错，而且使用汇编语言编程需要有更多的计算机专业知识，但汇编语言的优点也是显而易见的，用汇编语言所能完成的 *** 作不是一般高级语言所能实现的，而且源程序经汇编生成的可执行文件不仅比较小，而且执行速度很快。

高级语言是目前绝大多数编程者的选择。和汇编语言相比，它不但将许多相关的机器指令合成为单条指令并且去掉了与具体 *** 作有关但与完成工作无关的细节，例如使用堆栈、寄存器等，这样就大大简化了程序中的指令。由于省略了很多细节，所以编程者也不需要具备太多的专业知识。

高级语言主要是相对于汇编语言而言，它并不是特指某一种具体的语言，而是包括了很多编程语言，如目前流行的VB、VC、FoxPro、Delphi等，这些语言的语法、命令格式都各不相同。

(1)解释类：执行方式类似于我们日常生活中的“同声翻译”，应用程序源代码一边由相应语言的解释器“翻译”成目标代码(机器语言)，一边执行，因此效率比较低，而且不能生成可独立执行的可执行文件，应用程序不能脱离其解释器，但这种方式比较灵活，可以动态地调整、修改应用程序。

(2)编译类：编译是指在应用源程序执行之前，就将程序源代码“翻译”成目标代码(机器语言)，因此其目标程序可以脱离其语言环境独立执行，使用比较方便、效率较高。但应用程序一旦需要修改，必须先修改源代码，再重新编译生成新的目标文件(．OBJ)才能执行，只有目标文件而没有源代码，修改很不方便。现在大多数的编程语言都是编译型的，例如Visual Basic、Visual C++、Visual Foxpro、Delphi等。

这个问题其实很简单。前面我们讲到，程序是人与计算机进行沟通的唯一方式，因此我们要让计算机为我们服务，就必须有程序，而程序从哪里来当然是由我们编写出来了。或许你又会问到另一个问题：现在要什么程序有什么程序，我干嘛还要编程呢这你就错了，现在的程序虽然很多，需要什么样的程序直接到网上不需要很长时间就可以找到类似的，而且有可能就是你所需要的。但是，就好比去买衣服，虽然卖衣服的到处都是，但是哪一件是为你“量身定做”的呢！

程序还能够做很多事情不同的程序可以完成不同的事情。从大的方面到管理国家的财务，小的方面管理家庭的帐务。

又如，如果你想要你的计算机能播放动画，那么你的计算机中也要有相应的动画播放程序，下面所示的就是一个F1ssh动画播放器。我们将会在后面的章节具体讲述这个程序的编制过程。

随着计算机的飞速发展，总会有那么一天将不会编程的人列为“文盲”。你不希望吧那么就好好的学习一种程序设计语言吧。

编程会过时吗

编程会过时吗这个问题，让我先问你一个问题：计算机会消失吗这两者答案是一样的。知道了计算机会不会消失，就知道了编程会不会过时。

编程工具会过时，而编程却不会过时

计算机系统由可以看见的硬倒：系统和看不见的软件系统组成。要使计算机能够正常的工作，仅仅有硬件系统是不行的，没有软倒系统(即没有程序)的计算机可以说只是—堆废铁，什么事情都干不了。例如当你撰写—篇文章的时候，你需要在 *** 作系统中用文字编辑软件来实现文字的输入，但如果没有这些文字输入软件的话，你是否想过如何向计算机中输入文章呢很难想象出如何在一个没有任何软件的计算机(我们称之为裸机)上进行文字的输入。而这些软件其实就是通常我们所说的程序。

编程会过时吗我们从另一个角度来考虑这个问题，计算机有——天会消失吗如果有一天当世界上所有的事情处理都用不到计算机了，那么计算机将会很快的消失，那时编程不仅过时了，而且也会随之消失了。但是计算机会消失吗当然不会，如今计算机应用到每一领域，为人类的发展做出了不可估量的贡献。试想一下如果有一天全世界的计算机突然消失了，那么这个世界将变成什么样子，或许和全世界都停电了一样恐怖，甚至还会有更大的损失。计算机的存在必须要有软件系统来维持。因此编程永远不会、也不可能会过时。

计算机程序设计语言发展到今天，已经从最原始的机器语言发展到如今可视化的集成开发环境，甚至集多种语言在同一开发平台上，像微软的NET平台。回头看看程序设计语言的发展史，不难看出对于编程来说，只会出现编程工具的过时，不会出现编程本身的过时。

不断变化的技术需要不断变化的程序员

从二十世纪60年代以后，计算机得到了突飞猛进的发展。似乎历史上没有任何一门科学的发展速度超过了计算机的发展，无论硬件、软件、还是网络都以惊人的速度向前发展。计算机的硬件发展速度遵循“摩尔定律”每十八个月速度翻一倍(实际现在已超过了这个速度)。 软件的发展速度和硬件一样，二十世纪九十年代中国的软件业还不是很成熟，而现在大大小小 的软件企业四处耸立，共享软件网上随处可见。不断发展的技术需要不断变化的程序员，例如，如今Visual Basic可以快速构Windows下的应用程序，程序设计方面的技术不断发展着，不断引进新的概念、新的方法，如从结构化的C开始，当面向对象的思想被提出后，出现了C++，微软在C++的基础上为使用户构建win32应用程序更加方便，推出了Visual C++。这也就需要程序员也要不断的更新自己的技术。

计算机科学与别的学科很不一样，不像语言学、历史学那样，几乎是永久不变的东西。计算机科学要求不断的更新自己的知识，否则很快就会被淘汰，即便是编程亦是如此。

编写程序是一件很有趣的事情，因为编写程序可以干很多高级的事情。例如我们在后面的章节中介绍如何使用Visual Basic编写Flash动画播放器，以及如何编写下载软件管理器等。如果你愿意的话，你完全可以编写出比这些更高级的程序来。

随着计算机软件业的发展，诞生了“程序员”这个职位。于是便形成了一种理念，编写程 序的人就是程序员，因此编程是程序员的事情。但程序员并不是一开始就是程序员，他们也是从现在我们的位置慢慢成为程序员的。

编写程序是一件很有趣的事情，因为编写程序可以干很多高级的事情。例如我们在后面的章节中介绍如何使用Visual Basic编写Flash动画播放器，以及如何编写下载软件管理器等。如果你愿意的话，你完全可以编写出比这些更高级的程序来。

编程也可以作为——种爱好或兴趣，如果你对它感兴趣学起来就容易多了!因为如果对编程感兴趣的话，就会多看些有关方面的书、多编些小程序上机实践，这些对于学习编程的帮助是非常大的，而且随着学习的进程不断的推进就会觉得它并不是很困难，相反却是很容易的。

总之，在学习编程时一定要坚持不懈，只要有信心、有毅力就一定能学好；不能因为一些似是而非的观念就动摇了自己的信心。

我们一起来编程

面对摆在面前的计算机该如何 *** 作，相信这个问题已经不再是困扰大家的首要问题了。现在软件的种类那么多，在选用的时候“电脑发烧友”的心里是否也想过有一天自己能编写一款属于自己的软件呢想学习编程的朋友在选择程序语言时会不会因为不知道如何选择而大感头痛呢在不知如何下手的时候，朋友们的心中是不是会产生“我是不是可以编程”的思想呢但是又有哪个程序员是不经过学习就能成功的呢!其实编写程序并不是人们所想象的那么困难、那么复杂，每个有心致力于学习计算机的朋友都是可以尝试的!

选择适合自己的程序语言的必要性

目前常用的基本程序语言的种类比较繁多，比较简单的有：Pascal、c语言、qBasic、 Fortran、Visual Basic等等。但前几种都是在DOS下进行编程的工具，Visual Basic是在 Windows下进行应用程序设计的编程工具，现在一般的计算机用户几乎都不再使用DOS了，因此我们通常会选择Visual Basic作为初学者的编程工具。Visual Basic是Windows应用程序设计中最容易上手的编程工具，学习步骤也比较容易被初学者接受。对于刚开始学习编程的初学者来说，还是选择Visual Basic，学习编程语言不能想象着一步登天，一步一个脚印的学习才是最佳方法。

坚定自己学习编写程序的信心

编写程序并不是具有专业知识的人员才有的专利，每个学习计算机的人都可以编写程序，每个人的灵感不同，在编写程序的思路和作法上又有区别。但共同的想法就是编写成功的程序。学习编程是一个漫长的过程，其中要付出艰辛的努力和汗水，不过成功者的喜悦又不是别人所能体会的。克服学习中的困难，努力去实践，要有一个思想：别人能做到的事情自己也一定可以做到。计算机的普及让更多的人有了学习的机会，也让更多的人参与到编程人员的队伍中来，每个人都有编程的权利，机遇给予每个人都是平等的。拿出自己必胜的信心，在编程的道路工勇于进取，相信成功就会在眼前。

三、我可以编程吗

随着计算机软件业的发展，诞生了“程序员”这个职位。于是便形成了一种理念，编写程 序的人就是程序员，因此编程是程序员的事情。但程序员并不是一开始就是程序员，他们也是从现在我们的位置慢慢成为程序员的。

编写程序是一件很有趣的事情，因为编写程序可以干很多高级的事情。例如我们在后面的章节中介绍如何使用Visual Basic编写Flash动画播放器，以及如何编写下载软件管理器等。如果你愿意的话，你完全可以编写出比这些更高级的程序来。

编程也可以作为——种爱好或兴趣，如果你对它感兴趣学起来就容易多了!因为如果对编程感兴趣的话，就会多看些有关方面的书、多编些小程序上机实践，这些对于学习编程的帮助是非常大的，而且随着学习的进程不断的推进就会觉得它并不是很困难，相反却是很容易的。

总之，在学习编程时一定要坚持不懈，只要有信心、有毅力就一定能学好；不能因为一些似是而非的观念就动摇了自己的信心。

四、我们一起来编程

面对摆在面前的计算机该如何 *** 作，相信这个问题已经不再是困扰大家的首要问题了。现在软件的种类那么多，在选用的时候“电脑发烧友”的心里是否也想过有一天自己能编写一款属于自己的软件呢想学习编程的朋友在选择程序语言时会不会因为不知道如何选择而大感头痛呢在不知如何下手的时候，朋友们的心中是不是会产生“我是不是可以编程”的思想呢但是又有哪个程序员是不经过学习就能成功的呢!其实编写程序并不是人们所想象的那么困难、那么复杂，每个有心致力于学习计算机的朋友都是可以尝试的!

选择适合自己的程序语言的必要性

目前常用的基本程序语言的种类比较繁多，比较简单的有：Pascal、c语言、qBasic、 Fortran、Visual Basic等等。但前几种都是在DOS下进行编程的工具，Visual Basic是在 Windows下进行应用程序设计的编程工具，现在一般的计算机用户几乎都不再使用DOS了，因此我们通常会选择Visual Basic作为初学者的编程工具。Visual Basic是Windows应用程序设计中最容易上手的编程工具，学习步骤也比较容易被初学者接受。对于刚开始学习编程的初学者来说，还是选择Visual Basic，学习编程语言不能想象着一步登天，一步一个脚印的学习才是最佳方法。

坚定自己学习编写程序的信心

编写程序并不是具有专业知识的人员才有的专利，每个学习计算机的人都可以编写程序，每个人的灵感不同，在编写程序的思路和作法上又有区别。但共同的想法就是编写成功的程序。学习编程是一个漫长的过程，其中要付出艰辛的努力和汗水，不过成功者的喜悦又不是别人所能体会的。克服学习中的困难，努力去实践，要有一个思想：别人能做到的事情自己也一定可以做到。计算机的普及让更多的人有了学习的机会，也让更多的人参与到编程人员的队伍中来，每个人都有编程的权利，机遇给予每个人都是平等的。拿出自己必胜的信心，在编程的道路工勇于进取，相信成功就会在眼前。

一、计算机语言的发展过程

到目前为止，世界上公布的程序设计语言有上千种之多，常用的也有三十来种，为了有21于正确选择和使用它们，下面我们做一个简单介绍。

(1)汇编语言：

它是依赖于具体计算机的语言，用它编写出的程序，执行效率高，但是只在一些特殊要求或特殊的场合才使用它。

(2)高级语言：

大家可能都听过使用高级语言进行程序设计，但由于对其并不了解，所以总认为这些是很高深的东西。其实并非如此，学习了后面的章节，相信同学会产生编程原来不过如此。

但计算机是不懂得自然语言的(可以理解为高级语言)，而高级语言设计出来的程序如何让计算机去执行呢其实很简单，看了下图后相信大家会明白许多。

现在我们就向大家介绍几种常见的高级语言：

Fortran语言是科学和工程计算中使用的主要编程语言。目前国内使用版本多数是Fortran 66和Fortran77两种。Fortran语言的主要缺点是不能直接支持结构化编程。

Cob0l语言是商业数据处理中广泛使用的语言。由于它本身结构上的特点，使得它能有效的支持与商业处理有关的、范围广泛的过程技术。它的缺点是不简洁。

Algol语言是所有结构化语言的先驱，具有丰富的过程和数据结构。但是，这种语言并没有被广泛采用，主要是由于它本身的历史原因所造成的。

Basic语言是一种解释执行的会话语言。由于它简单易学的特点，它被广泛应用在微型计算机系统中。

PL／／1语言是一个用途广泛的语言。能支持通常的科学工程和商业应用，能描述复杂的数据结构、多重任务处理、复杂的输入输出和表格处理等。

Pascal语言是70年代初期发展起来的结构化程序设计语言，具有特别丰富的数据结构类型。它自问世后，得到了众人的赞赏，也得到了软件开发者的广泛支持。Pascal语言已用于科学、工程和系统程序设计中。我们教育部计算机专业教育会议曾把Pascal语言定为计算机专业程序设计语言。

C语言是作为UNIX *** 作系统的主要使用语言。由于UNIX *** 作系统的成功，现在C语言也得到了广泛的使用。C语言是有经验的软件工程师设计的，它具有很强的功能，以及高度的灵活性。它和其他的结构化语言一样，能提供丰富的数据类型、广泛使用的指针以及—组很丰富的计算和数据处理使用的运算符。

C++语言是C语言的扩充。在1980年，贝尔实验室的Bjarne Strotstrup博士及其同事开始对C语言进行改进和扩充，最初被称为“带类的C”，1983年才取名为C++。以及不断完善和发展，成为目前的C++语言。一方面，它将C语言作为它的子集，使它能够与C语言兼容。使许多C语言代码不经修改就可以为C++语言所用以及用C语言编写的众多库函数和和实用软件可以直接用于C++语言中；另一方面。C++语言支持面向对象的程序设计这是它对C语言最重要的改进。

这样可以么？

第一步，打开调试环境(按装后在开始中会有)：

第二步，如果没有project 的话，新建一个project；

第三步，将已有的fortran文件放到project里

第四步，built（就是编译）；

第五步，执行程序即可（运行编译后程序）。

本文介绍一种在Windows环境下有效使用FORTRAN语言的方法利用这种方法，可以使得原有利用FORTRAN语言编写的程序，在核心部分几乎不作改动的情况下，在Windows环境下运行，并利用动态链接库DLL与外界进行数据交换，从而实现对其进行外表包装的目的。本文还介绍了在不同程序间使用接口数组进行数据共享，以及使用变量名进行数据检索的方法

你已的编译器已经能够完全正常运行，而且程序也可以运行了呢，只是你不知道如何运行它而已！

在unix或linux下编译fortran，一般系统没有自带fortran的编译器，可以自行安装g77或gfortran编译器，它们是gcc一个系列的，也可以下载单独的g95编译器。

假定你的fortran源程序为hellofor

则输入如下的命令来编译它（g77、gfortran、g95）

g77

hellofor

这样就会在当前目录生成aout的可执行文件，这样既可执行

/aout

如果需要指定生成的文件名，可以加个参数-o

来制定文件名，像这样

g77

-o

hello

hellofor

/hello

明白了吗？unix类 *** 作系统的执行档，并不需要exe这样的扩展名的。

!高斯消去法

subroutine agaus(a,b,n,x,l,js)

dimension a(n,n),x(n),b(n),js(n)

double precision a,b,x,t

l=1 !逻辑变量

do k=1,n-1

d=00

do i=k,n

do j=k,n

if (abs(a(i,j))>d) then

d=abs(a(i,j))

js(k)=j

is=i

end if

end do

end do !把行绝对值最大的元素换到主元位置

if (d+10==10) then

l=0

else !最大元素为0无解

if(js(k)/=k) then

do i=1,n

t=a(i,k)

a(i,k)=a(i,js(k))

a(i,js(k))=t

end do !最大元素不在K行，K行

end if

if(is/=k) then

do j=k,n

t=a(k,j)

a(k,j)=a(is,j)

a(is,j)=t !交换到K列

end do

t=b(k)

b(k)=b(is)

b(is)=t

end if !最大元素在主对角线上

end if !消去

if (l==0) then

write(,100)

return

end if

do j=k+1,n

a(k,j)=a(k,j)/a(k,k)

end do

b(k)=b(k)/a(k,k) !求三角矩阵

do i=k+1,n

do j=k+1,n

a(i,j)=a(i,j)-a(i,k)a(k,j)

end do

b(i)=b(i)-a(i,k)b(k)

end do

end do

if (abs(a(n,n))+10==10) then

l=0

write(,100)

return

end if

x(n)=b(n)/a(n,n)

do i=n-1,1,-1

t=00

do j=i+1,n

t=t+a(i,j)x(j)

end do

x(i)=b(i)-t

end do

100 format(1x,'fail')

js(n)=n

do k=n,1,-1

if (js(k)/=k) then

t=x(k)

x(k)=x(js(k))

x(js(k))=t

end if

end do

return

end

program main

dimension a(4,4),b(4),x(4),js(4)

double precision a,b,x

real m1,m2,j

open(1,file="laiyitxt")

read(1,)m1,m2,j

close(1)

n=4

print,m1,m2,j

a(1,1)=m1cos(314159j/180)

a(1,2)=-m1

a(1,3)=-sin(314159j/180)

a(1,4)=0

a(2,1)=m1sin(314159j/180)

a(2,2)=0

a(2,3)=cos(314159j/180)

a(2,4)=0

a(3,1)=0

a(3,2)=m2

a(3,3)=-sin(314159j/180)

a(3,4)=0

a(4,1)=0

a(4,2)=0

a(4,3)=-cos(314159j/180)

a(4,4)=1

b(1)=0

b(2)=m198

b(3)=0

b(4)=m298

call agaus(a,b,n,x,l,js)

if (l/=0) then

write(,)"a1=",x(1),"a2=",x(2) ,"n1=",x(3),"n2=",x(4)

end if

end

!逆矩阵求解

SUBROUTINE qiuni(A,N,L,IS,JS)

DIMENSION A(N,N),IS(N),JS(N)

DOUBLE PRECISION A,T,D

L=1

DO K=1,N

D=00

DO I=K,N

DO J=K,N

IF(ABS(A(I,J))GTD) THEN !把最大的元素给D

D=ABS(A(I,J))

IS(K)=I

JS(K)=J

END IF

END DO

END DO

IF (D+10EQ10)THEN

L=0

WRITE(,200)

RETURN

END IF

200 FORMAT(1X,'ERRNOT INV')

DO J=1,N

T=A(K,J)

A(K,J)=A(IS(K),J)

A(IS(K),J)=T

END DO

DO I=1,N

T=A(I,K)

A(I,K)=A(I,JS(K))

A(I,JS(K))=T

END DO

A(K,K)=1/A(K,K)

DO J=1,N

IF(JNEK)THEN

A(K,J)=A(K,J)A(K,K)

END IF

END DO

DO I=1,N

IF(INEK)THEN

DO J=1,N

IF(JNEK)THEN

A(I,J)=A(I,J)-A(I,K)A(K,J)

END IF

END DO

END IF

END DO

DO I=1,N

IF(INEK)THEN

A(I,K)=-A(I,K)A(K,K)

END IF

END DO

END DO

DO K=N,1,-1

DO J=1,N

T=A(K,J)

A(K,J)=A(JS(K),J)

A(JS(K),J)=T

END DO

DO I=1,N

T=A(I,K)

A(I,K)=A(I,IS(K))

A(I,IS(K))=T

END DO

END DO

RETURN

END

SUBROUTINE BRMUL(A,B,N,C)

DIMENSION A(N,N),B(N),C(N)

DOUBLE PRECISION A,B,C

DO I=1,N

DO J=1,N

C(I)=00

DO L=1,N

C(I)=C(I)+A(I,L)B(L)

END DO

END DO

END DO

RETURN

END

program main

DIMENSION A(4,4),B(4,1),C(4,1),IS(4),JS(4)

DOUBLE PRECISION A,B,C

REAL M1,M2,JD

OPEN(1,FILE='LAIYITXT')

READ(1,) M1,M2,JD

PRINT,M1,M2,JD

CLOSE(1)

A(1,1)=M1COS(314JD/180)

A(1,2)=-M1

A(1,3)=-SIN(314JD/180)

A(1,4)=0

A(2,1)=M1SIN(314JD/180)

A(2,2)=0

A(2,3)=COS(314JD/180)

A(2,4)=0

A(3,1)=0

A(3,2)=M2

A(3,3)=-SIN(314JD/180)

A(3,4)=0

A(4,1)=0

A(4,2)=0

A(4,3)=-COS(314JD/180)

A(4,4)=1

B(1,1)=0

B(2,1)=M198

B(3,1)=0

B(4,1)=M298

CALL QIUNI(A,4,L,IS,JS)

CALL BRMUL(A,B,4,C)

WRITE(,) (C(I,1),I=1,4)

END

画图

USE MSFLIB

INTEGER status

TYPE(xycoord) xy

status=SETCOLORRGB(#FFFFFF)

status1=SETCOLORRGB(#0000FF)

OPEN(1,FILE="GTXT")

READ(1,) G1,G2,G3,G4

OPEN(2,FILE="NTXT")

READ(2,) N1,N2,N3,N4

CALL MOVETO(INT(20),INT(20),xy)

status=LINETO(INT(40),INT(G1))

status=LINETO(INT(80),INT(G2))

status=LINETO(INT(120),INT(G3))

status=LINETO(INT(160),INT(G4))

CALL SETLINESTYLE(#FF00)

CALL MOVETO(INT(20),INT(20),xy)

status1=LINETO(INT(40),INT(N1))

status1=LINETO(INT(80),INT(N2))

status1=LINETO(INT(120),INT(N3))

status1=LINETO(INT(160),INT(N4))

READ(,)

END

如果对您有帮助，请记得采纳为满意答案，谢谢！祝您生活愉快！

1,安装

Code:Blocks安装版本有两个，一个是不带MinGW，一个是带MinGW（GNU工具在Windows上的一种移植，里面有GNU编译器套件）

当然Code:Blocks里面也支持其他编译器，比如微软的VS C++，Code:Blocks会自动侦测，或者你自己可以手动设定

2，启动Code:Blocks

当你安装好Code:Blocks，启动Code:Blocks

3，建立工程

从菜单File->new-> project （启动工程向导）

在d出的project选择窗口，选择console application -> 在工程向导第一个窗口选择语言C -> 输入工程名称信息(包括设定工程目录) -> next ->finish(这个画面还有机会选择编译器)

自动产生mainc:

子程序和主程序写在同一个文件里就可以了。

如果分开写，那么分别编译，然后一起链接。代码上不需要任何改动。跟同一个文件一模一样。

至于如何建立工程，这是 *** 作的问题。

Fortran 是一门语言，本身没有任何 *** 作问题。

全球支持Fortran语言的编译器有数十种，不同的编译器又使用若干种不同的编译环境。

例如 Compaq Visual Fortran，Intel Fortran 分别使用 VC6 和 VS 作为编译环境。Ftn95有自己的集成环境，叫Plato。甚至一些开源的，开放的编译环境经过配置，都可以使用Fortran的各种编译器。

这些 *** 作方法问题，也因为不同的编译环境而不同。

你的问题，就好像问：“英语如何查短句” 一样。英语本身是语言，不存在 *** 作问题。

如果你要问，也应该类似这样问：“金山词霸如何查短句”？？

类似的，你的问题，也应该是类似：“Compaq Visual Fortran 怎么建立工程” 或者其他编译器如何如何。

以上就是关于程序怎么编写全部的内容，包括:程序怎么编写、fortran怎么运行、如何在win7系统中使用fortran语言编写程序等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！