pascal граффик функции

[РоманМар]

Написать+программу+которая+по+введе нному+значению+аргумента+вычисляет+ значение+фкнкции+заданной+в+виде+гр афика+параметр+r+вводится+с+клавиат уры.

[Aleksandr H.]

В чем смысл такого стиля сообщения?

[p51x]

А в чем смыл барского приказа для холопа?

[digitalis]

Ну ребенок первый раз на форуме, а вежливости, видимо, его не учили. Да еще и пробел на его компе моль сгрызла. Он сейчас переформулирует просьбу. Или пойдет лесом.

[newerow1989]

const r=3;
var x,y:real;
begin
   Write('x = '); Readln(x);
   y:=-3;
   If (x>=-3) and (x<=3) then
      y:=3-Sqrt(r*r-x*x);
   If x>3 then
      y:=9-2*x;
   if x>6 then
      y:=-9+x;
   Writeln(y:5:5);
   Readln;
end.

[digitalis]

"Улучшать - так улучшать! "© Карс Маркл

        If (x>=-3) and (x<=3) then  y:=3-Sqrt(r*r-x*x) else
           If x>6 then y:=-9+x else
             If x>3 then  y:=9-2*x else  y := 3 ;

Хотя студент-грубиян и предыдущего ответа не заслуживает.