Как вывести корень из числа?

[GidroFobia]

пишу программу для вычисления дискриминта.
вот момент в коде, где заданные числа, встают на свои места в формуле:

n:=b*b-4*a*c
тут мы вычислили число под корнем, а теперь нажно извлечь этот корень, а как это сделать я не знаю, подскажите пожалуйста.

[GidroFobia]

Всё, сам разобрался
s:=sqrt(n);

я просто когда впервый раз прописывал, n в скобки не взял

[DiemonStar]

на будущее - пишите язык программирования, на котором вам нужно код сделать. это здорово помогает.

[Hacker19_90]

D := n*n - 4*a*c;
if D > 0 then
begin
    x1 := (-b+sqrt(D))/(2*a);
    x2 := (-b-sqrt(D))/(2*a);
end;
if D = 0 then 
begin
    x1 := (-b)/(2*a);
    x2 := x1;
end;
if D < 0 then Writeln ('Корней нет!');

[Крот]

Сообщение от Hacker19_90

D := n*n - 4*a*c;
if D > 0 then
begin
    x1 := (-b+sqrt(D))/(2*a);
    x2 := (-b-sqrt(D))/(2*a);
end;
if D = 0 then 
begin
    x1 := (-b)/(2*a);
    x2 := x1;
end;
if D < 0 then Writeln ('Корней нет!');

Здесь еще нужно чтобы a не было равно 0

[GidroFobia]

Вот скрипт. Проблему такова: ввожу значения чисел, жму ентр, а окошко берет и закрывается. помогите пожалуйста найти ошибку.

Program dis;

var a,b,c,n,s,x1,x2:real;

begin

writeln('НАД ПРОГРАММОЙ ТРУДИЛСЯ GidroFobia!');
writeln('---------------------');
writeln('         ”ФОРМУЛА:');
writeln('          ___________');
writeln('         V b*b-4*a*c');
writeln('---------------------');
WRITELN;
writeln('ЗАДАЙТЕ ЗНАЧЕНИЯ A,B,C:');
write('A=');
 read(a);

 if a=0 then writeln('НЕТ РЕШЕНИЯ!!!');

write('B=');
 read(b);

write('C=');
 read(c);

WRITELN;
 
n:= b*b - 4*a*c;

if n > 0 then
begin
    x1 := (-b+sqrt(n))/(2*a);
    x2 := (-b-sqrt(n))/(2*a);
end;
if n = 0 then
begin
    x1 := (-b)/(2*a);
    x2 := x1;
end;
if n < 0 then Writeln ('ЉЋђЌ…‰ Ќ…’!');

writeln('---------------------');

WRITELN;
end.

Крот, СПАСИБО ЧТО НАПОМНИЛ
ДОПИСАЛ

[Крот]

if a=0 then writeln('НЕТ РЕШЕНИЯ!!!');

Не совсем правильно. Если a = 0 то x = -c/b; (Опят таки, если b тоже не равно 0).

[VintProg]

Кстати а есть функция, что-бы вычислить кубический корень? Например кубический корень из 8 = 2.

[GidroFobia]

нет, а пишу программу, каторая будет выводить дискриминант, а формула его такова:
-b+-(b^2 - 4 * a *c)
__________________
2a

из этого следует: если а=0, то решения нет, так как на 0 делить нельзя!!!!

VintProg, вот этот кодик, в нём ничего сложного нет:

exp((1/3) * ln(a))

[Hacker19_90]

Кстати а есть функция, что-бы вычислить кубический корень?

Есть в делфи
используйте функцию power
Функция Power( X,Y: Extended ): Extended;

s := power (8, 1/3);

в паскале через експоненту

s := exp(ln(8)*(1/3));