Решение квадратного уравнения с помощью CASE

[KemanSR]

Доброго всем вечера!
Прошу вас помочь направить меня в решении квадратного уравнения с помощью операторов ветвления CASE. Ну Вы понимаете, что надо проверить коэффициенты a, b, c, если нужно вычислить дискриминант ну и т.д. Хоть я и считаю, что применение CASE нерационально, но задание именно такое. Заранее благодарен, Алексей. P.S. написать нужно на паскале, но это не важно.

[KemanSR]

Вообще помещать вопрос в данной ветке мне кажется не продуктивно.

[ZX Spectrum-128]

Как вариант

function sgn(x:real):integer;
begin
if x>0 then
sgn:=1
else
if x=0 then
sgn:=0
else
sgn:=-1;
end;

...
d:=b*b-4*a*c;
case sgn(d) of
-1 : // действ. корней нет
0 : // одинаковые корни
1 : // решаем квадратное уравнение
end;

[KemanSR]

Здесь меня отталкивает то, что CASE кажется двойной работой.

[Аватар]

Здесь меня отталкивает то, что CASE кажется двойной работой.

Отталкивает - не используй

Вообще помещать вопрос в данной ветке мне кажется не продуктивно.

Согласен, гораздо более продуктивно самому извилинами пошевелить

[KemanSR]

Сообщение от Аватар

Согласен, гораздо более продуктивно самому извилинами пошевелить

Шевеление моими извилинами подсказало мне два подобных ZX Spectrum-128'у решений и я как новичок пришел и задал вопрос в надежде на то что получу ориентир и ... Спасибо я стал больше верить в свои силы.