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

Помогите составить программы на языке Паскаль,пожалуйста

1. Дано вещественное число x. Для функции, представленной графиком, вычислить y = f (x).
2. Найти максимальное (минимальное значение).
3. Выяснить, принадлежит ли точка Р(х, у) заштрихованной области.

Каждая картинка соответствует номеру задачи

  1. Ответ
    Ответ дан Аккаунт удален
    PascalABC.NET 3.4.0, сборка 1671 от 31.05.2018
    Внимание! Если программа не работает, обновите версию!

    №1

    begin
      var x:=ReadReal('x=');
      var y:real;
      if x<1 then y:=0.5**x
      else
        if x<4 then y:=4
        else y:=5;
      Writeln(y)
    end.

    №2

    begin
      var(x,y,z):=ReadReal3('Введите x,y,z:');
      Writeln('min=',Min(Sin(x+y),Min(5-6*y,Tan(Abs(z)))))
    end.

    №3

    begin
      var(x,y):=ReadReal2('Введите x,y:');
      if (y<2.5*x+2) and (y<-2.5*x+2) and (y>-3) then Writeln('Принадлежит')
      else Writeln('Не принадлежит')
    end.
    1. Ответ
      Ответ дан kirillpopov673
      Буду благодарен
    2. Ответ
      Ответ дан Аккаунт удален
      По Лазарусу страдают на Украине, а у нас в России им не пользуются практически, так что у меня его нет. И еще - этот код несовместим с Free Pascal, который используется в Лазарус. Так что надо сразу в вопросе указывать необходимый диалект языка/систему программирования.
    3. Ответ
      Ответ дан kirillpopov673
      А что значит 0,5**x?
    4. Ответ
      Ответ дан Аккаунт удален
      0.5 в степени х
    5. Ответ
      Ответ дан Аккаунт удален
      В PascalABC.NET так можно писать
Самые новые вопросы