Помогите, пожалуйста, написать программу решения геометрической задачи в Паскаль

[Anastasia12]

Помогите, пожалуйста, написать программу решения геометрической задачи в Паскаль

написать код программы, вычисляющей значения функции y, заданной графически, по значениям аргумента x, введенным с консоли

 

[Vladimir_S]

написать код программы, вычисляющей значения функции y, заданной графически, по значениям аргумента x, введенным с консоли

Да пожалуйста:

Var
 x,y:Real;
 xC:Integer;

Begin
 Repeat
  repeat
   Write('Enter x (0 to quit): ');
   Readln(x);
   if x<0 then writeln('Error! X must be >=0');
  until x>=0;
  xC:=Trunc(x);
  if (xC mod 2)=0 then Inc(xC);
  y:=Sqrt(1-Sqr(1.0*xC-x));
  Writeln('Y = ',y:0:3);
 Until x=0;
End.

 

[Anastasia12]

спасибо большоеreved: