UC知道如何用pascal语言用*做出5*5的正方形
来源：百度知道 编辑：UC知道 时间：2024/09/21 00:48:19
帮帮忙啊！！！做出的效果（有条件的帮忙看看这几个其他的）：
1.* * * * *
* * * * *
* * * * *
* * * * *
* * * * *
2. *
* *
* * *
* * * *
1.* * * * *
* * * * *
* * * * *
* * * * *
* * * * *
2. *
* *
* * *
* * * *
一.
容易哦！楼主！！我跟你提高档次，不是5*5的，是n*n的，行不？
var a,b,c:longint;
begin
read(a);
for b:=1 to a do
for c:=1 to a do
begin
write('*',' ');
if c<>1 then
if a mod c=0 then
writeln;
end;
end.
二.好经典啊！这个也改成n的行不？爽些
var a,b,c:longint;
begin
read(a);
for b:=1 to a do
begin
write(' ':41-b);
for c:=1 to b-1 do write(' ','*');
writeln;
end;
end.
经过自己调试证明百分之百对哦
1
var
i:Integer;
begin
For i:=1 To 5 do
WriteLn('*****')
end.
2
begin
WriteLn(' * ')
WriteLn(' * * ')
WriteLn('* * *')
WriteLn('*****')
end.
-------------------------
额……你问这么简单的干啥