pascal打印数字三角

vark,i,j,l:longint;a:array[1..7,1..7]oflongint;begin{二维数组初始化为12345678910.}k:=0;fori:=1to7doforj:=1to

我想说的是,你的程序用了goto语句后就破坏了程序的协调性,难以对其进行优化,大牛的程序没有goto语句就是因为程序自顶向下的设计方式是最简单的,优化的话最好做个过程,用n个循环嵌套看看也不美观,对吧

给你举个例子：writeln('@@@@@@');再问：输入n值来控制图案的规模，下列图案均以n=3为例，你也没有n呀再答：fori:=1tondobeginfoej:=1toidowriet('*'

vari,j,n:integer;beginreadln(n);fori:=1tondobeginforj:=1tondobeginif((i=1)or(i=n)or(j=1)or(j=n)or(j=

programygb;vara[0..1000]ofinteger;i,n,x:integer;beginfori:=0to1000doa[i]:=-1;read(n);fori:=1tondobeg

用的是循环语句,每次打出一行,同时每执行一次循环,前面的空格数加一.再问：能具体点吗?再答：讲主要部分：beginreadln(a);读取每一行*的个数readln(b);读取行数，同时注意，第一行前

programhello;vara,b,c,d,e:integer;beginwriteln('pleaseinputanumberbetween1and9');readln(a);forb:=1to

varn,i,j:integer;beginreadln(n);//n为行数fori:=1tondobeginwrite('':n-i);forj:=1toidowrite(j);forj:=i-1d

直接给你写程序吧,不懂再问我varn,i,j,k:integer;beginreadln(n);fori:=1tondo//控制行数beginforj:=1ton-ido//控制空格数write(''

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

vari,j,k,x,y,z,n,l:longint;beginfori:=1to4doforj:=1to4dofork:=1to4doforl:=1to4doif(ij)and(ik)and(il)

#include#includeintsum[10001]={0};intcount(intn){\x09intret=0;\x09while(n)\x09{\x09\x09if(n%10==2)re

vara:array[1..100,1..100]oflongint;n,x,y,c,i,j:longint;functionmin(x,y:longint):longint;beginifx

varp,a,b,c,t,n:longint;bl:boolean;beginrepeatbl:=true;writeln('输入p,最后一位为1或3或7或9:');readln(p);if(pmod

我记得我是用枚举的……用7个for循环详情见图数字表示枚举或者能求出的顺序黑色枚举 黄色可以求出来还要判断该数字有没有出现程序就不给了 留给LZ去完成望采纳

这是螺旋方阵啊,只有5阶,这里有个可以n阶的程序,没有过多解释,不过是方向数组,希望楼主能看懂：constdx:array[0..3]oflongint=(0,1,0,-1);dy:array[0..

vari,j:integer;s:char;begins:='a';fori:=1to26dobeginforj:=1toidowrite(s);writeln;s:=chr(ord(s)+1);en

varn,i,j:integer;s:string;beginreadln(n);forn:=1tondobeginstr(n,s);i:=1;j:=length(s);while(i=jthenwr

varn:longint;p:array[1..1000]ofboolean;f:array[1..1000]oflongint;proceduredfs(i:longint);vara:longin