主题：有道很简单的题不会
johnsage
[专家分：10] 发布于 2006-06-29 21:13:00
打印N行等腰三角形,下图N=5：
*
***
*****
*******
*********
以下程序采用双重循环，第一重控制行数，第二重控制每行*的个数。
Var N,I,J:Integer;
Begin
Readln(N);
For I:=1 To N Do
Begin
Write('':N+1-i);
For J:=1 To ____________ Do Write('*');
Writeln;
End;
End.
填空题
回复列表 （共13个回复）
沙发
key2hk [专家分：30] 发布于 2006-06-29 21:16:00
2*N-1
板凳
johnsage [专家分：10] 发布于 2006-06-29 21:24:00
不行啊
3 楼
key2hk [专家分：30] 发布于 2006-06-29 21:31:00
sori..it should be 2*I -1
4 楼
johnsage [专家分：10] 发布于 2006-06-29 21:36:00
呵呵你还是错了
不过我找到了正确答案：是2*i-2
+30分多谢你
5 楼
key2hk [专家分：30] 发布于 2006-06-29 21:39:00
2*I-2 will become 0 when n=1..
the for-to-do will not function wor
6 楼
johnsage [专家分：10] 发布于 2006-06-29 21:42:00
N行等腰三角形
N应该>1
7 楼
johnsage [专家分：10] 发布于 2006-06-29 21:43:00
三、编写程序：输出N行的倒直角三角形。
样例：
[输入]
4
[输出]
****
***
**
*
呵呵 我输出的三角形直角是在左上方 该怎么改？
8 楼
key2hk [专家分：30] 发布于 2006-06-29 21:45:00
for i:= 1 to n do
begin
write('xxxxx',xx);
for j:= 1 to 2*I -2 do ......
^here when I=1 it will not write* since 2*1-2=0<1
9 楼
key2hk [专家分：30] 发布于 2006-06-29 21:50:00
[quote]三、编写程序：输出N行的倒直角三角形。
样例：
[输入]
4
[输出]
****
***
**
*
呵呵 我输出的三角形直角是在左上方 该怎么改？
[/quote]
for downto to that's ok la
10 楼
johnsage [专家分：10] 发布于 2006-06-29 21:54:00
I have written program
var
a,i,k,j:integer;
begin
read(a);
for i:=a downto 1 do
begin
for j:=i downto 1 do write('*');
writeln;
end;
end.
but it output is
****
***
**
*
我来回复
您所在位置：