Question

用pascal打印“*”字三角形。

打印“*”字三角形：从键盘输入一个自然数N（1≤N≤9），根据N的值，打印输出对应的“*”字三角形，例如： N = 4 时

Answer 1

program hello;
var a,b,c,d,e:integer;
begin
writeln('please input a number between 1 and 9');
readln(a);
for b:= 1 to a do
begin
for e:=1 to a-b do
begin
write(' ');
end;
for c:=1 to 2*b-1 do
begin
write('*');
end;
write(' ');
for d:=1 to 2*a+1-2*b do
begin
write('*');
end;
writeln;
end;
readln;
end.
呵呵，我是用的TP编译的，你可以放到txt文档里，再把拓展名改为pas用。要不就用free pascal直接从windows里面复制过去。我都试过了，应该是没有问题的。希望你能理解。
PS。pascal语言有点老了，建议该学Cpp吧。

Answer 2

自己想

追问

帮忙吧，有悬赏的呀！

追答

去死吧