По введенному значению аргумента вычислить значение функции, заданной в виде графика - 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.

Объяснение кода листинга программы

  1. var r,x,y:real;
  2. k:byte;
  3. begin
  4. repeat
  5. write('R>0 r=');
  6. readln(r);
  7. until r>0;
  8. write('x=');
  9. readln(x);
  10. k:=0;
  11. if x<=-2 then y:=x+3
  12. else if x<=4 then y:=-r*x/4
  13. else if x<=6 then y:=-r
  14. else if x<=6+2r then y:=sqrt(rr-sqr(x-6-r))-r
  15. else k:=1;
  16. if k=1 then write('y не определено')
  17. else write('y=',y:0:2);
  18. end.

Оцени полезность:

12   голосов , оценка 4.417 из 5
Похожие ответы