Главная страница
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.021 c
6-46875
LORD
2003-03-17 18:07
2003.05.15
Номер сокета


1-46700
race1
2003-04-26 12:37
2003.05.15
tvirtualstringtree


3-46614
ATK
2003-04-24 07:20
2003.05.15
OleContainer???


1-46820
region
2003-05-02 21:59
2003.05.15
TListBox


7-47024
Leks
2003-03-20 18:36
2003.05.15
Как запустить прогу с правами администратора