23 lines
451 B
Verilog
23 lines
451 B
Verilog
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
|