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

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

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

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

@ermolay · 05.10.2013, 11:44

Pascal

var
  f,e1,e2,e3: real;
  x,a,b: real;
begin
  write('Ââåäèòå x: ');
  readln(x);
  repeat
    write('Ââåäèòå a, b: ');
    readln(a,b);
  until (a<>0) and (b<>0);
  e1:=abs(a+abs(sin(x))+1);
  e2:=(exp(a*x)-exp(b*x))/2/a/b;
  e3:=(exp(a*b*x)-exp(b*x/a))/4;
  if (e1=0) or (e3=0) then writeln('Ôóíêöèÿ íå îïðåäåëåíà') else
  begin
    f:=(sqr(e1)+abs(e2)+e3)/sqrt(abs(e1*e3))-1/3;
    writeln('f=',f);
  end;
  readln;
end.

@Dmitriy_11 · 08.10.2013, 23:36 **[ТС]**

а это можете решить тут значения другие ? функция в паскале

@ermolay · 09.10.2013, 07:39

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

а это можете решить

вы и сами сможете, опишите затруднения (в той теме) - поможем

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

@Dmitriy_11 1 / 1 / 1 Регистрация: 14.09.2013 Сообщений: 105
	08.10.2013, 23:36 [ТС]	3
	а это можете решить тут значения другие ? функция в паскале 0

@ermolay 3451 / 2389 / 2135 Регистрация: 04.12.2011 Сообщений: 3,966
	09.10.2013, 07:39	4
	Сообщение от Dmitriy_11 а это можете решить вы и сами сможете, опишите затруднения (в той теме) - поможем 1

Опции темы