all tasks

Task/Sierpinski-carpet/Pascal/sierpinski-carpet.pascal

@@ -0,0 +1,51 @@
+Program SierpinskiCarpet;
+
+uses
+  Math;
+
+function In_carpet(a, b: longint): boolean;
+
+  var
+    x, y: longint;
+
+  begin
+    x := a;
+    y := b;
+    while true do
+    begin
+      if (x = 0) or (y = 0) then
+      begin
+        In_carpet := true;
+        break;
+      end
+      else
+        if ( (x mod 3) = 1 ) and ((y mod 3) = 1) then
+        begin
+          In_carpet := false;
+          break;
+        end;
+      x := x div 3;
+      y := y div 3;
+    end;
+  end;
+
+procedure Carpet(n: integer);
+
+  var
+    i, j: longint;
+
+  begin
+    for i := 0 to 3**n - 1 do
+    begin
+      for j := 0 to 3**n - 1 do
+        if In_carpet(i, j) then
+          write('*')
+        else
+          write(' ');
+      writeln;
+    end;
+  end;
+
+begin
+  Carpet(3);
+end.