![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Пользователь
Регистрация: 01.10.2013
Сообщений: 24
|
![]()
Задание:
На заданном отрезке изменения X {a, b} с шагом h найти наибольшее и наименьшее значения функции: y=2,3x^9-3x^6-4x^5-9x^2+6,1x+1. Значение многочлена вычислять, используя схему Горнера. Программа: using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Linq; using System.Text; using System.Windows.Forms; namespace WindowsFormsApplication18 { class LABA { public static int MAX(int[] c) { int max = 0,a=0,b=0,h=0; for (int i = a; i <b; i=i+h) { max = 0; if (c[i] > max) max = c[i]; } return max; } public static int MIN(int[] c) { int min = 0,a=0,b=0,h=0; for (int i = a; i < b; i=i+h) { min = 0; if (c[i] < min) min = c[i]; } return min; } } public partial class Form1 : Form { public Form1() { InitializeComponent(); } private void Form1_Load(object sender, EventArgs e) { } private void button1_Click(object sender, EventArgs e) { int a = Convert.ToInt32(textBox1.Text); double min = 0, max = 0; double b = Convert.ToDouble(textBox2.Text); int h = Convert.ToInt32(textBox3.Text); double x = Convert.ToDouble(textBox4.Text); int c = 61 / 10; int z = 23 / 10; int [] d = { z, 0, 0, -3, -4, 0, 0, -9, c, 1 }; int m = 9; double y = d[m]; for (int i = m; i >= 0; i--) { y = x * y + d[i]; } double t = (LABA.MAX(d)); double u = (LABA.MIN(d)); textBox5.Text = Convert.ToString(y); textBox6.Text = Convert.ToString(u); textBox7.Text = Convert.ToString(t); } } } |
![]() |
![]() |
![]() |
Опции темы | Поиск в этой теме |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите исправить Ошибку | Pavelhr | Помощь студентам | 1 | 16.01.2010 11:35 |
Помогите исправить ошибку | masha17 | Общие вопросы C/C++ | 3 | 22.10.2009 14:21 |
Помогите исправить ошибку | KARUSHEV | Помощь студентам | 9 | 10.09.2009 13:01 |
помогите исправить ошибку | Temirlan | Общие вопросы Delphi | 2 | 20.02.2009 18:42 |
помогите исправить ошибку. | alen666 | Паскаль, Turbo Pascal, PascalABC.NET | 11 | 08.03.2008 16:43 |