Задание: Составить программу для вычисления функции в произвольной точке с учётом области определения функции. Ввод аргументов осуществить с помощью оператора Real.
Вот то, что я сделал:
Program Task_4;
Var
x,y: Real;
Begin
Read(x);
y:=Sqrt(x)/(Sin(x)+Cos(x));
WriteLn(y)
End.
Сомневаюсь. Может надо было как то учитывать область определения? Или не надо и так сойдёт. Как думаете?
Область определения конечно же надо учитывать - в условии же сказано!
1. x>=0
2.sin(x)+cos(x)<>0 => x<>-pi/4+2*pi*n и x<>3pi/4 + 2*pi*n.
Я совсем почти не разбираюсь в программировании. И не понял Так чтоли прямо писать в программе?
Необходимо добавить условие в программу
Program Task_4;
Var
x,y: Real;
Begin
Read(x);
If (x>=0) and (Sin(x)+Cos(x)<>0) then
begin
y:=Sqrt(x)/(Sin(x)+Cos(x));
WriteLn(y)
end
else writeln('В данной точке функция не определена')
End.
Русская версия Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)