Загвоздка - Помощь студентам

V1rus.25 · 12.11.2013, 21:01

Доброго времени суток!
Уважаемые форумчане есть проблема:
есть код программы когда его вставляешь выдает массу ошибок.
Я ничего не могу с этим поделать.

Текст программы прилагаю в текстовом документе.

V1rus.25 · 12.11.2013, 23:06

что совсем нет идей?

Stilet · 12.11.2013, 23:16

Цитата:

совсем нет идей?

Идеи может быть и были бы если бы у меня был МС Ворд.
Извини, кода не вижу.

V1rus.25 · 12.11.2013, 23:46

так как код слишком большой разделяю на две части

Код:

float[] a = new float[4];
double fx(float x)
{ return a[0] * Math.Pow(x, 3) + a[1] * Math.Pow(x, 2) + a[2] * x + a[3]; }
double fxS(float x)
{ return 3* a[0] * Math.Pow(x, 2) + 2 * a[1] * x + a[2]; }
private void button1_Click(object sender, EventArgs e)
{
textBox3.Clear();
textBox4.Clear();
float x0, xn, h;
int n = 0;
float[] x;
string[] t = textBox5.Text.Split(" ,".ToCharArray(), StringSplitOptions.RemoveEmptyEntries);
for (int i = 0; i < a.Length; i++)
a[i] = Convert.ToSingle(t[i]);
float eps = Convert.ToSingle(textBox7.Text);
x0 = Convert.ToSingle(textBox1.Text);
xn = Convert.ToSingle(textBox2.Text);
h = Convert.ToSingle(textBox6.Text);
n = Convert.ToInt32(xn / h);
x = new float[n*n*n];
double first = 0, last = 0;
int k = 0;
for (double i = x0; i < xn; i+=h)
{
k++;
double val = fx((float)i);
if (k == 1) first = val;
if (k == n) last = val;
if (Convert.ToString(i).Length == 1)
{
textBox3.Text += i + ": \t" + val + Environment.NewLine;
continue;
}
if (Convert.ToString(i).Length > 3)
if(Convert.ToString(val).Length > 6)
textBox3.Text += Convert.ToString(i).Substring(0, 3) + ":\t" + Convert.ToString(val).Substring(0, 6) + Environment.NewLine;
else
textBox3.Text += Convert.ToString(i).Substring(0, 3) + ":\t" + val + Environment.NewLine;
else
textBox3.Text += i + ": " + val + Environment.NewLine;
}
x[0] = Convert.ToSingle((last + first) / 2.0);
textBox4.Text += "Находим x0: " + x[0] + Environment.NewLine;
int j = 0;
while (Math.Abs(fx(x[j])) > eps)
{
x[j + 1] = x[j] - (float)(fx(x[j]) / fxS(x[j]));
textBox4.Text += "Находим x" + (j + 1) + ": " + x[j + 1] + Environment.NewLine;
j++;
}
}
private void button2_Click(object sender, EventArgs e)
{
textBox3.Clear();
textBox4.Clear();
float x0, xn, h;
int n = 0;
float[] x;
string[] t = textBox5.Text.Split(" ,".ToCharArray(), StringSplitOptions.RemoveEmptyEntries);
for (int i = 0; i < a.Length; i++)
a[i] = Convert.ToSingle(t[i]);
float eps = Convert.ToSingle(textBox7.Text);
x0 = Convert.ToSingle(textBox1.Text);
xn = Convert.ToSingle(textBox2.Text);
h = Convert.ToSingle(textBox6.Text);
n = Convert.ToInt32(xn / h);
x = new float[n*n*n];
double first = 0, last = 0;
int k = 0;
for (double i = x0; i < xn; i += h)
{
k++;
double val = fx((float)i);
if (k == 1) first = val;
if (k == n) last = val;
if (Convert.ToString(i).Length == 1)
{
textBox3.Text += i + ": \t" + val + Environment.NewLine;
continue;
}
if (Convert.ToString(i).Length > 3)
if (Convert.ToString(val).Length > 6)
textBox3.Text += Convert.ToString(i).Substring(0, 3) + ":\t" + Convert.ToString(val).Substring(0, 6) + Environment.NewLine;
else
textBox3.Text += Convert.ToString(i).Substring(0, 3) + ":\t" + val + Environment.NewLine;
else
textBox3.Text += i + ": " + val + Environment.NewLine;
}
x[0] = (float)last;
x[1] = (float)first;
textBox4.Text += "Находим x0: " + x[0] + Environment.NewLine;
textBox4.Text += "Находим x1: " + x[1] + Environment.NewLine;
int j = 1;
while (Math.Abs(fx(x[j])) > eps)
{
x[j + 1] = x[j] - (float)(fx(x[j]) * (x[j] - x[j - 1])) / (float)(fx(x[j]) - fx(x[j - 1]));
textBox4.Text += "Находим x" + (j + 1) + ": " + x[j + 1] + Environment.NewLine;
j++;
}
}

V1rus.25 · 12.11.2013, 23:47

Продолжение

Код:

