首页 > 代码库 > 打印正方形

打印正方形

题目:

    打印一个由16个*组成的正方形。

代码:

 1 program shen8;
 2 var
 3   i:integer;
 4 
 5 BEGIN
 6   for i := 1 to 4 do
 7   begin
 8      writeln(****)
 9   end;
10 
11 END.

 

加强训练:打印数字1~80,每8个数字一行,共打印10行,打印时每个数字占3个格的宽度。

 1 program shen7;
 2 Var
 3   i:integer;
 4 BEGIN
 5   for i:=1 to 80 do
 6   begin
 7     if i mod 8=0 then
 8       writeln(i:3)
 9     else
10       write(i:3);
11   end;
12 END.

 

加强训练:打印一个由1~9共9个数字组成的正方形。

 1 program shen9;
 2 var
 3   i:integer;
 4 
 5 BEGIN
 6   for i := 1 to 9 do
 7   begin
 8     if i mod 3=0 then
 9       writeln(i)
10     else
11       write(i);
12 
13   end;
14 END.

 

加强训练:循环16次,打印一个由16个*组成的正方形。

 1 program shen10;
 2 var
 3   i:integer;
 4 
 5 BEGIN
 6   for i := 1 to 16 do
 7   begin
 8     if i mod 4=0 then
 9       writeln(*)
10     else
11       write(*);
12   end;
13 END.

 

打印正方形