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

[s-andriano]

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

...но меня просто раздражают те ситуации, когда человек занимается ингорированием, вот как происходило до этого.

С моей точки зрения, если человек разместил тему не в разделе "Фриланс", он не собирается платить за решение.
Разумеется, он мог ошибиться, поэтому вполне допустимо намекнуть ему на такую возможность (и я сам иногда намекаю, хотя не пишу софт за деньги). Но требовать от человека обязательного ответа на предложение заплатить в разделе, предназначенном для бесплатной помощи, IMHO mauvais ton.

[Smitt&Wesson]

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

Решай, - разрешаю.

[DrStrangeLove]

Перевёл с JS на Паскаль:

program myprogram;

Var 

   polynom1: Array[1..4] of Integer = (1,0,-3,8);
   polynom2: Array[1..3] of Integer = (1,-1,0);
   xval,r,resul:real;
  
function horner(x:real;a:Array of integer):real;
var res:real;
var i:Integer;
   
begin
res:= 0;
   
for i := 0 to length(a)-1 do
   begin
   res := (res * x) + real(a[i]);
   end;
   
horner := res; 
   
end;
   
   
begin

WriteLn('Vvedite znachenie x:');
ReadLn(xval);

if  ((horner(xval,polynom2)) <= 1) then
  begin  
  resul := horner(xval,polynom1);
  WriteLn(resul:13:3);
  end;
  
  
if ((horner(xval,polynom2)) > 1) then
  begin
  r := horner(xval,polynom1);
  resul := 1/r;
  WriteLn(resul:13:3);

  end;
end.

Только паскаль у меня не основной язык, и если чо извини...
Но этот код компилируется (на FreePascal под Windows7 ) и работает...

[nokoston]

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

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

Прошу меня тоже извинить, сразу вам не ответил. Просто я быстрентко заходил смотрел нет ли кода и выходил. Не тратил время на ответы))