private void button3_Click(object sender, EventArgs e)
{
textBox3.Clear();
textBox4.Clear();
float x0, xn, h;
int n = 0;
float[] x;
string[] t = textBox5.Text.Split(" ,".ToCharArray(), StringSplitOptions.RemoveEmptyEntries);
for (int i = 0; i < a.Length; i++)
a[i] = Convert.ToSingle(t[i]);
float eps = Convert.ToSingle(textBox7.Text);
x0 = Convert.ToSingle(textBox1.Text);
xn = Convert.ToSingle(textBox2.Text);
h = Convert.ToSingle(textBox6.Text);
n = Convert.ToInt32(xn / h);
x = new float[n*n*n];
//табулирование
double first = 0, last = 0;
int k = 0;
for (double i = x0; i < xn; i += h)
{
k++;
double val = fx((float)i);
if (k == 1) first = val;
if (k == n) last = val;
if (Convert.ToString(i).Length == 1)
{
textBox3.Text += i + ": \t" + val + Environment.NewLine;
continue;
}
if (Convert.ToString(i).Length > 3)
if (Convert.ToString(val).Length > 6)
textBox3.Text += Convert.ToString(i).Substring(0, 3) + ":\t" + Convert.ToString(val).Substring(0, 6) + Environment.NewLine;
else
textBox3.Text += Convert.ToString(i).Substring(0, 3) + ":\t" + val + Environment.NewLine;
else
textBox3.Text += i + ": " + val + Environment.NewLine;
}
x[0] = (float)(first + last) / 2.0f;
x[1] = -x[0];
textBox4.Text += "Находим x0: " + x[0] + Environment.NewLine;
int j = 0;
float x1 = 0, x2 = 0, x22 = 0;
x0 = x[0];
x1 = x[1];
while(Math.Abs(x2 - x22) > eps || j < 2)
{
x22 = x2;
x2 = (x1 + x0) / 2;
if (fx(x2) > 0)
{
x0 = (x1 + x0) / 2; ;
}
else
{
x1 = (x1 + x0) / 2; ;
}
if(Convert.ToString(x2).Length >= 9)
textBox4.Text += "Находим x" + (j + 1) + ": " + Convert.ToString(x2).Substring(0, 9) + Environment.NewLine;
else
textBox4.Text += "Находим x" + (j + 1) + ": " + x2 + Environment.NewLine;
j++;
if (j > 150)
break;
}
}
private void button4_Click(object sender, EventArgs e)
{
textBox3.Clear();
textBox4.Clear();
float x0, xn, h;
int n = 0;
float[] x;
string[] t = textBox5.Text.Split(" ,".ToCharArray(), StringSplitOptions.RemoveEmptyEntries);
for (int i = 0; i < a.Length; i++)
a[i] = Convert.ToSingle(t[i]);
float eps = Convert.ToSingle(textBox7.Text);
x0 = Convert.ToSingle(textBox1.Text);
xn = Convert.ToSingle(textBox2.Text);
h = Convert.ToSingle(textBox6.Text);
n = Convert.ToInt32(xn / h);
x = new float[n*n*n*n];
double first = 0, last = 0;
int k = 0;
for (double i = x0; i < xn; i += h)
{
k++;
double val = fx((float)i);
if (k == 1) first = val;
if (k == n) last = val;
if (Convert.ToString(i).Length == 1)
{
textBox3.Text += i + ": \t" + val + Environment.NewLine;
continue;
}
if (Convert.ToString(i).Length > 3)
if (Convert.ToString(val).Length > 6)
textBox3.Text += Convert.ToString(i).Substring(0, 3) + ":\t" + Convert.ToString(val).Substring(0, 6) + Environment.NewLine;
else
textBox3.Text += Convert.ToString(i).Substring(0, 3) + ":\t" + val + Environment.NewLine;
else
textBox3.Text += i + ": " + val + Environment.NewLine;
}
x[0] = /* 0.5f;*/ Convert.ToSingle((last + first) / 2.0);
textBox4.Text += "Находим x0: " + x[0] + Environment.NewLine;
double proizv = fxS(x[0]);
float x1 = 0;
int i1 = 0;
while (Math.Abs(x1 - x[i1]) > eps)
{
x1 = x[i1];
x[i1 + 1] = x[i1] - (float)(fx(x[i1]) / proizv);
textBox4.Text += "Находим x" + (i1 + 1) + ": " + x[i1 + 1] + Environment.NewLine;
i1++;
if (i1 > n*n*n)
break;
}
}

Stilet · 13.11.2013, 00:55

Ну а список ошибок?
Или предлагаешь нам пересобирать это самим?

V1rus.25 · 13.11.2013, 01:19

там ошибок больше 100-ни
может есть смысл пересобрать может я что-то не так делаю

Arigato · 13.11.2013, 02:18

Цитата:

Сообщение от V1rus.25

есть код программы когда его вставляешь выдает массу ошибок.

Все зависит от того, куда вы его вставляете...

V1rus.25 · 13.11.2013, 02:27

Цитата:

Сообщение от Arigato

Все зависит от того, куда вы его вставляете...

в форму конечно, куда ж еще

Arigato · 13.11.2013, 02:41

В какую еще форму?

13.11.2013, 00:55	#6
Stilet Белик Виталий :) Старожил Регистрация: 23.07.2007 Сообщений: 57,097	Ну а список ошибок? Или предлагаешь нам пересобирать это самим? I'm learning to live...

13.11.2013, 02:41	#10
Arigato Высокая репутация СуперМодератор Регистрация: 27.07.2008 Сообщений: 15,646	В какую еще форму? E-Mail: arigato.freelance@gmail.com

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
маленькая загвоздка	Indigo_best	Помощь студентам	12	19.06.2010 13:19
Загвоздка с Паскалем.	Dmitry90	Помощь студентам	0	12.06.2010 15:43
Загвоздка в програме.	ostego	Помощь студентам	2	10.06.2010 21:20
Загвоздка	Airgolem	Microsoft Office Access	11	25.10.2009 00:46

12.11.2013, 23:06	#2
V1rus.25 Пользователь Регистрация: 09.04.2012 Сообщений: 62	что совсем нет идей?

13.11.2013, 01:19	#7
V1rus.25 Пользователь Регистрация: 09.04.2012 Сообщений: 62	там ошибок больше 100-ни может есть смысл пересобрать может я что-то не так делаю