哪们高手来帮忙编一下这个程序？十分感谢！！！！

C程序:
///////////////////////////////
#include <stdio.h>
#include <stdlib.h>
int main()
{
int k;
float s=1;
for (k=1;k<=10;k++) s*=(4*(float)k*k)/(4*k*k-1) ;
printf("%f\n",s);
system("pause");
}
//////////////////////////////

PASCAL程序:

program Noname6;
uses crt;
var k:integer;
s:real;
begin
s:=1;
for k:=1 to 10 do s:=s*(4*k*k)/(4*k*k-1);
WriteLn(s);
Readln;
end.

BASIC 程序：

Dim k As Integer
Dim s As Single
s = 1
For k = 1 To 10
s = s * (4 * k * k) / (4 * k * k - 1)
Next k
Print s
end

gz

#include <stdio.h>

double S(int k)
{
double sum = 1.0;
int i = 1;
double temp = 0.0;
for (; i <= k; i++)
{
temp = （double) ((i * i) << 2); //减少乘法次数
sum *= (temp / (temp -