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

[Порфирий]

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

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

 

[Vladimir_S]

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

Ох...
Вот и начался семестр.
И опять та же история: глупейшие, элементарнейшие задачки вываливаются на форумы: вы пишите, я скатаю. А в мае начнётся: ой, спасите-помогите, сделайте курсовик, я не шарю, отчисляют, сволочи!!!
Сколько их уже было...
Ну да ладно, жить Порфирию, взрослый человек, в конце концов.

Var
 x,y:real;

Begin
 Write('x = ');
 Readln(x);
 if x<=0 then y:=x*x
 else
 if x<2 then y:=Sqrt(1-Sqr(x-1))
 else
 y:=0;
 Writeln('y = ',y:0:3);
 Readln
End.