1. Anubis18.03.2025 в 20:37от
  2. LouiSoft18.03.2025 в 19:24от
  3. LouiSoft18.03.2025 в 19:24от
  4. LouiSoft18.03.2025 в 19:24от
  5. LouiSoft18.03.2025 в 19:24от
Загрузка...
Загрузка...

Нужна помощь по программированию)

Тема в разделе "Курилка", создана пользователем flam, 09.06.2013.

  1. flam

    flam

    Статус:
    Оффлайн
    Регистрация:
    10.10.12
    Сообщения:
    733
    Репутация:
    123 +/-
    [​IMG]
    на картинке Восьмое надо сделать(8)
    Задание:
    составить грфическую схему алгоритма и написать программу для вычисления значений переменной Y по заданной формуле.Вычислить Y для всех значений переменной X.
    Работу провести в программе PascalABC
    Ну кто поможет?
     
  2. flam

    flam

    Статус:
    Оффлайн
    Регистрация:
    10.10.12
    Сообщения:
    733
    Репутация:
    123 +/-
    ап
     
  3. flam

    flam

    Статус:
    Оффлайн
    Регистрация:
    10.10.12
    Сообщения:
    733
    Репутация:
    123 +/-
    ап
     
  4. flam

    flam

    Статус:
    Оффлайн
    Регистрация:
    10.10.12
    Сообщения:
    733
    Репутация:
    123 +/-
    up
     
  5. l just hack

    l just hack

    Статус:
    Оффлайн
    Регистрация:
    09.06.13
    Сообщения:
    5
    Репутация:
    3 +/-
    Не могу фотку увеличить
     
  6. compass

    compass

    Статус:
    Оффлайн
    Регистрация:
    04.06.13
    Сообщения:
    148
    Репутация:
    40 +/-
    var x,y: real;
    begin
    readlln(x);
    if (x>0) and (x<>8) then y:=1-3x;
    if (x<-1) then y:=x*x-sin(x);
    if (-1<=x<=0) and(x=88) then y:=cos(x);
    writeln(y);
    end.
     
  7. flam

    flam

    Статус:
    Оффлайн
    Регистрация:
    10.10.12
    Сообщения:
    733
    Репутация:
    123 +/-
    ишет ошибка в 4 строчке а именно
    if (x>0) and (x<>8) then y:=1-3x;
     
  8. flam

    flam

    Статус:
    Оффлайн
    Регистрация:
    10.10.12
    Сообщения:
    733
    Репутация:
    123 +/-
    пишет неверное выражение
     
  9. envoy922

    envoy922

    Статус:
    Оффлайн
    Регистрация:
    09.01.13
    Сообщения:
    3
    Репутация:
    2 +/-
    мозги включи
    1-3*x
     
  10. flam

    flam

    Статус:
    Оффлайн
    Регистрация:
    10.10.12
    Сообщения:
    733
    Репутация:
    123 +/-
    теперь ошибка здесь
    if (-1<=x<=0) and(x=88) then y:=cos(x);
     
  11. stinker

    stinker

    Статус:
    Оффлайн
    Регистрация:
    01.04.13
    Сообщения:
    926
    Репутация:
    441 +/-
    cos(88), сильно конечно =)
     
  12. envoy922

    envoy922

    Статус:
    Оффлайн
    Регистрация:
    09.01.13
    Сообщения:
    3
    Репутация:
    2 +/-
    там 8 должно было быть. а что тебя смущает? в школе радианы не проходили?

    var x,y: real;
    begin
    readln(x);
    if (x>0) and (x<>8) then y:=1-3*x
    else if (x<-1) then y:=x*x-sin(x)
    else y:=cos(x);
    writeln(y);
    readln;
    end.
     
  13. flam

    flam

    Статус:
    Оффлайн
    Регистрация:
    10.10.12
    Сообщения:
    733
    Репутация:
    123 +/-
    можешь написать правильно?