Four sides of square: Difference between revisions
Content added Content deleted
No edit summary |
|||
Line 517: | Line 517: | ||
1 1 1 1 1 1 1 1 1 |
1 1 1 1 1 1 1 1 1 |
||
</pre> |
</pre> |
||
=={{header|Delphi}}== |
|||
{{works with|Delphi|6.0}} |
|||
{{libheader|Classes,SysUtils,StdCtrls}} |
|||
<syntaxhighlight lang="Delphi"> |
|||
procedure FillSquare(Memo: TMemo; Size: integer); |
|||
var X,Y: integer; |
|||
var S: string; |
|||
begin |
|||
S:=''; |
|||
for Y:=1 to Size do |
|||
begin |
|||
for X:=1 to Size do |
|||
begin |
|||
if (X=1) or (X=Size) or |
|||
(Y=1) or (Y=Size) then S:=S+' 1' |
|||
else S:=S+' 0'; |
|||
end; |
|||
S:=S+#$0D#$0A; |
|||
end; |
|||
Memo.Lines.Add(S); |
|||
end; |
|||
procedure ShowFillSquare(Memo: TMemo); |
|||
begin |
|||
FillSquare(Memo, 6); |
|||
FillSquare(Memo, 7); |
|||
end; |
|||
</syntaxhighlight> |
|||
{{out}} |
|||
<pre> |
|||
1 1 1 1 1 1 |
|||
1 0 0 0 0 1 |
|||
1 0 0 0 0 1 |
|||
1 0 0 0 0 1 |
|||
1 0 0 0 0 1 |
|||
1 1 1 1 1 1 |
|||
1 1 1 1 1 1 1 |
|||
1 0 0 0 0 0 1 |
|||
1 0 0 0 0 0 1 |
|||
1 0 0 0 0 0 1 |
|||
1 0 0 0 0 0 1 |
|||
1 0 0 0 0 0 1 |
|||
1 1 1 1 1 1 1 |
|||
</pre> |
|||
=={{header|F_Sharp|F#}}== |
=={{header|F_Sharp|F#}}== |