По введенному значению аргумента вычислить значение функции, заданной в виде графика - Pascal ABC (13537)

Формулировка задачи:

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

Код к задаче: «По введенному значению аргумента вычислить значение функции, заданной в виде графика - Pascal ABC (13537)»

textual
var r,x,y:real;
    k:byte;
begin
repeat
write('R>0 r=');
readln(r);
until r>0;
write('x=');
readln(x);
k:=0;
if x<=-2 then y:=x+3
else if x<=4 then y:=-r*x/4
else if x<=6 then y:=-r
else if x<=6+2*r then y:=sqrt(r*r-sqr(x-6-r))-r
else k:=1;
if k=1 then write('y не определено')
else write('y=',y:0:2);
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

12   голосов, оценка 4.417 из 5


СДЕЛАЙТЕ РЕПОСТ