Question

помогите решать задачу по информатике пожалуйста... фото выложила, 5 ая задача

Answer 1

function Foo(x:real):real;
begin
   if x<0 then result:=1/(x-1)
   else if (x>0) and (x<>5) then result:=1/(x-5)
end;

begin
   var x := ReadlnReal('x =');
   if (x = 0) or (x = 5) then
      Print('Функция не определена')
   else Print('y = ',Foo(x))
end.

Answer 2

Вы бы еще Канта, Гегеля и Аристотеля с Демокритом сюда добавили.

Answer 3

Я обратил Ваше внимание на некорректность. Не нравится - не принимайте во внимание. Забудьте.

Answer 4

Ааа, ну окей, вот и поговорили

Answer 5

А смысл трындеть бестолку?

Answer 6

Все математические абстракции разбиваются вдрызг о конечность и неточность представления вещественных чисел в компьютере.

Answer 7

var
  x,y:real;
begin
  Write('Введите число: ');
  Readln(x);
  if x=0 then Writeln('Функция не определена')
  else if x=5 then Writeln('Значение функции бесконечно')
  else
  begin
    if x<0 then y:=1/(x-1)
    else y:=1/(x-5);
    Writeln('F(x)=',y)
  end
end.