Решение системы уравнений

@Br0k · Регистрация: 24.04.2016

Решить систему уравнений.

@Cyber_Monster_ · 24.04.2016, 15:20

Pascal

const
  xn=0.8;
  xh=0.1;
  xe=2.0;
  ap=0.9;
var
  x: real:= xn;
function main(x: real):real;
begin
  if xh>1
    then
      result:=ap*Log10(x)+Power(Abs(x),(1/3))
    else
      Result:=2*ap*Cos(x)+3*x*x;
end;
begin
  while x<=xe+xh do
    begin
      Writeln(x:4,'  ',main(x));
      x+=xh;
    end;
end.

@Br0k · 24.04.2016, 15:27 **[ТС]**

Большое спасибо!

@Cyber_Monster_ · 24.04.2016, 15:29

Пожалуйста!

@Br0k 0 / 0 / 0 Регистрация: 24.04.2016 Сообщений: 6
		1
	Решение системы уравнений 24.04.2016, 14:58. Просмотров 433. Ответов 3 Метки нет (Все метки) Решить систему уравнений. 0 Миниатюры

@Br0k 0 / 0 / 0 Регистрация: 24.04.2016 Сообщений: 6
	24.04.2016, 15:27 [ТС]	3
	Большое спасибо! 0

@Cyber_Monster_ 145 / 126 / 155 Регистрация: 22.03.2016 Сообщений: 498
	24.04.2016, 15:29	4
	Пожалуйста! 0

Опции темы