tasks a-s

Task/Pascals-triangle/PowerShell/pascals-triangle.psh

@@ -0,0 +1,64 @@
+$Infinity = 1
+$NewNumbers = $null
+$Numbers = $null
+$Result = $null
+$Number = $null
+$Power = $args[0]
+
+Write-Host $Power
+
+For(
+   $i=0;
+   $i -lt $Infinity;
+   $i++
+   )
+   {
+    $Numbers = New-Object Object[] 1
+    $Numbers[0] = $Power
+   For(
+      $k=0;
+      $k -lt $NewNumbers.Length;
+      $k++
+      )
+      {
+       $Numbers = $Numbers + $NewNumbers[$k]
+      }
+   If(
+     $i -eq 0
+     )
+     {
+      $Numbers = $Numbers + $Power
+     }
+    $NewNumbers = New-Object Object[] 0
+   Try
+   {
+   For(
+      $j=0;
+      $j -lt $Numbers.Length;
+      $j++
+      )
+      {
+       $Result = $Numbers[$j] + $Numbers[$j+1]
+       $NewNumbers = $NewNumbers + $Result
+      }
+   }
+   Catch [System.Management.Automation.RuntimeException]
+   {
+    Write-Warning "Value was too large for a Decimal. Script aborted."
+    Break;
+   }
+   Foreach(
+          $Number in $Numbers
+          )
+          {
+          If(
+            $Number.ToString() -eq "+unendlich"
+            )
+            {
+             Write-Warning "Value was too large for a Decimal. Script aborted."
+             Exit
+            }
+          }
+    Write-Host $Numbers
+    $Infinity++
+   }