作业帮.用FREE PASCAL 编程序打印出下列平行四边形图案
来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/05/16 00:47:54
.用FREE PASCAL 编程序打印出下列平行四边形图案
我知道网上有答案,但是看不懂,
能具体点么?我智商比较低.
我知道网上有答案,但是看不懂,
能具体点么?我智商比较低.
用的是循环语句,每次打出一行,同时每执行一次循环,前面的空格数加一.
再问： 能具体点吗?
再答： 讲主要部分： begin readln(a); 读取每一行*的个数 readln(b); 读取行数，同时注意，第一行前空格个数等于总行数减一 for i:=1 to b do 依次画b行 begin for j:=1 to b-i do write(' ');画本行前的空格，注意每一行的空格都会减少1 for j:=1 to a do write('*');画本行的* writeln; end; end.
再问： 能具体点吗?
再答： 讲主要部分： begin readln(a); 读取每一行*的个数 readln(b); 读取行数，同时注意，第一行前空格个数等于总行数减一 for i:=1 to b do 依次画b行 begin for j:=1 to b-i do write(' ');画本行前的空格，注意每一行的空格都会减少1 for j:=1 to a do write('*');画本行的* writeln; end; end.