01.12.2013, 17:48 | #1 (permalink) |
Member
Регистрация: 01.12.2013
Сообщений: 15
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 46
|
Обьясните код
Код:
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
Регистрация: 08.03.2016
Сообщений: 0
|
Безусловно схожие по содержанию темы вам должны чем то быть полезны Как мне узнать прямое напряжение светодиода и ток через него? Обьясните недалекому Обьясните разницу между роутером и коммутатором Ламповый усилитель на радиолампе 6Ф1П. Обьясните начинающему Обьясните пожалуйста Обьясните как разгонять оперативку? |
01.12.2013, 19:03 | #3 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Многочлен. Но программа написана неверно и работать не будет. Обратите внимание на индексацию массивов X и Y - она начинается с 1. Между тем в цикле вычисления полиномов фигурирует X[I] и X[J], причем как I, так и J стартуют с 0. Неизбежна ошибка.
Ладно, попробую что-нибудь в соседней теме изобразить. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|