помогите с программой pascal.

[imzonger]

Никак не могу понять как написать программу. Я знаю как писать сигму но никак не могу понять как записать x1,x2,x3 и тд. Помогите пожалуйста.

[type_Oleg]

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

но никак не могу понять как записать x1,x2,x3 и тд

const X:array [1..5] of Double =(0.34e-2,0.12,0.08e-2,1.11e-3,0.07);

[macomics]

var
  a: double = 0.0;
  b: single = 11.58e-2;
  c: single = 0.78e-2;
  x: array [1 .. 5] of single = (0.34e-2, 0.12, 0.08e-2, 1.11e-3, 0.07);

function p2(x: single): double; inline; begin p2 := x*x; end;

begin
  for i := Low(x) to High(x) do a := a + b*sin(p2(x[i]) - c) + p2(cos(x[i])); // Суммируем значения для правой части выражения (под знаком суммирования)
  a := sin(b - c*c) - 1.08*a; // Окончательно вычислили значение a
end.

А вот с Z[i] что-то непонятное. Причем тут суммирование по i внутри функции тоже от этого же индекса.

[ViktorR]

macomics

А вот с Z[i] что-то непонятное. Причем тут суммирование по i внутри функции тоже от этого же индекса.

Понял так.
В правой части выражений есть две составляющие: f(xi) + Сумма.
Если выполнить суммирование то эти суммы становятся постоянными значениями.
В этом случае получаем зависимость Zi = f(xi) + Const

[macomics]

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

Понял так.
В правой части выражений есть две составляющие: f(xi) + Сумма.
Если выполнить суммирование то эти суммы становятся постоянными значениями.
В этом случае получаем зависимость Zi = f(xi) + Const

Возможно. Тоже об этом думал, но показалось абсурдно громоздким выражением для константы. Да и почему бы тогда не использовать другую букву для счетчика (например, j). Вот из-за того, что буквы везде i, я и отказался от этой идеи. Тогда их вообще не стоит считать в цикле, а вычислить по разу и записать в переменные t0 и t1.

ADD: Если это отдельный индекс, тогда это константа. Но xi под знаком суммирования встречается несколько раз. Если предположить, что один из них это индекс от zi, тогда это превращается в 5 разных выражений.

for i := Low(x) to High(x) do t0 := t0 + p2(p2(x[i]) - sin(x[i])) / (1 - cos(x[i]));
for i := Low(x) to High(x) do t1 := t1 + (b*x[i] - a*p2(x[i]));
for i := Low(x) to High(x) do
  if cos(x[i]) > sin(x[i])
    then z[i] := a*cos(p2(xi - c)) + t0
    else z[i] := (a*sin(x[i]) - b*p2(cos(x[i] - c)))/(b*sin(x[i]) + a*cos(x[i])) - t1;

или, например, так

for i := Low(x) to High(x) do
  if cos(x[i]) > sin(x[i])
    then begin
      t := 0;
      for j := Low(x) to High(x) do t := t + p2(p2(x[j]) - sin(x[j])) / (1 - cos(x[i]));
      z[i] := a*cos(p2(xi - c)) + t;
    end else begin
      t := 0;
      for j := Low(x) to High(x) do t := t + (b*x[j] - a*p2(x[i]));
      z[i] := (a*sin(x[i]) - b*p2(cos(x[i] - c)))/(b*sin(x[i]) + a*cos(x[i])) - t;
    end;

Как видите это уже не константы. Хотя исходную запись я не нарушил.

[ViktorR]

Тут ещё вопрос.
Вычисление верхнего или нижнего выражения обусловлено отношение cos() и sin().
Но у меня для всех xi срабатывает только первое условие: cos() > sin().
Это действительно так, поскольку для малых xi sin(xi) == xi, а cos(xi) == 1.
Тут комбинация == означает "порядка", иначе - "около".
И к чему тогда второе выражение, если сумма равна нулю?

Короче - вопросы, вопросы и ...

[macomics]

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

Короче - вопросы, вопросы и ...

Типичная задача на потренироваться составлять выражения на языке pascal. Не программу, а сами выражения по формулам.

[ViktorR]

Типичная задача на потренироваться составлять выражения на языке pascal. Не программу, а сами выражения по формулам.

Это понятно, но это садома...
У моего любимого автора Т.А. Павловская первая лаба на такую тему. Но там "издевательств" нет.
Там даются два выражения: одно сложное, а второе простое (после алгебраического преобразования первого).
Получается, что надо набрать два выражения и результат вычисления должен совпадать: контроль.
А тут и неначем проверить

Вопрос о качестве заданий тут уже поднимался.