pascal 读入一串数字,以句号结束,请统计其中0到9的各个数字的个数
来源:学生作业帮助网 编辑:作业帮 时间:2024/05/27 09:17:27
varx:string;n,i,a1,b1,c1:integer;a,b,c,yingwen,shuzi:setofchar;beginyingwen:=['a'..'z'];shuzi:=['0'.
我想说的是,你的程序用了goto语句后就破坏了程序的协调性,难以对其进行优化,大牛的程序没有goto语句就是因为程序自顶向下的设计方式是最简单的,优化的话最好做个过程,用n个循环嵌套看看也不美观,对吧
programygb;vara[0..1000]ofinteger;i,n,x:integer;beginfori:=0to1000doa[i]:=-1;read(n);fori:=1tondobeg
vara:array[1..10000]ofinteger;n,max,wz,i:longint;beginreadln(n);fori:=1tondobeginread(a[i]);ifmaxa[2
我要爱死你,我一生就爱你一个,爱你是幸福,1=要;一2=爱3=生4=是;时5=我;福6=有7=幸8=不9=就
var n,i,j:longint;begin readln(n); for i:=1 to n&nbs
其实我没编译,但愿能过vari,j,n:longint;beginreadln(n);fori:=1tondobeginforj:=iton-i+1dowrite('');forj:=1toidowr
白色是汽车行驶最低速度,黄色是最高速度
#include#includeintsum[10001]={0};intcount(intn){\x09intret=0;\x09while(n)\x09{\x09\x09if(n%10==2)re
Aseriesofdigitswillbedisplayedonthescreen.
vars:string;i,j,m1,m2:integer;beginreadln(s);m2:=0;m1:=0;fori:=1tolength(s)dobeginifs[i]=''thenbegin
vars:string;a:array[0..9]oflongint;i:longint;beginreadln(s);fillchar(a,sizeof(a),0);fori:=1tolength(
varp,a,b,c,t,n:longint;bl:boolean;beginrepeatbl:=true;writeln('输入p,最后一位为1或3或7或9:');readln(p);if(pmod
在易经里组成一个创意线和人缘线可能你接下去比较有好的想法或者将遇到好人还有就是日有所思、夜有所梦,你看下数字组合下,是不是某些的人的生日或者什么重要日子!
我记得我是用枚举的……用7个for循环详情见图数字表示枚举或者能求出的顺序黑色枚举 黄色可以求出来还要判断该数字有没有出现程序就不给了 留给LZ去完成望采纳
程序很简单,仔细看吧:vara:array['0'..'9']oflongint;b:array['0'..'9']ofchar;c,i,j,tt:char;t:longint;begin//初始化f
stringtmp="123456";//传入数字string[]arr=tmp.Split('');//用空格把字符串分割成字符串数组arr[0],arr[1]//操作数组就可以了再问:如果是连续空
varn:longint;p:array[1..1000]ofboolean;f:array[1..1000]oflongint;proceduredfs(i:longint);vara:longin
programdaihuan;vars,e,tmp:string;i,j,k,l:integer;t:char;procedureswap(t:char);begincasetof'a':tm
vars:string;i,j:integer;beginreadln(s);i:=1;j:=pos('#',s)-1;while(i=jthenwriteln('yes')elsewriteln('