Не пойму в чем ошибка. Кто подскажет?

[Wild_klas]

Здраствуйте. У меня есть задание: Дано дійсне число х. Не. користаючись ніякими іншими арифметичними операціями, крім множення, додавання і віднімання, обчислити 1-2x+3x^2-4x^3 та 1+2x+3x^2+4x^3. Я написал на него такую программу:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils,math;

Function Input(x:real):real;
begin
 Write('Input x= ');
 Readln(x);
end;
Procedure Calculation1(x,Y1:real);
 Begin
   Y1:=1-2*x+3*Sqr(x)-4*Power(x,3);
   Writeln('Y1= ',Y1:4:2);
 end;
Procedure SecondCalculation(x,Y2:real);
 Begin
    Y2:=1+2*x+3*Sqr(x)+4*Power(x,3);
    Writeln('Y2= ',Y2:4:2);
 end;
Var x,Y1,Y2:real;
Begin
     Input(x);
     Calculation1(x,Y1);
     SecondCalculation(x,Y2);
     Readln;
End.

Но считает она не правильно. При вводе любого числа Y1 и Y2 равны 1. Почему так? где ошибка? Подскажите пожалуйста.

[filvika]

Function Input(var x:real):real;

должно помочь

[Serge_Bliznykov]

Function Input(var x:real):real;

должно помочь

угу. должно помочь.
Но, чтобы уж совсем правильно было, нужно вместо описания функции сделать процедуру (т.к. здесь всё равно вызов идёт как процедуры). Вот так лучше:

procedure Input(var x:real);

[Wild_klas]

filvika, благодарю!

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

угу. должно помочь.
Но, чтобы уж совсем правильно было, нужно вместо описания функции сделать процедуру (т.к. здесь всё равно вызов идёт как процедуры). Вот так лучше:

procedure Input(var x:real);

А в чем разница?, объясните пожалуйста.

И еще 1 вопрос:
Она, работает, но выбивает такие ошибки:

Как их убрать? (превод знаю, не знаю как их убрать, подскажите пожалуйста)

[Serge_Bliznykov]

Она, работает, но выбивает такие ошибки:

Это не ошибки, а предупреждения.
И первое уберётся, если Вы сделаете так, как я сказал.
Текст предупреждения гласит: Возвращаемое значение функции Input может быть неопределённым!
а второе и третье предпреждение.
вы вызываете процедуру. Передаёте туда Y1 и Y2.
А зачем?! Вы же всё равно их там внутри вычисляете?! Там их и опишите и не передавайте их.
Но вообще, паскаль в данном случае хочет, чтобы Вы их перед вызовом проиницилизировали:

   Y1:=0;
   Calculation1(x,Y1); 
   Y2:=0;
   SecondCalculation(x,Y2);

[Wild_klas]

Огромное спасибо, за то что объяснили мне. Вот только я не понял что вы мели введу когда говорили

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

А зачем?! Вы же всё равно их там внутри вычисляете?! Там их и опишите и не передавайте их.
]

Как их "там описать и не передавать"??

[Serge_Bliznykov]

Как их "там описать и не передавать"??

так:

Procedure Calculation1(x); 
 var Y1 : real;
 Begin 
   Y1:=1-2*x+3*Sqr(x)-4*Power(x,3); 
   Writeln('Y1= ',Y1:4:2); 
 end; 
Procedure SecondCalculation(x:real); 
 var Y2 : real;
 Begin 
    Y2:=1+2*x+3*Sqr(x)+4*Power(x,3); 
    Writeln('Y2= ',Y2:4:2); 
 end; 
Var x : real; 
Begin 
     Input(x); 
     Calculation1(x); 
     SecondCalculation(x); 
     Readln; 
End.

[Wild_klas]

Serge_Bliznykov, огромное спасибо за ясное объяснение.

Но самый понятный вариант для паскаля это когда Y1,Y2 проинициализированы.
(если их описывать самой процедуре, тогда программа делает некий намек что переменные Y1 и Y2 использованы в проекте )

[Serge_Bliznykov]

Вы Автор программы — Вам и решать, как лучше.

я лично считаю, что не имеет смысла объявлять переменные Y1 и Y2, иницилизировать их и передавать в процедуру, раз Вы их значение там не используете и, важно, вычисленное значение не возвращаете.
Но раз Вы считаете, что так понятнее, нагляднее и лучше - воля Ваша, Вы же программист.