var i,j:integer; begin for i:=1 to 5 do begin for j:=1 to i do write('*'); writeln; end; end.

相关推荐

• 1.He became a d_________,he lost his hearing.2.These are telephone numbers ____________(记下来)3.How do we _______(在生活中成功)4.I think you made a mistake in _____(pronounce)5.用方框中单词的适当形式填空,使短文完整safety; keep by,accident; fule;talk; funny; you;finger;injure;never短文Before you begin to cook,it's a good ideas to learn a few ______ of the kitchen.It's easy to get _______ in the kitchen if you're not careful and a sut or burn will put an end to your ______ cooking
• 程序段如下：FOR i:=1 TO 5 DO FOR J:=2 TO i DO WRITELN('*'):输出的 *的个数是多少?
• for I:=1 to 9 do begin for j:=1 to 9 do begin write(j:1,’*’,i:1,’=’,I*j:2); end; writeln; end;
• program Noname0; const n=7; var a:array[1..n] of integer; i,j,k,t:integer; begin write('ggg'); for
• for i:=1 to 11 do write(a[i]:4)； writeln； end.
• var i,j:integer; begin for i:=1 to 5 do begin for j:=1 to i do write('*'); writeln; end; end.
• 根据句意和已给出的首字母补全单词.1、I'm the first one to take a s( ).2、Before I go to bed,I brush my t( ).3、When do you u( ) eat dinner?4、There are twenty-four h( ) in a day.5、Don't talk,please l( ) to the teacher carefully.6、He often takes the n( ) 17 bus to go to work.7、We're new here,so we have to stay in a h( ).8、Kate eats her b( ) at home on weekends.9、My father finds a new j( ) and he will go to work next week.10、I often begin to do my homework at eight o( ).
• 在程序中定义一函数digit(n,k),它能分离出整数n从右边数第k个数字 如 digit(49687,5)=4 digit(2076,5)=0我做的.输入（49687,5）后、总是输出0 为什么阿.var n1,k1:integer;function digit(n,k:integer):longint;var i,j:integer;begini:=1;for j:=1 to k do i:=i*10;digit:=trunc(n/i);end;beginread(n1,k1);write(digit(n1,k1));end.
• fortran题矩阵program ddcparameter(M=5,N=5)integer i,jreal:A(M,N)A=Reshape((/12,40,20,18,11,25,17,50,30,45,24,16,14,54,15,48,20,10,38,28,52,19,28,35,42/),(/5,5/))print*,"原矩阵："write(*,100) ((A(i,j),i=1,M),j=1,N)100 FORMAT((F5.1,2X))end
• 椭圆M：x²/a²＋y²/b²＝1(a>b>0)的左、右焦点分别为F1、F2,P为椭圆M上任一点,且1PF·2PF的最大值的取值范围是[c2,3c2],其中c＝√（a2－b2）,则椭圆M的离心率e的取
• 怎样计算呼吸速率