作业帮pascal打印下列图形
来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/11/08 14:56:17
pascal打印下列图形
&
& &
& & &
& & &
& & &
& & &
*
* * *
* * * * *
# @ *
# # @ @ **
# # # @ @ @ ***
这是4个图形
输入n值来控制图案的规模,下列图案均以n=3为例
&
& &
& & &
& & &
& & &
& & &
*
* * *
* * * * *
# @ *
# # @ @ **
# # # @ @ @ ***
这是4个图形
输入n值来控制图案的规模,下列图案均以n=3为例
给你举个例子：
writeln(' @@@@@@ ');
再问： 输入n值来控制图案的规模，下列图案均以n=3为例，你也没有n呀
再答： for i:=1 to n do begin foe j:=1to i do wriet('*'); writeln; end; 折磨简单的循环= = 你刚学吧
再问： foe是啥玩意，咋没前缀？都写上，包括program
再答： 呃。。。不好意思键盘小= = 打错了= = 应该是for
再问： 我q845967567 你家我把 这上头不方便
再答： program abc; var n,i,j:longint; begin readln(n); for i:=1 to n do begin for j:=1 to i do write('*'); writeln; end; end. ok了
再问： 加我呀
再答： 加了
writeln(' @@@@@@ ');
再问： 输入n值来控制图案的规模，下列图案均以n=3为例，你也没有n呀
再答： for i:=1 to n do begin foe j:=1to i do wriet('*'); writeln; end; 折磨简单的循环= = 你刚学吧
再问： foe是啥玩意，咋没前缀？都写上，包括program
再答： 呃。。。不好意思键盘小= = 打错了= = 应该是for
再问： 我q845967567 你家我把 这上头不方便
再答： program abc; var n,i,j:longint; begin readln(n); for i:=1 to n do begin for j:=1 to i do write('*'); writeln; end; end. ok了
再问： 加我呀
再答： 加了