PascalABC.NET 3.4.2, сборка 1814 от 02.10.2018
Внимание! Если программа не работает, обновите версию!
begin
var (B, C) := (0.24, 0.14);
for var i := 0 to 10 do
begin
var T := 0.1 * i;
var A := T > 0.2 ? T : -T;
var s := $'A={A,4:f1}, B={B,4:f2}, C={C,4:f2}';
var D := B * B - 4 * A * C;
if (A = 0) or (D < 0) then s += ' Решения нет'
else
if D = 0 then s += $' x={-B/A/A,20:f17}'
else s += $' x1={(-B-Sqrt(D))/A/A,20:f17}, x2={(-B+Sqrt(D))/A/A,20:f17}';
s.Println
end
end.
