функция в паскале

@Dmitriy_11 · Регистрация: 14.09.2013

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

Разработать алгоритм расчета и программу на Pascal для определения значений функции:

@ermolay · 09.10.2013, 07:43

Опишите в чем возникли затруднения, эта задача решается так же, как и предыдущая

@Dmitriy_11 · 09.10.2013, 09:31 **[ТС]**

я немогу понять как писать формулы Е1, Е2,Е3 можете написать пожалуйста я уже там розберусь.

@Samhain · 09.10.2013, 09:53

Dmitriy_11,

Pascal

var f,e1,e2,e3,x,a,b:real;
begin
  write('x = ');readln(x);
  write('a = ');readln(a);
  write('b = ');readln(b);
  if (x<>-1)and(abs(x+1)<>1)and(b*x*x+a*x+5<>0)and(b*x*x+a*x+5<>1) then
    begin
      e1:=exp(ln(abs(ln(abs(x+1))))/3);
      e2:=exp(sin(x-5));
      e3:=2/ln(abs(b*x*x+a*x+5));
      f:=(e1*e1+abs(e2)+e3)/sqrt(abs(e1*e2))-1/3;
      writeln('f = ',f:0:4);
    end
  else writeln('Значение f не определено');
  readln
end.

@True_LyaLya · 09.10.2013, 09:53

E1:=Sqr(Abs(ln(Abs(x+1))));
E2:=Exp(Sin(x-5));
E2:=2/(ln(Abs(b*Sqr(x)+a*x+5)));

@Samhain · 09.10.2013, 10:07

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

E1:=Sqr(Abs(ln(Abs(x+1))));

там кубический корень, а у Вас возведение в квадрат.

@True_LyaLya · 09.10.2013, 10:16

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

там кубический корень

слепа на старость стала =)
E1:= exp(ln(Abs(ln(Abs(x+1))))/3);

@Dmitriy_11 1 / 1 / 1 Регистрация: 14.09.2013 Сообщений: 105
		1
	функция в паскале 08.10.2013, 22:06. Показов 1070. Ответов 6 Метки нет (Все метки) Разработать алгоритм расчета и программу на Pascal для определения значений функции: Миниатюры 0

@ermolay 3451 / 2389 / 2135 Регистрация: 04.12.2011 Сообщений: 3,966
	09.10.2013, 07:43	2
	Опишите в чем возникли затруднения, эта задача решается так же, как и предыдущая 0

@Dmitriy_11 1 / 1 / 1 Регистрация: 14.09.2013 Сообщений: 105
	09.10.2013, 09:31 [ТС]	3
	я немогу понять как писать формулы Е1, Е2,Е3 можете написать пожалуйста я уже там розберусь. 0

@True_LyaLya 24 / 24 / 16 Регистрация: 23.01.2013 Сообщений: 129
	09.10.2013, 09:53	5
	E1:=Sqr(Abs(ln(Abs(x+1)))); E2:=Exp(Sin(x-5)); E2:=2/(ln(Abs(bSqr(x)+ax+5))); 1

@Samhain 696 / 570 / 414 Регистрация: 31.03.2013 Сообщений: 1,029
	09.10.2013, 10:07	6
	Сообщение от True_LyaLya E1:=Sqr(Abs(ln(Abs(x+1)))); там кубический корень, а у Вас возведение в квадрат. 1

@True_LyaLya 24 / 24 / 16 Регистрация: 23.01.2013 Сообщений: 129
	09.10.2013, 10:16	7
	Сообщение от Samhain там кубический корень слепа на старость стала =) E1:= exp(ln(Abs(ln(Abs(x+1))))/3); 1