Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.05.15;
Скачать: CL | DM;

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.018 c
9-46557
Fog
2002-12-09 12:50
2003.05.15
GlUt


1-46769
Шишкин Илья
2003-05-01 12:28
2003.05.15
Работа с маской


7-47014
o_viz2000
2003-03-19 12:42
2003.05.15
Как открыть в Delphi compound файл?


3-46669
vladimirS
2003-04-25 08:36
2003.05.15
как лучше установить права пользователям?


14-46933
Lola
2003-04-25 15:11
2003.05.15
А где ветка Думкина про детей?