Первый семестр / Лабалаторная работа №1 / Код

program lab1;
var A,x,y,AR:real; {A - результат. x и y вводятся пользователем. AR - Accectable Range,переменная для проверки соответствия ОДЗ}
begin
{Приглашение на ввод начальных данных}
writeln ('Введите переменные x и y для вычисления значения A=lg((x)^1/3+v(y)). Переменные x и y вещественного типа:');
{Ввод данных}
write ('Переменная x->'); readln (x);
write ('Переменная y->'); readln (y);
{Проверка ОДЗ}
if (y<0) then writeln ('Решение лежит в области комплексных чисел') else {при y<0 будет попытка вычислить квадратный корень из отрицательного числа, что невозможно во множестве вещественных чисел}
begin
if (x<0) then AR:=-(power(-x,1/3))+sqrt(y) else AR:=(power(x,1/3))+sqrt(y); {Всегда можно вычислить корень третьей степени из отрицательного числа, но в связи с реализацией функции power, в
Pascal это невозможно. Для обхода ограничения можно вычислить корень третьей степени из положительного числа,
а позже сменить знак}
if (AR<=0) then writeln ('Выражение (x)^1/3+v(y)<=0. Невозможно вычислить lg(a), где a=0 или a<0')
{Вычисление и вывод результата}
else begin
A:=log10(AR); {Вычисление A. log10(выражение) - то же самое что и lg(выражение)}
writeln ('Значение A=',A);
end
end
end.