• Добро пожаловать на компьютерный форум Tehnari.ru. Здесь разбираемся с проблемами ПК и ноутбуков: Windows, драйверы, «железо», сборка и апгрейд, софт и безопасность. Форум работает много лет, сейчас он переехал на новый движок, но старые темы и аккаунты мы постарались сохранить максимально аккуратно.

    Форум не связан с магазинами и сервисами – мы ничего не продаём и не даём «рекламу под видом совета». Отвечают обычные участники и модераторы, которые следят за порядком и качеством подсказок.

    Если вы у нас впервые, загляните на страницу о форуме и правила – там коротко описано, как задать вопрос так, чтобы быстро получить ответ. Чтобы создавать темы и писать сообщения, сначала зарегистрируйтесь, а затем войдите под своим логином.

    Не знаете, с чего начать? Создайте тему с описанием проблемы – подскажем и при необходимости перенесём её в подходящий раздел.
    Задать вопрос Новые сообщения Как правильно спросить
    Если пришли по старой ссылке со старого Tehnari.ru – вы на нужном месте, просто продолжайте обсуждение.

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

марианна

Новые
Регистрация
1 Дек 2013
Сообщения
15
Реакции
1
Баллы
0
Задача на Паскале

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

Вложения

  • Безымянный.webp
    Безымянный.webp
    22.9 KB · Просмотры: 115
Как вы себе представляете программу? записать как именно? в стандартном виде или аналитическом ? или комплексном ?
__________________
Вот тебе подсказка:
Многочлен - это ж по сути A*x*x+B*x+C , вот и храни такие тройки чисел.
 
Да ладно, делов-то куча...
Код:
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.
 
Да ладно, делов-то куча...
Код:
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
 
Как вы себе представляете программу? записать как именно? в стандартном виде или аналитическом ? или комплексном ?
__________________
Вот тебе подсказка:
Многочлен - это ж по сути A*x*x+B*x+C , вот и храни такие тройки чисел.

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


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

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

Вложения

  • Безымянный.webp
    Безымянный.webp
    13.3 KB · Просмотры: 103
у меня только так(((
А, черт - забыл. Это какие-то ограничения для новичков. По-моему, нужно 10 постов набрать, чтобы ЛС активизировалось. Попробуйте. Только сильно не флудите, чтобы не злить админов/модераторов. :D
 
Ой, нет - вру. Сейчас посмотрел - нужно 15, а потом еще часок подождать, пока система ЛС откроется. http://www.tehnari.ru/f8/t15561/#post929318
 
А, черт - забыл. Это какие-то ограничения для новичков. По-моему, нужно 10 постов набрать, чтобы ЛС активизировалось. Попробуйте. Только сильно не флудите, чтобы не злить админов/модераторов. :D

просто 10 сообщений оставить?) или 10 тем создать?)
 
А, черт - забыл. Это какие-то ограничения для новичков. По-моему, нужно 10 постов набрать, чтобы ЛС активизировалось. Попробуйте. Только сильно не флудите, чтобы не злить админов/модераторов. :D

а кроме как тут, где мы можем еще пообщаться?)
 
Назад
Сверху