← Усі приклади

Квадратне рівняння

Pascal Галуження

дискримінант, if / else

Блок-схема за ДСТУ

ТакНіТакНіПочатокВвід a, b, cd = b * b - 4 * a * cd > 0x1 = (-b + sqrt(d)) / (2 * a)x2 = (-b - sqrt(d)) / (2 * a)Вивід «x1=» x1 « x2=» x2d = 0Вивід «x=» -b / (2 * a)Вивід «Дійсних коренів немає»КінецьРисунок 1 — Solve

Вихідний код

procedure Solve(a, b, c: real);
var d, x1, x2: real;
begin
  d := b * b - 4 * a * c;
  if d > 0 then
  begin
    x1 := (-b + sqrt(d)) / (2 * a);
    x2 := (-b - sqrt(d)) / (2 * a);
    writeln('x1=', x1, ' x2=', x2);
  end
  else if d = 0 then
    writeln('x=', -b / (2 * a))
  else
    writeln('Дійсних коренів немає');
end;