программа вычисления значения функции

[arshavin]

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

есть почти всё
кроме формул для всех участков

program q;
var x,m: real;
begin
writeln('xxx 205');
write('vvedite x=');readln(x);
if (x<-7) or (x>3) then
 begin
   writeln('znachenie dolgno prinadlejat intervalu [-7;3]');readln;
   exit
 end;
m:=x+1;
if (x <-6) then writeln ('y= ',???) else
if (x <-2) then writeln ('y=',??? ) else
if (x <0) then writeln ('y=',???) else
if (x <2 ) then writeln ('y= ',???) else
if (x <3 ) then writeln ('y=',???) else
writeln('y=ne naydeno');
readln;
end.

[arshavin]

ну помогите плз!!

[phomm]

ну блин.. тут недогадаться вообще же...

1) y=2
2) y =х/4+0,5
3) (у-2)^2+(x+2)^2 = 2^2 , у сам выведи, там ещё надо учесть четверть окружность, которая при инвертированном знаке аргументов
4) (у)^2+(x)^2 = 2^2
5) у=-х+2

не проверял особо, но вроде так как -то ))

[Zer0]

вопрос к ТС - а если не секрет, вы где учитесь?

[arshavin]

в школе учусь