Информатика, вопрос задал tankameshcheryakova , 8 лет назад

Паскаль. Нужно написать программы, помогите пожалуйста
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
Корень из отрицательного числа
Ответил tankameshcheryakova
0
эти программы не работают
Ответил tankameshcheryakova
0
ошибка в двух программах - Переменная 'y' нигде не используется
Ответил petyaGavrikov
0
Программы рабочие. "Переменная 'y' нигде не используется" - это предупреждение, а не ошибка.
Новые вопросы