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

@zatralel · Регистрация: 18.09.2013

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

Решите пожалуйста.

@Samhain · 02.10.2013, 08:57

zatralel,

Pascal

var x,y,k,sqr3: real;
 
begin
  write('y = ');readln(y);
  write('x = ');readln(x);
  write('k = ');readln(k);
  if (k=0)or(x=0)or(arctan(1/(k*x))<=0) then writeln('Функция не определена')
  else
    begin
      if y=0 then sqr3:=0
      else if y<0 then sqr3:=-exp(ln(8*abs(y))/3)
           else sqr3:=exp(ln(8*y)/3);
      writeln('F = ',sqr3-pi*ln(arctan(1/(k*x))):0:5)
    end;
  readln
end.

@zatralel 1 / 1 / 0 Регистрация: 18.09.2013 Сообщений: 31
		1
	Вычислить значение выражения 01.10.2013, 20:49. Показов 969. Ответов 1 Метки нет (Все метки) Решите пожалуйста. Миниатюры 0

	02.10.2013, 08:57

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

Решение