Построить аналитическую зависимость для заданной функции - Pascal ABC

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

Для функции y = y(x), заданной графически, построить аналитическую зависимость. Составить программу вычисления величины y при заданном значении аргумента. Заранее спасибо.

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

textual
var c,d,x,y:real;
    k:byte;
begin
repeat
writeln('Введите положительные значения c,d');
readln(c,d);
until(c>0)and(d>0);
write('Введите x=');
readln(x);
k:=0;
if abs(x)>=c then y:=0
else if (x>-c)and(x<0)then y:=d/c*x+d
else if (x>0)and(x<c)then y:=d/c*x-d
else k:=1;
if k=0 then writeln('y=',y:0:2)
else writeln('y1=',d:0:2,'  y2=',-d:0:2);
end.

10   голосов, оценка 3.600 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы