+ Ответить в теме
Показано с 1 по 3 из 3

Тема: Уравнение (списки)

  1. #1
    Максим2014 is on a distinguished road
    Регистрация
    16.08.2013
    Возраст
    29
    Сообщений
    2
    Вес репутации
    0

    По умолчанию Уравнение (списки)

    Здраствуйте! Подскажите пожалуйста как вычислить по данному уравнению:

    Даны натуральное число n, действительные числа x1, ...xn. Вычислить:

    в) (x1 + x2 + 2xn)(x2 + x3 + 2xx-1)... (xn-1 + xn + 2x2).

    Для решения этой задачи полезен список, изображенный на рис. 27.
    image04..gif

    Программный код(писал на pascal ABC.NET):

    program max;
    type
    ukazatel=^s;
    s=record

    data:integer;
    next:ukazatel;
    prev:ukazatel;
    end;

    var
    b,i,a:integer;
    x,x2,x3,n:ukazatel;
    begin
    write('Введите количество эелементов:');
    read(b);
    for i:=1 to b do
    begin
    write('Введите номер', i ,' элемента:');
    read(a);

    new(x);
    x^.data:=a;
    x^.next:=x2;
    x^.prev:=nil;

    new(x2);
    x2^.data:=a;
    x2^.next:=x3;
    x2^.prev:=x2;

    new(x3);
    x3^.data:=a;
    x3^.next:=n ;
    x3^.prev:=x ;

    new(n);
    n^.data:=a;
    n^.next:=x3 ;
    n^.prev:=nil ;

    end;
    end.

  2. По умолчанию

     
    Хотите избавиться от рекламы? Зарегистрируйтесь
  3. #2
    Максим2014 is on a distinguished road
    Регистрация
    16.08.2013
    Возраст
    29
    Сообщений
    2
    Вес репутации
    0

    По умолчанию Re: Уравнение (списки)

    Помогите пожалуйста,кто понимает, срочно надо.

  4. #3
    Super Moderator system architect Naeel Maqsudov is a jewel in the rough Naeel Maqsudov is a jewel in the rough Naeel Maqsudov is a jewel in the rough Аватар для Naeel Maqsudov
    Регистрация
    20.02.2004
    Адрес
    Moscow, Russia
    Возраст
    50
    Сообщений
    2,551
    Вес репутации
    28

    По умолчанию Re: Уравнение (списки)

    1) "2xx-1" - имеется в виду 2 * X(n-1) ?
    2) С чего это Вы решили, что для вычисления этого произведения "полезны" двусвязные списки? Они тут совершенно бесполезны, даже точнее сказать вредны

+ Ответить в теме

Похожие темы

  1. Уравнение тренда, Delphi 7
    Здравствуйте. Помогите, пожалуйста, решить задачу в Delphi. У меня есть таблица, в одной колонке есть время, оно меняется от 1 до 12. В другую...
    от cefira в разделе задачи на Паскале и Delphi
  2. [Maple] Дифференциальное уравнение
    Здравствуйте! Всех с наступающим Новым годом!:) А теперь к проблемке... Не могу записать дифференциальное уравнение в Maple. И не могу выполнить...
    от Alex_SS в разделе Решите мне задачку
  3. Pascal. Решить уравнение
    Надеюсь остались еще умные люди!! с помощью процедуры!! 1.Вычислить Z=(X1 + Y1 )/ (X2- Y2), где X1и X2 —корни уравнения 2x2+x-4=0, Y1 и Y2 – корни...
    от Иришка в разделе задачи на Паскале и Delphi
  4. уравнение
    Дано уравнение . На форме 3 Edita, Memo и 1 кнопка для выполнения. В 1 Edite задается начальное значение x, во втором конечное, а в третьем вводится...
    от pikass в разделе Delphi и Pascal

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения