[Pascal] Решение квадратного уравнения

[KateMM]

И вопрос еще, как получилось число 100500 (что-то пр счете оно не получается)??

var
a, b, c: real;
x1,x2,y1,y2:Real;
procedure sq (a,b,c: real;var x1,x2:Real);
var d: real;

[KateMM]

К кому обратиться-то можно??????

[whatever]

Да ко всем можно. Напиши задание хоть. Что прога делает\должна делать? Что неустраивает? Что за стопицот? Я запустил и не увидел.
p.s. название у темы тоже великолепное.

[Hacker19_90]

Чёт не совсем я понял!

Очень прошу, сделайте, пожалуйста, подробный алгоритм.

Какой алгоритм? Это решение квадратного уравнения! Зайдите на википедию и посмотрите, как его решают

И вопрос еще, как получилось число 100500 (что-то пр счете оно не получается)??

как как смотрим код

else
begin
x1:=100500;
x2:=100500;
end;

Откуда видим что если дискриминант нашего уравнения отрицателен, то корней нет и переменным присваиваем значения 100500 (типо шутки)

[KateMM]

Мне нужен подробный алгоритм

[Poma][a]

Какой алгоритм??? решение квадратного уравнения? На форуме 1000 раз решались такие задачи.

[KateMM]

Ок..........