Вычислить значения функции, заданной графически

[:Hater:]

Вычислить значения функции, заданной графически

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

 

[:Hater:]

простите не ту вставил картинку. вот график который мне нужен

 

[Vladimir_S]

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

Да ну... это даже не смешно.

Var
 x:real;
Begin
 Write('x= ');
 Readln(x);
 If x<0 then
  Writeln('Invalid x!')
 else
  Writeln('y = ',(1-Sqrt(1-Sqr(x-2.0*(Trunc(x) div 2)-1))):5:3);
 Readln;
End.