Форум: "Потрепаться";
Текущий архив: 2003.05.15;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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]

Может кто

---

← →
wicked   (2003-04-24 21:27) [2]

> 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;
типа так........

---

Страницы: 1 вся ветка

Форум: "Потрепаться";
Текущий архив: 2003.05.15;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.007 c