profile
Опубликовано 6 лет назад по предмету Информатика от kemmy

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

  1. Ответ
    Ответ дан iolandavalerypad353
    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.
    1. Ответ
      Ответ дан DonPedro80
      Вы бы еще Канта, Гегеля и Аристотеля с Демокритом сюда добавили.
    2. Ответ
      Ответ дан DonPedro80
      Я обратил Ваше внимание на некорректность. Не нравится - не принимайте во внимание. Забудьте.
    3. Ответ
      Ответ дан iolandavalerypad353
      Ааа, ну окей, вот и поговорили
    4. Ответ
      Ответ дан DonPedro80
      А смысл трындеть бестолку?
    5. Ответ
      Ответ дан DonPedro80
      Все математические абстракции разбиваются вдрызг о конечность и неточность представления вещественных чисел в компьютере.
  2. Ответ
    Ответ дан DonPedro80
    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.

Самые новые вопросы