Определить функцию, позволяющую распознавать наличие вещественных корней в квадратном...

Question

Определить функцию, позволяющую распознавать наличие вещественных корней в квадратном уравнение.
Делфи или Паскаль

Answer 1

// PascalABC.NET 3.3, сборка 1555 от 21.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var HasReal:(real,real,real)->boolean:=(a,b,c)->b*b-4*a*c>=0;
  Writeln(HasReal(5.5,-3,4.2));
  Writeln(HasReal(1,-2,-6))
end.

Результат
False
True

Первая строка - определение функции HasReal, остальные две - примеры обращения к ней.