Data commit

Task/Sylvesters-sequence/Verilog/sylvesters-sequence.v

@@ -0,0 +1,23 @@
+module main;
+  integer i;
+  real suma, num;
+
+  initial begin
+    $display("10 primeros términos de la sucesión de sylvester:");
+    $display("");
+
+    suma = 0;
+    num = 0;
+    for(i=1; i<=10; i=i+1) begin
+        if (i==1) num = 2;
+        else      num = num * num - num + 1;
+
+        $display(i, ": ", num);
+        suma = suma + 1 / num;
+    end
+
+    $display("");
+    $display("suma de sus recíprocos: ", suma);
+    $finish ;
+  end
+endmodule