Технический форум - Задача на Паскале

Страница 1 из 2

Показывать 40 сообщений этой темы на одной странице

Технический форум (http://www.tehnari.ru/)

- Delphi, Kylix and Pascal (http://www.tehnari.ru/f43/)

- - Задача на Паскале (http://www.tehnari.ru/f43/t92756/)

марианна

01.12.2013 15:40

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

Вложений: 1

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

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 (Сообщение 975749)

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

Код:

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 (Сообщение 975722)

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

Vladimir_S

01.12.2013 20:32

Цитата:

Сообщение от марианна (Сообщение 975771)

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

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

марианна

01.12.2013 20:39

Цитата:

Сообщение от Vladimir_S (Сообщение 975778)

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

Vladimir_S

01.12.2013 20:43

Цитата:

Сообщение от марианна (Сообщение 975779)

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

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

марианна

01.12.2013 20:48

Цитата:

Сообщение от Vladimir_S (Сообщение 975780)

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

Vladimir_S

01.12.2013 20:55

Цитата:

Сообщение от марианна (Сообщение 975783)

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

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

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

Страница 1 из 2

Показывать 40 сообщений этой темы на одной странице