您好,今天乐乐来为大家解答以上的问题。pascal教程相信很多小伙伴还不知道,现在让我们一起来看看吧！

pascal教程 pascal编程pascal教程 pascal编程


pascal教程 pascal编程


1、....刚学么别太心急要从最基本的学起啊行是程序名可有可无第二行定义at两个变量都是整数~第四行a:=1是赋值语句这个非常基础的啊``就是让A=1(如果直接写A=1的话是判断"A是否等于1"而不是赋值)t在这个程序里是代表REPEAT~UNTIL那部分的语句执行的次数每执行一次t就+1a就是代表t个1992相乘的两位啊因为只要考虑两位所以只要92就够了(而不需要1992如果你改成1992也行~)然后a92的结果也只需要取两位就好了所以mod100(除以100取余数就是取两位的意思)输出A就好了还有不懂的再补充吧不懂你的数学水平到啥程度能否理解余数之类的东西..(比小学学的更深)还有如果你刚学的话在网上搜一些初级教程从基本学期不要心急啊~尤其是你不懂得赋值语句```明显是没去打基础的切忌心急啊~1.programsd;vara:array[1..5]ofinteger;n,i:longint;functiongongb(num1:integer;num2:integer):integer;varj:longint;begrj:=num1tonum1num2doif(jmodnum1=0)and(jmodnum2=0)thenbegingongb:=j;exit;end;end;beginn:=1;fori:=1to5dobeginread(a[i]);n:=gongb(a[i],n);end;wrin(n);end.2.programsd;vari,p,q:integer;functionpou(a:integer):boolean;varj,n:integer;beginn:=0;forj:=1toadoifamodj=0thenn:=n+1;ifn=2thenpou:=trueelsepou:=false;end;begri:=6to100doifimod2=0thenbeginp:=1;repeatp:=p+1;q:=i-p;until(pou(p))and(pou(q));wrin(i,'=',p,'+',q);end;end.3.(1)programsd;vari,j:integer;functionpan(a:integer):boolean;varm,n:integer;beginm:=0;forn:=1toadoifamodn=0thenm:=m+1;ifm=2thenpan:=trueelsepan:=false;end;begri:=10to99dobeginj:=(imod10)10+idiv10;if(pan(i))and(pan(j))thenwrin(i);end;end.3.(2)programsd;vari:array[1..10]oflongint;j:integer;he:boolean;functionphe(a:longint):boolean;varm,n:longint;beginn:=0;form:=1toadoifamodm=0thenn:=n+1;ifn>2thenphe:=trueelsephe:=false;end;begrj:=1to10doi[j]:=j-1;repeatforj:=1to10doi[j]:=i[j]+1;he:=true;forj:=1to10dohe:=heandphe(i[j]);untilhe;forj:=1to10dowrin(i[j]);end.4.programsd;varn,j:integer;procedurewrs(a:integer);vark:integer;beginwrite(a,'=');fork:=1toadoifk=1thenwrite(a)elsewrite('+',a);wrin;end;beginreadln(n);forj:=1tondowrs(j);end.第5不会6.programasd;vari:integer;functionch(a:integer):boolean;vars,m:string;j,n:integer;beginn:=0;s:='';str(a,m);forj:=3downto1dos:=s+m[j];ifs=mthench:=trueelsech:=false;forj:=1toadoifamodj=0thenn:=n+1;ch:=chand(n=2);end;begri:=100to999doifch(i)thenwrin(i);end.7.programfb;vara:array[1..30]oflongint;i:integer;begina[1]:=0;a[2]:=1;fori:=3to30doa[i]:=a[i-1]+a[i-2];fori:=1to30dobeginwrite(a[i],'');ifimod5=0thenwrin;end;end.第二题typerec=recordjia,jian,cheng,chu:integer;end;var a:array[1..9] of rec;i,j:integer;begr i:=1 to 9 do beginj:=i4;if (j-4>=10) and (j4>=10) and(j4jia:=j-4;jian:=j+4;cheng:=i;chu:=j4;end;end;for i:=1 to 9 do with a[i] do if jia<>0 then wrin(jia,' ',jian,' ',cheng,' ',chu);end.第三题typerec=recordn:integer;r:real;end;var a:array[1..9] of rec;i,j,t1:integer;t2:real;begr i:=1 to 3 dobegr j:=1 to 3 doread(a[(i-1)3+j].n,a[(i-1)3+j].r);readln;end;for i:=1 to 8 dofor j:=i to 9 doif a[i].rt1:=a[i].n;a[i].n:=a[j].n;a[j].n:=t1;end;wrin(' M N S');for i:=1 to 9 do wrin(i,' ',a[i].n,' ',a[i].r:0:1);end.第三题做别字N多 看不懂```form:=2tondobeginx:=x+w[f,1];y:=y+w[f,2];end;这里因为在循环的步骤中并没有提及循环变量m，因此m应该表示循环步骤进行的次数（即进行(n-2+1)次），w在这里应该是一个二维数组，x和y都是累加器，而f仅仅充当下标。

2、因为本人时间有限，所以我用10分钟帮你解决了D1个问题。

3、programstat;varch:char;i:longint;fin,fout:text;begini:=0;assign(fin,'stat.in');reset(fin);assign(fout,'stat.out');rewrite(fout);whilenot(eof(fin))dobeginread(fin,ch);ifch='1'theni:=i+1;end;wrin(fout,i);close(fin);close(fout);end.我的邮箱：你这个程序没给完整，应该W是个2维数组，循环中x的值循环一次加w[f,1]，y的值循环一次加w[f,2]，w[f,1];w[f,2];这个里面放的是一个数值。

4、(1)ifamod2=0thenwrite('no')elsewrite('yes');(2)ifa>bthenwrite(a)elsewrite(b);第三题用Ord把字符变为数字(4)read(a);read(b);ifa>bthenbeginx:=a;y:=bendelsebeginx:=b;y:=aend;(5)if((ymod4=0)and(ymod100<>0))or(ymod400=0)thenwrite('yes')elsewrite('no');我是没做这个叫古韵的题布和刺绣都占空间方法:一匹体积5+一匹体积6体积5的布上=5个刺绣=55=25（刺绣所占体积）美观度：20015=10005体积6的布上=6个刺绣=46=24同上美观度:746=444总美观度:10005+444=10449总体积5+6+25+24=60random是产生0到1的数,再乘以900,trunc是取整,+100就不用说了吧random(10)或是random(9)我不用PASCAL很久,你试试吧!!!你的程序很不完整……总的说就是x:=X(N-2)+x;y:=y(n-2)+y;有没有完整的，这样好说……。

本文到这结束，希望上面文章对大家有所帮助。