Паскаль. Нужно написать программы, помогите пожалуйста
1. y=√x^2+4(корень закончился) при x∈[-4;4)
2. y=√x^2-4(корень закончился) при x∈[-4;4)
Ответы на вопрос
Ответил petyaGavrikov
0
1.
var x: real;
begin
readln(x);
if (x>=-4)and(x<4) then writeln('y = ',sqrt(x*x+4))
else writeln('Функция не определена');
end.
Пример:
2
y = 2.828427124746190e+00
2.
var x: real;
begin
readln(x);
if (x>=-4)and(x<4) then
begin
if x*x-4>=0 then writeln('y = ',sqrt(x*x-4))
else writeln('Корень из отрицательного числа');
end
else writeln('Функция не определена');
end.
Пример:
0.5
Корень из отрицательного числа
var x: real;
begin
readln(x);
if (x>=-4)and(x<4) then writeln('y = ',sqrt(x*x+4))
else writeln('Функция не определена');
end.
Пример:
2
y = 2.828427124746190e+00
2.
var x: real;
begin
readln(x);
if (x>=-4)and(x<4) then
begin
if x*x-4>=0 then writeln('y = ',sqrt(x*x-4))
else writeln('Корень из отрицательного числа');
end
else writeln('Функция не определена');
end.
Пример:
0.5
Корень из отрицательного числа
Ответил tankameshcheryakova
0
эти программы не работают
Ответил tankameshcheryakova
0
ошибка в двух программах - Переменная 'y' нигде не используется
Ответил petyaGavrikov
0
Программы рабочие. "Переменная 'y' нигде не используется" - это предупреждение, а не ошибка.
Новые вопросы