Ошибка в pascal (Встречен конец файла, а ожидался оператор)

Помогите, что нужно дописать чтобы ошибка исчезла?

Функция:

function sqrt1 (a, b, c: real) : real;

begin

if (2 * a + b - c) < 0 then

writeln (' complex number ') - проверка на комплексные числа

else sqrt1: = sqrt (2 * a + b - c) ;

end;

Question

Информатика

Ирина

7 апреля, 00:46

Ошибка в pascal (Встречен конец файла, а ожидался оператор)

Помогите, что нужно дописать чтобы ошибка исчезла?

Функция:

function sqrt1 (a, b, c: real) : real;

begin

if (2 * a + b - c) < 0 then

writeln (' complex number ') - проверка на комплексные числа

else sqrt1: = sqrt (2 * a + b - c) ;

end;

+5

Ответы (1)

Знаете ответ?

Денница · Answer 1

Нужно что-то присвоить функции для случая, когда (2*a+b-c) <0

Например, так:

function sqrt1 (a, b, c: real) : real;

begin

if (2 * a + b - c) < 0 then

begin writeln (' complex number ') ; sqrt1:=-1; end

else sqrt1: = sqrt (2 * a + b - c) ;

end;