Задача на Паскале

марианна · 01.12.2013, 15:40

ребята, миленькие, ппомогите с программной, а то я сама не понимаю(((((

Gruvi · 01.12.2013, 18:34

Как вы себе представляете программу? записать как именно? в стандартном виде или аналитическом ? или комплексном ?
__________________
Вот тебе подсказка:
Многочлен - это ж по сути A*x*x+B*x+C , вот и храни такие тройки чисел.

Vladimir_S · 01.12.2013, 19:24

Да ладно, делов-то куча...

Код:

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

Цитата:

Сообщение от Vladimir_S

Да ладно, делов-то куча...

Код:

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.

скажите ,пожалуйста, что значет argument

марианна · 01.12.2013, 20:19

Цитата:

Сообщение от Gruvi

Как вы себе представляете программу? записать как именно? в стандартном виде или аналитическом ? или комплексном ?
__________________
Вот тебе подсказка:
Многочлен - это ж по сути A*x*x+B*x+C , вот и храни такие тройки чисел.

я не знаю как, вот только такое задание и все, больше ничего нет

Vladimir_S · 01.12.2013, 20:32

Цитата:

Сообщение от марианна

скажите ,пожалуйста, что значет argument

Объясняю. Задача всего этого - провести через имеющиеся точки некую кривую (функцию), так, чтобы можно было задавать ЛЮБОЙ (ну... в разумных пределах) аргумент. Естественно, если в качестве аргумента использовать один из x[i], то результатом должно быть y[i]. Это, кстати, критерий правильности работы программы. Запустите и введите сначала одно или несколько данных значений x[i], убедитесь, что каждый раз получается действительно соответствующее значение y[i], ну а потом можете и произвольный аргумент попробовать. Например, 0 или 3.

марианна · 01.12.2013, 20:39

Цитата:

Сообщение от Vladimir_S

Объясняю. Задача всего этого - провести через имеющиеся точки некую кривую (функцию), так, чтобы можно было задавать ЛЮБОЙ (ну... в разумных пределах) аргумент. Естественно, если в качестве аргумента использовать один из x[i], то результатом должно быть y[i]. Это, кстати, критерий правильности работы программы. Запустите и введите сначала одно или несколько данных значений x[i], убедитесь, что каждый раз получается действительно соответствующее значение y[i], ну а потом можете и произвольный аргумент попробовать. Например, 0 или 3.

а с вами можно пообщаться в личке как нибудь, или в аське?

Vladimir_S · 01.12.2013, 20:43

Цитата:

Сообщение от марианна

а с вами можно пообщаться в личке как нибудь, или в аське?

Аськой так и не обзавёлся, а в личке - пожалуйста. Единственная просьба (не только к Вам, но и ко всем) - не присылать задачки. Это я прошу всегда делать открыто на форуме.

марианна · 01.12.2013, 20:48

Цитата:

Сообщение от Vladimir_S

Аськой так и не обзавёлся, а в личке - пожалуйста. Единственная просьба (не только к Вам, но и ко всем) - не присылать задачки. Это я прошу всегда делать открыто на форуме.

а как вам лично написать?

Vladimir_S · 01.12.2013, 20:55

Цитата:

Сообщение от марианна

а как вам лично написать?

Щелкните левой клавишей мыши по моему нику слева от любого моего поста и в выпадающем меню щелкните по "отправить личное сообщение".

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

01.12.2013, 19:24	#3 (permalink)
Vladimir_S Специалист Регистрация: 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+Py[i]; end; Writeln('Result= ',R:0:3); Readln End.

01.12.2013, 15:40
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	В ранее созданных темах можно найти важный ответ Задача на Паскале АБС Задача на Паскале Задача в паскале Задача на Паскале

01.12.2013, 18:34	#2 (permalink)
Gruvi VIP user Регистрация: 10.03.2011 Сообщений: 765 Записей в дневнике: 1 Сказал(а) спасибо: 10 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 3453	Как вы себе представляете программу? записать как именно? в стандартном виде или аналитическом ? или комплексном ? __________________ Вот тебе подсказка: Многочлен - это ж по сути Axx+B*x+C , вот и храни такие тройки чисел.

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