По введенному значению аргумента вычислить значение функции, заданной в виде графика - Pascal ABC (13537)
Формулировка задачи:
Написать программу, которая по введенному значению аргумента вычисляет значение функции, заданной в виде графика. Параметр
R
должен вводиться с клавиатуры. Помогите пожалуйста, заранее благодарен.Решение задачи: «По введенному значению аргумента вычислить значение функции, заданной в виде графика»
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.
Объяснение кода листинга программы
- 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+2r then y:=sqrt(rr-sqr(x-6-r))-r
- else k:=1;
- if k=1 then write('y не определено')
- else write('y=',y:0:2);
- end.