一道Turbo Pascal 7.0计算机编程问题

来源：百度知道编辑：UC知道时间：2024/05/20 12:11:58

编写一个程序，在屏幕上打印一个图案
随便什么图案都行
不用太复杂的，什么正方形，长方形也行

program jj;
var
a,b:char;
begin
for a:='A' to 'Z' do
begin
for b:='Z' downto 'A' do
write(a);
writeln;
end;
readln;
end.

什么图案，
有规律用循环，没的话。。。
writeln('');
writeln('');
.......

你把图片发过来我帮你编写

var
i:integer;
begin
write('******');
for i:=1 to 4 do
writeln('*':1);
writeln('*':7);
writeln('******');
end.

输出是：
******
* *
* *
******