Нужно решить задачу!

[interacia]

Program IF1;
var
X:real;
Otvet:real;
begin
Writeln('Введите число x=');
readln(x);
if (sqr(x)-x)<=1 then Writeln('полученное число =',power(x,3)-3*x+8)
else Writeln('полученное число =',1/(power(x,3)-3*x+8));
end.

[Вадим Мошев]

И нифига не будет работать.

[DrStrangeLove]

var polynom1 = [1,0,-3,8];
var polynom2 = [1,-1,0];



function mainFunc(x){
  var r;
  
  if  (horner(x,polynom2)<=1) {
       
    return horner(x,polynom1);
  
  }
  
  if (horner(x,polynom2)>1) {
     r = horner(x,polynom1);
    
    return 1/r;
  
  }
  
}

function horner(x,a){
 var result = 0;
  for (var i=0;i< a.length;i++){
        result = result * x + a[i];
   }
  
  return result;

}

Это конечно не разу не паскаль, но может чем-то поможет...

Наглядный пример: http://jsbin.com/uqiten/1/edit (можно вводить значения х в поле Ввод)

[nokoston]

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

var polynom1 = [1,0,-3,8];
var polynom2 = [1,-1,0];



function mainFunc(x){
  var r;
  
  if  (horner(x,polynom2)<=1) {
       
    return horner(x,polynom1);
  
  }
  
  if (horner(x,polynom2)>1) {
     r = horner(x,polynom1);
    
    return 1/r;
  
  }
  
}

function horner(x,a){
 var result = 0;
  for (var i=0;i< a.length;i++){
        result = result * x + a[i];
   }
  
  return result;

}

Это конечно не разу не паскаль, но может чем-то поможет...

Наглядный пример: http://jsbin.com/uqiten/1/edit (можно вводить значения х в поле Ввод)

А на каком это языке??????

[Вадим Мошев]

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

А на каком это языке??????

Это был JavaScript

nokoston, вот видите, что получается. Вы уже второй день ищете решение задачи на своём языке, но не находите. Я вам предложил решение задачи, но вы мои предложения игнорируете. Что ж, если человек не умный, то в худшем случае это навсегда. В лучшем - вас кто-то образумит, но вам это будет дорого стоить.

[Smitt&Wesson]

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

nokoston, какой язык нужен?

Смотря с каким банком работаете. Усли в Зулусе, то зулусский.

[acteralex]

Сообщение от Smitt&Wesson

Смотря с каким банком работаете. Усли в Зулусе, то зулусский.

очень смешно!

[Вадим Мошев]

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

очень смешно!

[nokoston]

Сообщение от Вадим Мошев

Это был JavaScript

nokoston, вот видите, что получается. Вы уже второй день ищете решение задачи на своём языке, но не находите. Я вам предложил решение задачи, но вы мои предложения игнорируете. Что ж, если человек не умный, то в худшем случае это навсегда. В лучшем - вас кто-то образумит, но вам это будет дорого стоить.

Вадим, суть в том что в моей контрольной несколько подобных задач, и за каждую задачу я не хочу платить так как деньгу хочу сэкономить в другое дело! И если я не найду решение этих задач за бесплатно, то мне будет легче заплатить препаду на перездаче чем платить за каждую задачу не зная пройдут они или нет. Такие дела)

[Вадим Мошев]

Ага, в таком случае всё понятно. Я прошу извинить меня за те слова в ваш адрес, но меня просто раздражают те ситуации, когда человек занимается ингорированием, вот как происходило до этого. Я предпочитаю прямоту, когда люди прямо сообщают, что хотя получить помощь за бесплатно. Это лучше, чем не получить никакого ответа.