Const e=0.0001; // точность var gold: real; // пропорция "золотого сечения" a,b: real; // начало и конец отрезка x1,x2: real; // точки деления y1,y2: real; // значения целевой функции в точках деления function f(x: real): real; // целевая функция begin f: =x*x*x-8*x+1-5*sin(x); end; begin gold: =(sqrt(5)+1)/2; a: =-5; b: =5; repeat x1: =b-((b-a)/gold); x2: =a+((b-a)/gold); y1: =f(x1); y2: =f(x2); if(y1< =y2) then a: =x1 else b: =x2; // условие - поиск максимума until abs(y2-y1) writeln('max(',(x1+x2)/2: 0: 3,',',(y1+y2)/2: 0: 3,')'); // середина интервала a: =-5; b: =5; repeat x1: =b-((b-a)/gold); x2: =a+((b-a)/gold); y1: =f(x1); y2: =f(x2); if(y1> =y2) then a: =x1 else b: =x2; // условие - поиск минимума until abs(y2-y1) writeln('min(',(x1+x2)/2: 0: 3,',',(y1+y2)/2: 0: 3,')'); end. перевести на питон с паскаля

daramarkel    1   23.04.2019 15:55    1