Question

pascal金字塔

编写一个程序，输入两个整数N和K（N，K<=10)，输出如下所示的K座N行星号组成的金字塔图形。例如N=5，K=3，图形如样例所示。
Input
只有一行，包含两个整数N，K。
Output
输出如样例所示的K座N行星号组成的金字塔。
Sample Input
5 3
Sample Output
* * *
*** *** ***
***** ***** *****
******* ******* *******
***************************
Hint
以上图形是一个n行(2*n-1)列的矩形字符矩阵，空白处为空格。
pascal程序

Answer 1

var i,j,n,m:longint;
procedure print(c:char;a:integer);
var i:longint;
begin
for i:=1 to a do
write(c);
end;
begin
readln(n,m);
for i:=1 to n do begin
print(' ',n-i);
print('*',2*i-1);
for j:=2 to m do begin
print(' ',2*n-2*i);
print('*',2*i-1);
end;
writeln;
end;
end.