Извлечь кубический корень

@Кайрат Оспанов · Регистрация: 16.05.2016

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

Здравствуйте. Помогите составить программу.
Извлечь кубический корень из суммы положительных значений функции на интервале. За а=0.54

$https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> y=-\frac{1}{\sqrt{x^2+a}}+a^x<br />$

@Кайрат Оспанов · 25.05.2016, 13:58 **[ТС]**

Интервал от -5 до 5 с шагом 0,5.

Добавлено через 1 час 26 минут
Ой как много тут отзывчивых людей!

Pascal

program ololo;
var a,y,s:real;x:integer;
begin
a:=0.54;
for x:=-5 to 5 do
begin 
y:=-(1)/(sqrt(sqr(x)+a))+exp(x+ln(a));
writeln('y=',y);
if y>0 then s:=exp(1/3*ln(y));
writeln('s=',s);
end;
end.

@Cyborg Drone · 29.05.2016, 22:56

Сообщение от Кайрат Оспанов

Добавлено через 1 час 26 минут
Ой как много тут отзывчивых людей!

С чего Вы взяли, что на этом форуме много отзывчивых людей? Да за гигантский срок в неполных полтора часа не нашлось никого, кто бы удосужился написать архиважную эпохальную программу за Вас! Очевидно, что все эти люди ничем более не заняты, кроме как праздным торчанием на форуме, и не стали Вам писать программу просто из-за вредности.

В Вашей программе есть алгоритмические ошибки. Шаг должен быть 0.5, а не 1. Нужно найти корень кубический из суммы положительных значений функции, а не корни кубические из положительных значений функции. В функции ошибка, вычисляется ae^x вместо a^x. Исправленный вариант Вашей программы:

Pascal

program ololo;
const a = 0.54;
var x, y, s: real; xx: integer;
begin
  s := 0;
  for xx := - 10 to 10 do
    begin
      x := xx / 2;
      y := -1 / sqrt(sqr(x) + a) + exp(x * ln(a));
      writeln('y(', x:4:1, ') = ', y:16:13);
      if y > 0 then s := s + y
    end;
  s := exp(ln(s) / 3);
  writeln('Кубический корень из суммы положительных значений функции = ', s:0:13);
  readln
end.

В принципе, нужно было бы ещё сделать проверку на наличие положительных значений функции, но, ввиду очевидного их присутствия, я этого делать не стал.

@Кайрат Оспанов 0 / 0 / 1 Регистрация: 16.05.2016 Сообщений: 2
		1
	Извлечь кубический корень 25.05.2016, 08:28. Показов 3127. Ответов 2 Метки нет (Все метки) Здравствуйте. Помогите составить программу. Извлечь кубический корень из суммы положительных значений функции на интервале. За а=0.54 $https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> y=-\frac{1}{\sqrt{x^2+a}}+a^x<br />$ 0

	29.05.2016, 22:56

Извлечь кубический корень

Решение