Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/18: Рейтинг темы: голосов - 18, средняя оценка - 4.83
0 / 0 / 0
Регистрация: 07.12.2013
Сообщений: 12
1

Вычисление по схеме Горнера

21.06.2014, 01:21. Показов 3223. Ответов 2
Метки нет (Все метки)

Для данного действительного числа X произвести вычисление по схеме Горнера

Y=x^10+2x^9+3x^8...10x+11. помогите с кодом пожалуйста. Написал что мог. Программа запускается, но сразу застывает, не выдавая никаких ошибок.

Добавлено через 35 секунд
Delphi
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
Unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm3 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Label1: TLabel;
    Button2: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form3: TForm3;
 
  n,c,y,x:real;
 
implementation
 
{$R *.dfm}
 
 
 
procedure TForm3.Button1Click(Sender: TObject);
begin
x:=strtofloat(edit1.Text);
c:=1;
n:=10;
c:=c+1;
n:=n-1;
begin
y:=(c+1)+exp(x*ln(n-1));
end;
Memo1.Lines.Add('y='+floattostr(y));
end;
procedure TForm3.Button2Click(Sender: TObject);
begin
close;
end;
 
end.
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.06.2014, 01:21
Ответы с готовыми решениями:

Вычислить значение многочлена по схеме Горнера
Добрый день! помогите пожалуйста 1) Многочлен степени n задан массивом своих коэффициентов....

Решение диофантовых уравнений второй степени по схеме Горнера
"Решение диофантовых уравнений второй степени по схеме Горнера" есть такое задание, не прошу...

Вычисление по итеративной схеме и рекуррентной схеме
Помогите пожалуйста с программой program Project2; {$APPTYPE CONSOLE} uses SysUtils,...

Вычисление по итеративной схеме и рекуррентной схеме
program Project2; {$APPTYPE CONSOLE} uses Math, SysUtils; Const e: double = 1e-5; var...

2
Модератор
64056 / 47472 / 32727
Регистрация: 18.05.2008
Сообщений: 115,185
21.06.2014, 14:18 2
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure TForm1.Button1Click(Sender: TObject);
const n=11;
var x,y:real;
    c,i:integer;
begin
val(Edit1.Text,x,c);
if c<>0 then
 begin
  showmessage('Неверно ведено Х, повторите');
  edit1.Clear;
  edit1.SetFocus;
  exit
 end; 
y:=0;
for i:=0 to n do
y:=y*x+i;
edit2.Text:='y='+floattostrF(y,ffFixed,10,2)
end;
1
0 / 0 / 0
Регистрация: 07.12.2013
Сообщений: 12
21.06.2014, 21:45  [ТС] 3
Спасибо)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.06.2014, 21:45

Вычисление факториала - составить код по блок-схеме
Доброго времени суток, я как новенький в работе Delphi не могу сделать програмку в консольном...

Вычисление полинома по схеме Горнера
Дана вроде бы стандартная задача, на вычисление суммы, но портит ее то, что надо вычислить ее по...

Провести вычисление многочлена по схеме Горнера
Провести вычисление многочлена по схеме Горнера f(x)=( ...(((x+A )x+A )x+A )... )x+An Помогите...

Вычисление выражения основываясь на схеме Горнера
Добрый день. Стоит такое задание. Дано число X типа Single. Необходимо разработать фрагмент...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.