Program a1;
var a,b,c,x,x1,x2,d:real;
begin
write('Введите а '); read(a);
write('Введите b '); read(b);
write('Введите c '); read(c);
begin
d:=sqr(b)-4*a*c;
if d<0 then
begin
write('Нет корней');
end
else
begin
if d=0 then
begin
x:=-b/(2*a);
write('x=' , x);
end
else
begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
write('x1=',x1,'x2=',x2);
end;
end;
end;
end. <span> </span>
<em>// PascalABC.NET 3.2, сборка 1379 от 21.01.2017</em><em>// Внимание! Если программа не работает, обновите версию!</em>begin
var n:=ReadInteger('Степень полинома:');
var p:=ReadArrReal('Коэффициенты полинома по убыванию степеней:',n+1);
var a:=ReadReal('Значение А:');
var q:=new real[n+2];
q[0]:=p[0];
q[n+1]:=-p[n]*a;
for var i:=1 to n do q[i]:=p[i]-a*p[i-1];
Writeln('Коэффициенты результирующего полинома');
q.Println
end.
<em>Контрольный пример</em>P(x)=3x²-4x+5, A=2.5
(x-A)P(x)=3x³-11.5x²+15x-12.5
<u>Результат выполнения программы</u>Степень полинома: 2
Коэффициенты полинома по убыванию степеней: 3 -4 5
Значение А: 2.5
Коэффициенты результирующего полинома
3 -11.5 15 -12.5
В скобках степень , удачи
10001000(2)<span> = 1∙2</span>7+0∙26+0∙25+0∙24+1∙23+0∙22+0∙21+0∙20<span> = 128+0+0+0+8+0+0+0 = 136(</span>10)
<span>Получилось: </span><span>136(10)</span><span> </span>
Данный файл мог быть прикреплён каким либо трояном червём или же другой малварью рекомендую вылечить если не поможет удаляй
<span>
1101₂
-111011₂
1100₂
х11011₂
101₂
10101110₂÷111₂</span>