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

[Крот]

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

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

Вроде вот так можно (Если не ошибся в формуле возведения в степень)

  power(8, 1/3);

Извините за повторный ответ. Интернет ужасно тормозит.

[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.

[Hacker19_90]

Уважаемый GidroFobia!
Давай те посмотрим на вчерашнюю вашу тему! Мы там это уже проходили
ЗЫ: Если лень то можно добавить Readln

[Крот]

ввожу значения чисел, жму ентр, а окошко берет и закрывается.

Попробуй добавь в конце программы Read(); или Read; (без скобок)

[GidroFobia]

Всем спасибо!
Программу сделал
Кому интересно, вот:

Program test;

label m1
;
var a,b,c,n,m,x1,x2:real;
vopros: string;

begin
m1 : writeln('НАД ПРОГРАММОЙ ТРУДИЛСЯ GIDROFOBIA');
writeln('----------------------------------------');
writeln('|               ФОРМУЛА:               |');   
writeln('|                  __________________  |');
writeln('|          -B + - V B * B - 4 * A * C  |');
writeln('| X1,X2  = --------------------------  |');
writeln('|                    2 * A             |');
writeln('----------------------------------------');
writeln('ЗАДАЁМ ЗНАЧЕНИЯ А,В,С:');

write('A=');
 read(a);

if a = 0 then writeln('A НЕ МОЖЕТ БЫТЬ = 0');

WriteLn;
 
write('B=');
 read(b);
 
WriteLn;
 
write('C=');
 read(c);

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('        OTBET:');
WriteLn;
writeln('D=',n:5:5);
writeln('x1=',x1:5:5);
writeln('x2=',x2:5:5);
writeln('-----------------------');
readln;
writeln('ХОТИТЕ ПОСЧИТАТЬ ЕЩЕ? ЕСЛИ ДА, ТО ВВЕДИТЕ НАЖЕ "YES"');
readln(vopros);
if vopros='YES' then goto m1;
end.