01.12.2013, 15:40 | #1 (permalink) |
Member
Регистрация: 01.12.2013
Сообщений: 15
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 46
|
Задача на Паскале
|
01.12.2013, 15:40 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
В ранее созданных темах можно найти важный ответ Задача на Паскале АБС Задача на Паскале Задача в паскале Задача на Паскале |
01.12.2013, 18:34 | #2 (permalink) |
VIP user
Регистрация: 10.03.2011
Сообщений: 765
Записей в дневнике: 1
Сказал(а) спасибо: 10
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 3453
|
Как вы себе представляете программу? записать как именно? в стандартном виде или аналитическом ? или комплексном ?
__________________ Вот тебе подсказка: Многочлен - это ж по сути A*x*x+B*x+C , вот и храни такие тройки чисел. |
01.12.2013, 19:24 | #3 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Да ладно, делов-то куча...
Код:
Var x,y:Array[1..4] of Real; z,P,R:Real; i,j:Byte; Begin x[1]:=-1; x[2]:=1; x[3]:=2; x[4]:=4; y[1]:=2; y[2]:=2; y[3]:=5; y[4]:=18; Write('Argument= '); Readln(z); R:=0; for i:=1 to 4 do begin P:=1; for j:=1 to 4 do if j<>i then P:=P*(z-x[j])/(x[i]-x[j]); R:=R+P*y[i]; end; Writeln('Result= ',R:0:3); Readln End. |
01.12.2013, 20:18 | #4 (permalink) | |
Member
Регистрация: 01.12.2013
Сообщений: 15
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 46
|
Цитата:
|
|
01.12.2013, 20:19 | #5 (permalink) |
Member
Регистрация: 01.12.2013
Сообщений: 15
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 46
|
я не знаю как, вот только такое задание и все, больше ничего нет
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
01.12.2013, 20:32 | #6 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Объясняю. Задача всего этого - провести через имеющиеся точки некую кривую (функцию), так, чтобы можно было задавать ЛЮБОЙ (ну... в разумных пределах) аргумент. Естественно, если в качестве аргумента использовать один из x[i], то результатом должно быть y[i]. Это, кстати, критерий правильности работы программы. Запустите и введите сначала одно или несколько данных значений x[i], убедитесь, что каждый раз получается действительно соответствующее значение y[i], ну а потом можете и произвольный аргумент попробовать. Например, 0 или 3.
|
01.12.2013, 20:39 | #7 (permalink) | |
Member
Регистрация: 01.12.2013
Сообщений: 15
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 46
|
Цитата:
|
|
01.12.2013, 20:55 | #10 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|