Ответы на вопрос:
1. строка
далее цифры не видны, но желтый цвет - ячейка, под С - столбец
3. 1-текстовой
2 - числовой
3 - денежный
4 - дата
// 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)
Популярно: Информатика
-
Vetaflyy20.04.2022 00:24
-
terteryanmarin03.07.2022 06:17
-
Магомед0511127.02.2021 20:10
-
L1mbada17.03.2021 06:54
-
DnoKaKtys14.09.2022 18:29
-
Sasha03050607.06.2023 09:37
-
kcybulina31.01.2023 19:31
-
Ksysoeva2016.03.2022 22:47
-
extysq300004.04.2021 22:13
-
mrsuper773outlookcom24.02.2022 18:30