Помогите перевести на Паскаль!

← →
SergeySH (2003-04-24 17:46) [0]

void main()
{
// FILE *f=fopen("input.txt","rt");
#define f stdin
int n,i;
float a[3003],c[3003];

fscanf(f,"%d",&n);
memset(a,0,sizeof(a));
memset(c,0,sizeof(c));
fscanf(f,"%f %f",&a[0],&a[n+1]);
for (i=1;i<=n;i++)
fscanf(f,"%f",&c[i]);
fclose(f);
for (int k=n;k>=1;k--)
{
a[k]=a[0];
for (i=k;i>=1;i--)
a[k]-=i*2*c[i];
a[k]+=k*a[k+1];
a[k]/=k+1;
};
printf("%0.2f",a[1]);
}

← →
SergeySH (2003-04-24 21:23) [1]

Может кто

> for (int k=n;k>=1;k--)
> {
> a[k]=a[0];
> for (i=k;i>=1;i--)
> a[k]-=i*2*c[i];
> a[k]+=k*a[k+1];
> a[k]/=k+1;
> };

for k := n downto 1 do begin a[k] := a[0]; for i := k downto 1 do a[k] := a[k] - i * 2 * c[i]; a[k] := a[k] + k * a[k+1]; a[k] := a[k] div (k+1); end;
типа так........

Помогите перевести на Паскаль! Найти похожие ветки