Одномерные массивы

[Olololo95]

Запрограммировать функцию и вычислить её значения в точках интервала с заданным шагом, сумму этих значений, а также найти произведение значений функции, попавших в промежуток (0;1] Z=(e^(x/2))/y-2 где y=-3 -2<x<10 h=2

[Alex11223]

Покажите свои наработки, конкретные вопросы и т.п.
http://www.programmersforum.ru/announcement.php?f=31

Или в раздел Фриланс если вы не хотите ничего делать, а ищете кого-то, кто выполнит ваши задачи за вознаграждение.

[newerow1989]

Почему шаг = 2 ???

const y=-3;
      h=2;// ?
      x0=-2;
      x1=10;
      a=0;
      b=1;
var x,z,s,p:real;
begin
   s:=0;
   p:=1;
   x:=x0-h;
   Repeat
      x:=x+h;
      z:=Exp(x/2)/y-2;
      s:=s+z;
      If (x>0) and (x<=1) then
         p:=p*z;
      Writeln(x:2:2,'  ',z:5:8);
   Until x>=x1;
   Writeln;
   Writeln('s = ',s:5:8);
   Writeln('p = ',p:5:8);
   Readln;
end.