Паскаль! составить программу в паскале решение дифференциального уравнения второго порядка например, y"-4'+3y=0

190

374

Посмотреть ответы 2

Ответы на вопрос:

GMA111111

Информатика

4,7(84 оценок)

// pascalabc.net 3.2, сборка 1416 от 26.03.2017 // внимание! если программа не работает, обновите версию! function cx(x: real): string; begin if frac(x)=0 then case trunc(x) of 0: result: =''; 1: result: ='*exp(x)'; -1: result: ='*exp(-x)' else result: ='*exp('+x+'x)' end else result: ='*exp('+x+'x)' end; function cx1(x: real): string; begin if frac(x)=0 then case trunc(x) of 1: result: =''; -1: result: ='-' else result: =x.tostring end else result: =x.tostring end; begin var b,c: real; writeln('введите коэффициенты уравнения y''''+by''+cy=0'); read(b,c); var d: =b*b-4*c; if d> 0 then begin d: =sqrt(d); var x1: =(-b-d)/2; var x2: =(-b+d)/2; writeln('y=c1',cx(x1),'+c2',cx(x2)) end else if d=0 then begin var x: =-b/2; if x=0 then writeln('y=c1+c2*x') else writeln('y=c1',cx(x),'+c2*x',cx(x)) end else begin var re: =-b/2; var im: =sqrt(-d)/2; if re=0 then writeln('y=c1*cos(',cx1(im),'x)+c2*sin(',cx1(im),'x)') else writeln('y=exp(',cx1(re),'x)*(c1*cos(',cx1(im), 'x)+c2*sin(',cx1(im),'x))') end end. примеры введите коэффициенты уравнения y''+by'+cy=0 -2 10 y=exp(x)*(c1*cos(3x)+c2*sin(3x)) введите коэффициенты уравнения y''+by'+cy=0 -4 3 y=c1*exp(x)+c2*exp(3x)