Вычислить значение выражения

@Julia94 · Регистрация: 08.10.2012

Студворк — интернет-сервис помощи студентам

Вычислить значения Y , соответствующие каждому значению X (X_n=<X=<X_k, шаг изменения Х равен dX) по формуле Y=(-e^cos(x)) - 1. Вычислить сумму положительных значений Y, произведение нулевых Y, количество отрицательных Y.

@CodeR · 16.10.2012, 14:06

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

произведение нулевых Y

а смысл если оно будет = 0?

Добавлено через 3 минуты

Pascal

Var xn,xk,x,dx,y,s:real;
    k:byte;
Begin
    write('Введите Xn and Xk (через пробел): ');readln(xn,xk);
    write('Введите dx: ');readln(dx);
    x:=xn;s:=0;k:=0;
    While x<=xk do
    Begin
      y:=-exp(cos(x)-1);
      if y>0 then s:=s+y;
      if y<0 then inc(k);
      x:=x+dx;
    End;
    writeln('Сумма положительных: ',s:0:2);
    writeln('Кол-во отрицательных: ',k);
    readln;
End.

@Julia94 -1 / 0 / 0 Регистрация: 08.10.2012 Сообщений: 71
		1
	Вычислить значение выражения 16.10.2012, 12:34. Показов 988. Ответов 1 Метки нет (Все метки) Вычислить значения Y , соответствующие каждому значению X (X_n=<X=<X_k, шаг изменения Х равен dX) по формуле Y=(-e^cos(x)) - 1. Вычислить сумму положительных значений Y, произведение нулевых Y, количество отрицательных Y. 0

Опции темы

Вычислить значение выражения

Решение