Форум программистов, компьютерный форум CyberForum.ru

Вычисление суммы ряда csc(x) - C++

Восстановить пароль Регистрация
 
system_error
Сообщений: n/a
22.12.2010, 12:14     Вычисление суммы ряда csc(x) #1
Здравствуйте! Помогите, пожалуйста, исправить ошибки в программе. Срочно!
Заранее спасибо.
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
//---------------------------------------------------------------------------
 
#include <vcl.h>
#include <math.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
double b[]={1./6, 1./30, 1./42, 1./30, 5./66, 691./2730, 7./6, 3617./510,
43867./798, 174611./330, 854513./138};//массив чисел Бернулли
int fact(int n);
double step(double w, int n);
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button3Click(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Edit1->Clear();
Edit2->Clear();
Edit3->Clear();
Edit3->Clear();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key)
{
if(!((Key>= '0' && Key <= '9') || Key == VK_BACK || Key == ',' || Key == '-'))
 Key=0;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit2KeyPress(TObject *Sender, char &Key)
{
Key=0;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit3KeyPress(TObject *Sender, char &Key)
{
Key=0;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit4KeyPress(TObject *Sender, char &Key)
{
Key=0;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
double razn,x,y,t,s, r;
int k,l;
int a[]={1,3,5,7,9,11,13,15,17,19,21};
x=StrToFloat(Edit1->Text);
if((x<=-1)||(x==0)||(x>=1))
 {
  ShowMessage("Неверное значение x");
  return;
 }
else
 {
 y=1./sin(x);//расчет csc(х) по формуле
 Edit3->Text=FloatToStr(y);
for(k=0;k<11;k++)
 {
 double z=2*(step(2,(a[k]-1))-1); //расчет csc(x) через сумму ряда
  s=step(r,a[k]);
  l=fact(a[k]);
  x=x+(z*(b[k]*s)/l);
 }
razn=y-x;
Edit2->Text=FloatToStr(x);
Edit4->Text=FloatToStr(razn);
}
//---------------------------------------------------------------------------
int fact(int n)
{
 int q=1;
 for(int i=1;i<=n;i++)
  q=q*i;
 return q;
}
 
double step(double w, int n)
{
 double z=1.;
 for(int j=1;j<=n;j++)
 z=z*w;
return z;
}
Добавлено через 5 минут
Билдер выдает такие ошибки:
[C++ Error] Unit1.cpp(85): E2141 Declaration syntax error - указывает на строку 85,
[C++ Error] Unit1.cpp(102): E2139 Declaration missing ; - указывает на строку 102,
[C++ Error] Unit1.cpp(102): E2134 Compound statement missing } - указывает на строку 103
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.12.2010, 12:14     Вычисление суммы ряда csc(x)
Посмотрите здесь:

C++ Вычисление суммы ряда.
Вычисление суммы ряда C++
вычисление суммы ряда C++
Вычисление суммы ряда C++
C++ Вычисление суммы ряда
Вычисление суммы n ряда C++
Вычисление суммы ряда C++
Вычисление суммы ряда C++

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать тему
Опции темы

Текущее время: 20:27. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru