Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Delphi, Kylix and Pascal


Ответ
 
Опции темы Опции просмотра
Старый 01.12.2013, 17:48   #1 (permalink)
марианна
Member
 
Регистрация: 01.12.2013
Сообщений: 15
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 46
Wink Обьясните код

Код:
 program Lagrange;
 uses Crt;
 var X, Y : array[1..100] of Real;
 Arg, L, F : Real; I, J, N :Integer;
 begin
 Write('Ââåäèòå êîëè÷åñòâî óçëîâ èíòåðïîëÿöèè');
 Readln(n);
 WriteLn('Ââåäèòå òàáëèöó çíà÷åíèé xi, yi');
 for I:=1 to N do begin
 Write('X[',I,']=');
 ReadLn(X[I]);
 Write('Y[',I,']=');
 ReadLn(Y[I]);
 end;
 Write('Ââåäèòå àðãóìåíò ');
 ReadLn(Arg);
 L:=0;
 For I:=0 to N do
 begin
 F:=0;
 for J:=0 to N do
 if I<>J then F:=F*(Arg-X[J])/(X[I]-X[J]);
 F:=F*Y[I]; L:=L+F;
 end;
 WriteLn('Çíà÷åíèå ìíîãî÷ëåíà Ëàãðàíæà â òî÷êå ',Arg:0:3);
 WriteLn('ðàâíî ', L:0:3); ReadLn;
 end.
марианна вне форума   Ответить с цитированием

Старый 01.12.2013, 17:48
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Безусловно схожие по содержанию темы вам должны чем то быть полезны

Как мне узнать прямое напряжение светодиода и ток через него?
Обьясните недалекому
Обьясните разницу между роутером и коммутатором
Ламповый усилитель на радиолампе 6Ф1П. Обьясните начинающему
Обьясните пожалуйста
Обьясните как разгонять оперативку?

Старый 01.12.2013, 18:32   #2 (permalink)
Gruvi
VIP user
 
Аватар для Gruvi
 
Регистрация: 10.03.2011
Сообщений: 766
Записей в дневнике: 1
Сказал(а) спасибо: 11
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 3453
По умолчанию

Очень похоже на диф.ур. лагранжа или многочлен того же лагранжа ...
Gruvi вне форума   Ответить с цитированием
Старый 01.12.2013, 19:03   #3 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 25,454
Сказал(а) спасибо: 256
Поблагодарили 476 раз(а) в 151 сообщениях
Репутация: 82625
По умолчанию

Цитата:
Сообщение от Gruvi Посмотреть сообщение
Очень похоже на диф.ур. лагранжа или многочлен того же лагранжа ...
Многочлен. Но программа написана неверно и работать не будет. Обратите внимание на индексацию массивов X и Y - она начинается с 1. Между тем в цикле вычисления полиномов фигурирует X[I] и X[J], причем как I, так и J стартуют с 0. Неизбежна ошибка.
Ладно, попробую что-нибудь в соседней теме изобразить.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S на форуме   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 14:59.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.