Вычислить значение функции Y

@siriusz · Регистрация: 14.05.2014

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

Помогите написать программу на паскале для нахождения значения функции Y.

@Samhain · 15.05.2014, 19:49

siriusz,

Pascal

var x:real;
begin
  write('x = ');readln(x);
  if x<=-6 then writeln('Не определено')
  else writeln('y = ',sqrt(abs(cos(x*x+5)*exp(x)))/ln(7+x):0:5);
  readln
end.

Pascal

var x,y:real;
begin
  write('x = ');readln(x);
  if x>pi then y:=sin(x)
  else
    if x<pi then y:=cos(x)
    else y:=0;
  writeln('y = ',y:0:5);
  readln
end.

@siriusz · 15.05.2014, 21:52 **[ТС]**

СПАСИБО!

@siriusz 0 / 0 / 0 Регистрация: 14.05.2014 Сообщений: 5
		1
	Вычислить значение функции Y 15.05.2014, 18:59. Показов 1093. Ответов 2 Метки нет (Все метки) Помогите написать программу на паскале для нахождения значения функции Y. Миниатюры 0

@siriusz 0 / 0 / 0 Регистрация: 14.05.2014 Сообщений: 5
	15.05.2014, 21:52 [ТС]	3
	СПАСИБО! 0

Опции темы

Вычислить значение функции Y

Решение