打印正方形

Posted 2020-08-21 橙煦猿

题目：

    打印一个由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.