Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 11.03.2017
Сообщений: 4
1

Построить многочлен Лагранжа по таблице

12.04.2019, 22:16. Просмотров 398. Ответов 4
Метки нет (Все метки)

Помогите пожалуйста, как написать на Паскале отрезок программы, чтобы по заданной таблице построился многочлен Лагранжа, тут поискала на сайте не нашла нормально рабочих
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.04.2019, 22:16
Ответы с готовыми решениями:

Построить интерполяционный многочлен Лагранжа
надо написать программу Построить интерполяционный многочлен Лагранжа по известным в узлах...

Интерполяционный многочлен Лагранжа, программа по блок-схеме
Всем Добрый вечер! Нужно написать програму по этой блок-схеме. Если поможете, буду крайне...

Построить многочлен Лагранжа
Всем привет. Имеется следующая задача: Построить по имеющимся данным интерполяционный многочлен...

Построить интерполяционный многочлен Лагранжа
доброй ночи, математикам, программистам, а также всем зарегистрированным на этом форуме! помогите,...

4
1901 / 634 / 461
Регистрация: 15.01.2019
Сообщений: 1,959
12.04.2019, 22:36 2
Pascal
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
var F,L:real;
    i,j,n:integer;
    x:array[1..10] of real;
    y:array[1..10] of real;
 
begin
     write('n=');
     readln(n);
     for i:=1 to n do
     begin
          write('x[',i,']=');
          readln(x[i]);
          write('y[',i,']=');
          readln(y[i]);
     end;
     begin
          write('x[',n+1,']=');
          readln(x[n+1]);
     end;
     y[n+1]:=0;
     F:=0;
     for j:=1 to n do 
     begin
     L:=1;
     for i:=1 to n do
     begin
         if i<>j then
         begin
         L:=L*(x[n+1]-x[i])/(x[j]-x[i]);
         end;
     end;
     y[n+1]:=y[n+1]+y[J]*L;
 end;
     writeln('y[',n+1,']=',y[n+1]:1:0);
     for i:=1 to n do
     begin
          writeln('x[',i,']=',x[i]:10:10,' y[',i,']=',y[i]:10:10);
     end;
     begin
          writeln('x[',n+1,']=',x[n+1]:10:10,' y[',n+1,']=',y[n+1]:10:10);
     end;
     readln;
end.
Код взят из Викиучебника. Компилируется, но насколько хорошо работает - не знаю. Проверяйте.
0
0 / 0 / 0
Регистрация: 11.03.2017
Сообщений: 4
12.04.2019, 23:15  [ТС] 3
Проверяла, у меня что то не считало, на вводе все и заканчивалось
0
Эксперт Pascal/Delphi
6269 / 4227 / 4611
Регистрация: 05.06.2014
Сообщений: 20,806
13.04.2019, 07:54 4
Цитата Сообщение от asya1012 Посмотреть сообщение
у меня что то не считало, на вводе все и заканчивалось
Считает, что-то выводит. Проверьте на реальных данных.
0
Миниатюры
Построить многочлен Лагранжа по таблице  
0 / 0 / 0
Регистрация: 11.03.2017
Сообщений: 4
13.04.2019, 10:45  [ТС] 5
Это скорее просто вывод массива который ввели
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.04.2019, 10:45

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Построить интерполяционный многочлен Лагранжа для функции
Построить интерполяционный многочлен Лагранжа для функции y=\left|x \right|

Построить интерполяционный многочлен Лагранжа для функции
помогите пожалуйста. есть функция sin (x)/5 таблица x0 п/2 п y0 1/5 0

По заданной функции построить интерполяционный многочлен Лагранжа
По функции f(x)=\frac{x^3+4x+1}{x^4+2x+3} на промежутке построить интерполяционный многочлен...

Построить интерполяционный многочлен Лагранжа по пяти данным узлам
Построить интерполяционный многочлен Лагранжа по пяти данным узлам (xi,yi), i=1..5


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

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

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