如何编程序
① 如何编程序
这段距离还很远,慢慢积累~
② 怎样编程序
/*1、 编程解决如下数学问题：有12升水，怎样利用一个8升和一个5升的容器将水分为两个6升？要求以如下格式打印出分水步骤。（20分）
a12 b8 c5
12 0 0
* * * （ "*"表示当前状态下每个容器的盛水量）
．．．．．．
6 6 0
# include <stdio.h>
# include <stdlib.h>
void move(int *x,int *y,int aMax,int bMax)
{
if(aMax>bMax)
{
if(*x+*y>bMax)
{
*x = *x-(bMax-*y);
*y = *y+(bMax-*y);
}
else
{
*y = *y+*x;
*x = *x-*x;//如果颠倒两个的顺序就会造成无法输出
}
}
else
{
*y = *y + *x;
*x = *x - *x;
}
}
main()
{
int aMax=12,bMax=8,cMax=5;
int a=12,b=0,c=0;
int i=1;
printf(" a12 b8 c5:\n");
printf("%7d%7d%7d\n",a,b,c);
while(i)
{
move(&a,&b,aMax,bMax);
printf("%7d%7d%7d\n",a,b,c);
if(a==6&&b==6)
goto step2;
move(&b,&c,bMax,cMax);
printf("%7d%7d%7d\n",a,b,c);
if(a==6&&b==6)
goto step2;
move(&c,&a,cMax,aMax);
printf("%7d%7d%7d\n",a,b,c);
if(a==6&&b==6)
goto step2;
move(&b,&c,bMax,cMax);
printf("%7d%7d%7d\n",a,b,c);
if(a==6&&b==6)
goto step2;
}
step2:
printf("the water has been sorted!\n");
return 0;
}*/
/*2、 编程实现：有二维数组a[3][3]={{5.4，3.2，8}，{6，4，3.3}，{7，3，1.3}}，
将数组a的每一行元素均除以该行上的主对角元素（第1行同除以a[0][0]，第2行同除以a[1][1]，...）,
按行输出新数组。（20分）
# include <stdio.h>
main()
{
double a[3][3]={{5.4,3.2,8},{6,4,3.3},{7,3,1.3}}; //可以在定义时初始化，在后来就不行了
int i,j;
for(i=0;i<3;i++)
{
for(j=0;j<3;j++)
{
if(i==j)
a[i][j]=a[i][j];
else
a[i][j]=a[i][j]/a[i][i];
}
a[i][i]=1;
}
for(i=0;i<3;i++)
{
for(j=0;j<3;j++)
printf("%6.2f",a[i][j]);
printf("\n");
}
}*/
/*3、编程：设x取值为区间[1,20]的整数，求函数f（x）=x-sin（x）- cos（x）的最大值，
要求使用自定义函数实现f（x）功能。（20分）
#include <stdio.h>
#include <math.h>
double f(long double x);
main()
{
double a[50];
int i,index,j;
long double temp;
for(i=0;i<20;i++)
a[i] = f(i+1);
for(i=0;i<19;i++)
{
index = i;
for(j=i+1;j<20;j++)
if(a[j]>a[index])
index = j;
temp = a[index];
a[index] = a[i];
a[i] = temp;
}
printf("the max is %6.2f",a[0]);
printf("\n");
return 0;
}
double f(long double x)
{
x = x - sin(x) - cos(x); //他输入的是弧度数，而我用计算器算的是角度值，所以结果会不一样
return x;
}*/
//冒泡排序
/*# include <stdio.h>
# include <math.h>
void swap(int *x,int *y);
main()
{
int i,j;
int a[50];
printf("please input the num:");
printf("\n");
for(i=0;i<10;i++)
scanf("%d",&a[i]);
for(i=1;i<10;i++)
for(j=0;j<10-i;j++)
if(a[j]>a[j+1])
swap(&a[j],&a[j+1]);
printf("after sorted the num is:");
printf("\n");
for(i=0;i<10;i++)
printf("%4d",a[i]);
printf("\n");]
return 0;
}
void swap(int *x,int *y)
{
int p;
p = *x;
*x = *y;
*y = p;
}
*/
//选择排序
/*# include <stdio.h>
# include <stdlib.h>
main()
{
int i,j,temp,index;
int a[50];
printf("input the num :");
printf("\n");
for(i=0;i<10;i++)
scanf("%d",&a[i]);
for(i=0;i<9;i++)
{
index = i;
for(j=i+1;j<10;j++)
{
if(a[j]<a[index])
index = j;
temp = a[index];
a[index] = a[i];
a[i] = temp;
}
}
for(i=0;i<10;i++)
printf("%4d",a[i]);
printf("\n");
return 0;
}*/
/*编写函反向。
要求主函数输入字符串，通过调用函数fun实数fun，通过指针实现将一个字符串现输入字符串反向。（20分）
# include<stdio.h>
# include<stdlib.h>
# include<string.h>
char *fun(char *q)
{
char temp;
int len=strlen(q);
int i;
for(i=0;len-i-1>i;i++)
{
temp = *(q+i);
*(q+i) = *(q+len-i-1);
*(q+len-i-1) = temp;
}
return q;
}
main()
{
char *q;
q=(char *)malloc(200*sizeof(char));
printf("please input the string:\n");
scanf("%s",q);
fun(q);
printf("after reverse the string is:\n");
printf("%s\n",q);
return 0;
}*/
/*5、已知学生三门课程基本信息如下。请使用结构体编程，计算学生三门课程平均成绩后，
列表输出学生的姓名、数学、英语、计算机、平均分信息，并按平均分排序。（20分）
姓名 数学 英语 计算机
Mary 93 100 88
Jone 82 90 90
Peter 91 76 71
Rose 100 80 92
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
struct student{
char name[20];
int math;
int english;
int computer;
double average;
};
main()
{
int i,j,index;
struct student a[4];
struct student temp;
strcpy(a[0].name,"mary"),a[0].math=93,a[0].english=100,a[0].computer = 88;
strcpy(a[1].name,"jone"),a[1].math=82,a[1].english=90,a[1].computer = 90;
strcpy(a[2].name,"peter"),a[2].math=91,a[2].english=76,a[2].computer = 71;
strcpy(a[3].name,"rose"),a[3].math=100,a[3].english=80,a[3].computer = 92;
for(i=0;i<4;i++)
a[i].average =(a[i].computer +a[i].english +a[i].math)/3 ;
for(i=0;i<3;i++)
{
index = i;
for(j=i;j<4;j++)
if(a[j].average <a[index].average )
index = j;
temp = a[i];
a[i] = a[index];
a[index] = temp;
}
printf("姓名 数学 英语 计算机 平均分\n");
for(i=0;i<4;i++)
{
printf("%6s%6d%6d%9d%9.1f",a[i].name ,a[i].math ,a[i].english ,a[i].computer ,a[i].average );
printf("\n");
}
}*/
/*6、附加题：编程实现输入一串英文，统计其中各单词出现的个数（不区分大小写字母），
以"000"作为字符串输入结束标志，例如：
Twinkle twinkle little star 000（回车）
twinkle little star
2 1 1 （50分）
#include<stdio.h>
#include<stdlib.h>
#include<string.h>
#include<ctype.h>
void main()
{
char string[400]; //装载输入的原始字符串
char temp[20][20]; //装载string中的各个子字符串
char str[20][20]; //装在string中的各个子字符串，不过不包括重复的字符串，只是把不同的字符串收录在str中
int num=0; //记录空格的个数
int order[20]; //记录各个空格的位置
int i,j,k;
int sum[20]; //记录子字符串出现的个数
int flag=0; //判断是否把子字符串输入到str中
for(i=0;i<20;i++)
memset(temp[i],'\0',20); //把那里面的元素清零，如果不清零会产生乱码
for(i=0;i<20;i++)
memset(str[i],'\0',20); //把那里面的元素清零，如果不清零会产生乱码
printf("please input the string:\n");
gets(string); //把字符串输入到字符数组string[400]中
for(i=0;string[i]!='0';i++)
string[i]=tolower(string[i]); //将字符串中的大写字母转化成小写字母
for(i=0;string[i]!='0';i++)
if(string[i]==' ')
{
order[num]=i; //记录空格的位置
num++; //空格的数目加1
}
for(i=0;i<order[0];i++)
temp[0][i]=string[i];//记录了第一个空格前的字符串，把它输入到temp[0][]中.
for(j=0;j<num;j++)
for(k=0,i=order[j]+1;i<order[j+1];i++)
temp[j+1][k++] = string[i]; //将string字符串分开后存在temp中,也就是把第一个空格之后的字符串分别存放在temp中。
//第一个字符串为temp[0],第二个字符串为temp[1],往后就一次类推了
for(k=0,i=0;i<num;i++)
{
flag=0;
for(j=0;j<k;j++)
if(!strcmp(temp[i],str[j]))
{
flag=1;
break;
}
if(flag==0)
strcpy(str[k++],temp[i]);//关于他的实现举例，第一遍时temp[0]=hello,str[0]=hello;但是当temp[1]=hello时，str[1]中不会
//在存储temp的值，而是把这个忽略掉，接着往下找。
}
for(i=0;i<k;i++) //k决定了输出的字符串的个数，从而避免了相同字符串的重复输入，通过flag的变化来实现
{
sum[i]=0;
for(j=0;j<num;j++)
if(!strcmp(str[i],temp[j]))
sum[i]++;
printf("%s %d\n",str[i],sum[i]);
}
}*/
③ 如何自己编程序做软件
万事开头难，首先，要有扎实的基础知识，推荐先学 c语言，搞清楚基本概念，比如 变量，函数，类，数据类型等等，再下点功夫研究下数据结构，前者是所有编程语言的构成基石，后者是算法，就是如何用编程语言去解决实际问题。不要相信什么速成教程，不要被当下众多流行的编程语言搞得不知如何下手，安下心花功夫把基础打牢。
第二，推荐学习下java语言，建议看看 《java编程思想》这本书，这是本着名的java编程教学书籍，网上有 pdf下载。
第三，熟悉一下关系型数据库，当前三大主流关系型数据库 包括 mysql， oracle，sqlserver，你可以挑一个专门学习下，主要学习关系型数据中的 基本概念，比如 表，视图，存储过程，函数，以及 关系型数据库 语言，在网上搜相关书籍学习下就可以了，mysql 安装较为简单，而且使用广泛，免费，跨平台，推荐安装，以它为蓝本学习。
第四，学习下 html ，js，css ，这些是做网页的基础，这些你可以 上 菜鸟教程 等网站学习，当然，这些网站教的比较浅，要想深入研究，最好还是找相关书籍好好学一下。
有了这些知识，你可以尝试做个小系统，比如论坛，图书管理系统什么的。 前端页面 用 html 设计，css美化，js 做数据加载，java 做后台，接收发送数据从（到）前端页面， 操作数据库 ，mysql作为数据库用来存放数据。
然后，你可以研究一些专业性的框架做一些真正的可用的软件开发了，前端比如，angularjs，vue ，react，后端 如 java spring ，hibernate , 这时候，你要做的就是上官网，看帮助文档了。
计算机发展的速度是非常快的，新技术层出不穷，但不管怎样，基础的东西是不会变的，所以，花时间把基础打牢，然后多做项目实践，这样才能成功。
④ 怎么编程序
朋友，你这个玩笑开大了，如果我这里三言两语就可以把你教会，那我一定可以得到诺贝尔了……或者说编程也太容易了。
踏踏实实去学学课程，或者你下教程自学，靠网络问会编程是绝对不现实的！
如果你碰到什么问题，具体的问题问出来，那倒是可以帮你解答。
⑤ 什么是编程如何编写一个程序
设计环境 程序也就是指令的集合，它告诉计算机如何执行特殊的任务。
编写设计环境 程序是一项系统而繁琐的工作，它不仅需要程序设计人员具有一定的功底，更需要有良好的编程习惯和风格。良好的编程习惯和风格不仅可以使程序代码更易于读懂和修改，更重要的是，它可以使程序的结构更加合理，有助于提高程序的执行效率。
对我们要使用程序设计手段去解决的问题进行系统地分析，了解程序是做什么的，要达到一种什么样的效果等。 结构设计：也就是对程序的整体框架进行设计，设计出我们需要使用的模块等等，并画出流程图。
用户界面设计：在此，我们要设计出用于与用户交互的输入输出界面。
代码设计：在这个步骤中，我们要进行代码的编写。
调试：对程序中正在发生或可能发生的各种错误进行处理。
维护：通俗地说，维护就是对程序进行升级，对原有错误进行修改。
⑥ 如何编写程序
第七章 文件类型7.1 文件类型7.1.1 文件类型以前我们把数据放在变量或数组中，它的缺点是不能对数据永久保存，因为关机后内存RAM(随机存储器)中的数据会全部掉失。这一章我们学习把数据或运算最后结果放到文件中，实现永久保存，或方便重复读入使用。Turbo Pascal中引入文件变量这概念，也就是说要对实际的外部文件操作，首先要定义一个文件变量与它联系起来，并要定义这个文件变量的文件类型，文件的类型明确指出联系着的外部文件中数据的存放格式。Turbo Pascal中的文件类型有：类型文件、文本文件(text)和无类型文件(file)。文本文件(text)和无类型文件(file)是系统已定义好的标准文件类型，在写程序时可直接使用其文件类型标识符(即text和file 这两个标准文件类型标识符)。Turbo Pascal中，用assign标准过程来建立文件变量与实际外部文件的联系，对于一个已存在的文件可用reset标准过程或append标准过程打开，用reset打开文件时指针指向第一条数据，而用append打开文件时指针指向最后一条数据的后面，故append适合向文件追加数据用。对于一个不存在的文件可用rewrite标准过程创建新文件并打开。我们对文件处理完后，记住要用close标准过程关闭文件，否则数据有可能仍停留在磁盘缓冲区中，没有被真正写入文件。特别注意的是对于文本文件(text)类型定义的文件，用reset标准过程打开文件时，只能进行读操作，不能写数据到文件中。目前，中学生信息学(计算机)奥林匹克竞赛中，数据的读写主要采用文本文件，故本章只介绍文本文件的使用。7.2 文本文件及其应用7.2.1文本文件所谓文本文件就是指数据按文本文件类型规定的格式存放的文件。Turbo Pascal中，文本文件类型(text)是系统已定义好的标准文件类型，我们编写程序时可直接使用文本文件类型标识符(text)。文本文件是应用最广泛的一种文件，大多数程序的输入和输出都是文本文件。文本文件中的各个分量是字符，它们均是以ASCII码的方式存放的。多个ASCII字符组成一个文本行。行与行之间通过行结束符(CR/LF)来分隔。行结束符由两个特殊的控制字符组成，它们是回车符(ASCII表中表示为CR或#13，码值为13)和换行符(ASCII表中表示为LF或#10，码值为10)，当我们用文本编辑器打开文本文件时行结束符是看不到的，往文件中输出行结束符的方法常见有三种，第一种是：用writeln标准过程输出。第二种用write标准过程输出chr(13)+chr(10)表达式。第三种用write标准过程输出#13#10。行结束符可用标准函数eoln(x) 检测到，其中x为文件变量，当返回结果为true表示行结束。每个文件结束位置都应有一个文件结束符，各种文件编辑器在关闭文件时会自动写入，在程序中可用close标准过程写入，在DOS方式下采用 con [盘符][路径][文件名]命令格式建立时，写入文件结束符的方法是按ctrl+Z 。文件结束符可用标准函数eof(x)检测 ，其中x为文件变量，当返回结果为true表示文件结束。在Turbo Pascal中，计算机中已定义好两个特殊的文件变量，即input和output，它们的文件类型就是文本文件类型（text），input变量的外部联系设备是键盘，output变量的外部联系设备是显示器，即把键盘输入和显示器输出被当作两个文本文件处理。这两个特殊的文本文件在运行程序时，系统会自动打开，在程序结束时，系统又会自动关闭。由于input和output在程序中被频繁使用，所以在使用它们对显示器和键盘操作时，常常将文件变量标识符input和output省去，以前我们写的程序都是这样处理的。例如：eof等价于eof(input);eoln等价于eoln(input);read(a,b,c)等价于read(input,a,b,c);readln(a,b,c)等价于readln(input,a,b,c); readln等价于readln(input)writeln(a,b,c)等价于writeln(output,a,b,c); writeln等价于writeln(output)例7.1体会input，output的说明不省略时的本来真面目。program rzy7_1;var c:integer;begin read(c); writeln(c);end. program rzy7_1;var c:integer; input,output:text;等效程序效begin assign(input,'' )； assign(output,'' ); reset(input); rewrite(output);注意：' '是空字符串，对应键盘或显示器。input和output是系统已定义好的文本文件型文件变量，系统允许省略所有对它们的说明。 read(input,c); writeln(output,c); close(input); close(output);end. 运行程序，输入数据：AB �0�7 CDE �0�7 输出结果：65 66 13 10 67说明：C[1],C[2],C[5]分别存入对应A,B,C字符，而C[3]和C[4]中却保存了行结束符#13和#10。而D和E字符实际上并没有读入。从文本文件中以字符方式读入数据时，经常发生这种情况，这点我们编程时要特别注意! 此例说明了行结束符（CR/LF）的存在。例7.2 体会行结束符的存在。program rzy7_2;var i:integer; c:array[1..5] of char;begin for i:=1 to 5 do read(c[i]); for i:=1 to 5 do write(ord(c[i]),' ');end. 例7.3 对例7.2改进，以字符方式读数但不想把行结束符读入数组的办法是用eoln函数。运行程序，输入数据：AB �0�7 CD�0�7 E F�0�7 输出结果：65 66 67 68 69说明：C[1],C[2],C[3] ,C[4],C[5]分别存入了A,B,C,D,E字符，F字符没有被读入，因这程序只读5个数。本程序实现不读入行结束符的方法是：用eoln函数判断当前位置是否有行结束符，如果有则用readln标准过程掉丢本行还未读入的所有数据。其实readln(x,y)等效于read(x,y);readln;这两句的组合。现在您对read与readln的运用有更深刻体会吗？program rzy7_3;var i:integer; c:array[1..5] of char;begin i:=1; while i<=5 do if eoln then readln else begin read(c[i]); i:=i+1; end; for i:=1 to 5 do write(ord(c[i]),' ');end. 例7.4 试编程把1至100的数写入文件rzy7_4.txt,要求数与数间用空格分隔，每行10个数。说明：(1)outfile为文件变量，定义为文本文件(text)类型，用assign标准过程把outfile文件变量与当前目录的rzy7_4.txt文件联系起来，如果文件放在c:\tp7\program目录中，应改为：assign(outfile,'c:\tp7\program\rzy7_4.txt');(2)rewrite(outfile)告诉系统每次运行程序都要新建文件。(3)write(outfile,i,' ');作用是把i值和一个空格字符写入outfile对应的文件中。(4)writeln(outfile)作用是往outfile对应的文件中写入一个行结束符。(5)close(outfile)作用是关闭文件。program rzy7_4;var outfile:text; i:integer;begin assign(outfile,'rzy7_4.txt'); rewrite(outfile); for i:=1 to 100 do begin write(outfile,i,' '); if (i mod 10)=0 then writeln(outfile); end; close(outfile);end. Turbo Pascal 编辑器也是一个文本文件编辑器，我们可以用这个编辑器打开上面程序生成的数据文件rzy7_4.txt文件，文本文件习惯用扩展名.txt。试用Turbo Pascal编辑器的[File]的[Open]打开放在当前目录中rzy7_4.txt文件，注意要输入文件全名，观察程序生成的数据是否合理。说明：自定义inputfile为文本文件类型的文件变量，和例7.4中的outfile都是自定义的文件变量标识符，自定义的文件变量的起名也应尽量包含一定的实际含义，才能便于记忆，减少错误。例7.5 试编程序从当前目录的数据文件rzy7_4.txt中读入数据，并显示在屏幕中，要求每行示显10个数。program rzy7_5;var x,k:integer; inputfile:text;begin说明：(1)assign(inputfile,'rzy7_4.txt' 作用是把inputfile文件变量与外部文件联系起来。(2)reset(inputfile)作用是打开文件。(3)eof(inputfile)作用是判断当前位置是否文件结束位置。(4)read(inputfile,x)作用是从inputfile指定的文件中读入一个数到x中。(5)write(x,' ')作用是往屏幕中输出数和空格字符。(6)close(inputfile)作用是关闭inputfile联系着的文件。(7)注意：除了对应键盘和屏幕的文件变量(input,output)可省外，其它都不能省。 assign(inputfile,'rzy7_4.txt'); reset(inputfile); k:=0; while not eof(inputfile)and (k<100) do begin read(inputfile,x); write(x,' '); k:=k+1; if (k mod 10)=0 then writeln; end; close(inputfile);end. 如果大家想对标准过程assign、close和函数eoln、eof有更多了解，请阅读Turbo Pascal编辑器中的帮助文件(help)说明。7.2.2 文本文件的写数据应用把数据写入文本文件的方法是很简单的，与由上至下，由左向右写屏幕的方法一样，不同的是要指明文件变量，另外写完所有数据后要记住关闭文件。例7.6 生成文件rzy7_6.txt，要求第一行为总人数，第二行开始为每行记录人的姓名、语文、数学、英语、总分、平均分,数据间要用逗号分隔。样例如下：运行程序输入格式如下：enter peoples number= 3 no:1name=Limingchinese,maths,englist:70 75 60no:2name=Ryuanchinese,maths,englist:80 76 70no:3name=kuyuanchinese,maths,englist:68 76 55试用文本文件编辑器打开rzy7_6.txt内容如下：3Liming,70,75,60,205, 68.3Ryuan,80,76,70,226, 75.3kuyuan,68,76,55,199, 66.3 说明：也可以在DOS方式下执行dos命令：type rzy7_6.txt查看内容。
说明：（1）定义stfile文件变量为文本文件类型。name存放姓名，最长为16位的字符串型，如果用string则字符串长度为255位。c,m,e,t,av分别对应语文，数学，英语，总分，平均分。（2）assign建立了stfile文件变量与外部文件的联系。rewrite(stfile)表示每次总是新建文件。program rzy7_6;var stfile:text; name:string[16]; i,n,c,m,e,t:integer; av:real; begin assign(stfile,'rzy7_6.txt'); rewrite(stfile);说明：(3)write语句中，如果没有指明时stfile的，则输送到屏幕(output)中。(4) writeln(stfile,n);的作用相当于write(stfile,n);writeln(stfile)两句的作用，其中writeln(stfile)实现输出行结束符的作用。 write('enter peoples number='); readln(n); writeln(stfile,n); for i:=1 to n do begin writeln('no:',i); write('name=');readln(name);(5)由于输出数据中要求带逗号作分隔符，所以这里把逗号作为字符输出即可。 write('chinese,maths,english:');readln(c,m,e); t:=c+m+e; av:=t/3; writeln(stfile,name,',',c,',',m,',',e,',',t,',',av:5:1); end; close(stfile);end. 7.2.3文本文件的读数据应用由于Turbo Pascal的read或readln标准过程对读数格式都有严格的要求。即数与数间要求用空格分隔。另外读取时不应出现理解上的错误。如：readln(c,x)，其中c为字符串型，x为数值(实数或整数)型时，输入数据：rzy 25.6 时，计算机会误解为c:='rzy 25.6' 而要求再提供一个数值给x 。或c为string[3]时，提供数据rzy 25.6可以通过，虽然能令c:='rzy'，x:=25.6 但是改为提供数据r 25.6时，会误解为c:='r 2' ，x:=5.6000000000E+00 。因此遇到文件中数值型与字符串型数据混合作为数据行或数据间用非空格字符分隔等格式时，我们只能把整行作为一个字符串读入，然后再用与字符处理相关的标准函数或过程把数据从字符串中分离出来。例7.7：非标准输入格式例子。请先用Pascal编辑器建立下面内容的数据文件，然后运行程序从文件中读入数据并显示在屏幕中。其中数据文件名改为运行程序时提供。rzy7_7.txt文件内容及格式如下：rzy,c112,65,76mxf,g112,85,78huangjian,g212,87,77运行程序如下(假定输出文件为rzy7_7.txt)：enter input filename:rzy7_7.txtrzy c112 65 76mxf g112 85 78huangjian g212 87 77
参考程序如下：program rzy7_7;定义过程procesting专门用于处理一行字符串。从题目知数椐格式为每行有2个字符串和2个整数。故定义st1,st2,x,y分别保存。e用于保存逗号位置。st为作暂存变量用。var infile:text; s,filename:string;procere procesting(s:string); var st1,st2,st:string; x,y,e,code:integer; begin从字符串中分离数据处理：(1)求逗号位置；(2)截取逗号前字符串；(3)从字符串中删去已截取的子字符串及逗号。重复上述过程即可。对于整数部分，把截取或最后剩余的子字符串转换为数值即可，code是规定作为返回是否转换成功的标志。若返回code=0表示转换成功。有关函数使用请查阅帮助说明或书1.2.7节内容。 if s>' ' then begin e:=pos(',',s); st1:=(s,1,e-1); delete(s,1,e); e:=pos(',',s); st2:=(s,1,e-1); delete(s,1,e); e:=pos(',',s); st:=(s,1,e-1); delete(s,1,e); val(st,x,code); val(s,y,code); writeln(st1,' ',st2,' ',x,' ',y); end; end;提供的数据文件可能不存在，怎么办？办法：在reset或rewrite前加入编译开关{$I-},其作用是：令所有接口(I/O)错误不提示也不中断程序执行。试着打开（reset）或建立(rewrite)文件后再把编译开关设回{$I+}。Turbo Pascal已定义好一个不带参数的标准函数ioresult，可返回接口错误情况，其中返回值为0表示成功读写。试查阅帮助说明。本程序把一行作为一个字符串读入后，再对字符串s分解数据。
⑦ 如何编程序
首先，设计算法。然后，写编程大纲，把程序编译出来。最后，优化，调试。
我给你个C++语言编写一个吧？
一个农场有头母牛，现在母牛才一岁，要到四岁才能生小牛，四岁之后，每年生一头小牛。假设每次生的都是母牛，并且也遵守4年才生育并生母牛的原则，并且无死亡，请问n年后共有多少头牛？
#include<iostream>
using namespace std;
void cows(int n){
int one , two ,three ,four ;
one=1;two=three=four=0;
for(int i=1;i<=n;i++){
four=three+four;
three=two;
two=one;
one=four;
}
cout<<"~~~~~~~~~~~~~~~~~~生成报告~~~~~~~~~~~~~~~~~~~~~~\n";
cout<<" "<<n<<"年以后共产生牛牛："<<(one+two+three+four)<<"只\n";
cout<<" 其中有一岁的小牛："<<one<<"只\n";
cout<<" 其中有两岁的小牛："<<two<<"只\n";
cout<<" 其中有三岁的小牛："<<three<<"只\n";
cout<<" 其中有牛牛究极体："<<four<<"只\n";
cout<<"~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n";
}
int main(){for(;;){
cout<<" 牛生牛产业链计划正式启动\n";
cout<<"我们美丽的草原上有一只小母牛（一岁），它自愿的加入了牛牛产业计划。^_^让我们给它一些热烈的掌声，为它加油！\n";
cout<<"你想知道n年以后草原上的牛牛盛况吗？请输入n的值吧：";
int n;
cin>>n;
if(n>57){cout<<"(由于计算机整数上限问题，以及个人水平问题，该程序不能输出过大的n值)敬请原谅^_^\n";continue;}
if(n<0){cout<<"请输入合理的n的值\n";continue;}
cows(n);
cout<<"好一个美丽的大草原啊~~~~~~~~\n\n";
}
return 0;
}
⑧ 怎样编写程序
在这里我们借助的软件是Visual C++6.0。
打开软件，先新建一个工程，在新建一个C++源文件，这些你听起来可能有点陌生，不要担心，你只需要按照下面的图片进行操作就好。
⑨ 初学者怎样学习编程序
微信小程序开发的难易度，和小程序功能的丰富性有关系，功能越多开发越难。
想要快速做出一款小程序，首先要有一个微信官方的开发工具，如果你会编程还好，但是对于没有编程基础的人来说，这个官方工具只能执行最后的发布。
那么自己不会编程，怎么办？可以选择一家靠谱的小程序开发公司来帮你快速完成。注意，选开发公司之前应考虑以下几点：
1、了解自己需要什么样的小程序，根据自己的功能需求寻找合适的。
2、看小程序的功能是否丰富，设计是否合理。是否可以帮助你推广自己的产品。
3，小程序装修是否支持自定义装修。有些小程序装修风格比较单一，只能按照模板装修，相对于自定义拖拽式装修就单调很多。
4、产品是否成熟稳定，有没有经过市场检验，是否在持续升级中。
5、售后服务是否跟得上，任何小程序都需要技术售后支持，如果服务跟不上就会影响你的使用体验。
⑩ 程序是如何编写的
设计环境 程序也就是指令的集合，它告诉计算机如何执行特殊的任务。