中科新闻网中央档案馆 参观:pascal语言程序设计的问题
来源：百度文库 编辑：中科新闻网 时间：2024/04/29 22:01:25
要在屏幕上显示
*
***
*****
*******
*********
*******
*****
***
*
该怎么编呢?
PS:我是刚刚了解到pascal,老师留了这么一个题目,不会做,大家都是高手,告诉小妹一下,不胜感激~
*
***
*****
*******
*********
*******
*****
***
*
该怎么编呢?
PS:我是刚刚了解到pascal,老师留了这么一个题目,不会做,大家都是高手,告诉小妹一下,不胜感激~
program DrawStars(input, output);
var
m, n, i: Integer;
begin
for n := 1 to 9 do
begin
m := Abs(5-n); { 计算空格数 }
for i := 1 to m do Write(' '); { 打印空格 }
for i := 1 to 2*(5-m)-1 do Write('*'); { 打印星号, 星号个数为 2*(5-m)-1 }
Writeln;
end;
end.
刚刚编译试了一下, 没问题