Важная информация
Показано с 1 по 2 из 2

Тема: Задача в Паскале

  1. #1 Задача в Паскале 
    Новичок
    Регистрация
    29.04.2016
    Сообщений
    9
    Сказал(а) спасибо
    4
    Поблагодарили 0 раз(а) в 0 сообщениях
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    Нужно решить уравнение пожалуйста
    Ответить с цитированием  
     

  2. #2  
    Профи
    Регистрация
    09.11.2013
    Сообщений
    218
    Сказал(а) спасибо
    17
    Поблагодарили 75 раз(а) в 50 сообщениях
    Как-то так...
    Pascal Code:
    1. PROGRAM PASCAL;
    2. FUNCTION F (X : REAL):REAL;
    3. BEGIN
    4.   F:=X+1;
    5. END;
    6. VAR
    7.   X,J,M:REAL;
    8. BEGIN
    9. WRITE('ENTER X: ');
    10. READLN(X);
    11. WRITE('ENTER M: ');
    12. READLN(M);
    13. IF (M > -1) AND (M < X) THEN
    14.   J:=SIN(5*F(X)+3*M*ABS(F(X)))
    15. ELSE
    16.   IF (X < M) THEN
    17.     J:=COS(3*F(X)+5*M*ABS(F(X)))
    18.   ELSE
    19.     J:=(F(X)+1)*(F(X)+1);
    20. WRITELN('J=',J:4:2);
    21. READLN;
    22. END.
    Ответить с цитированием  
     

  3. Пользователь сказал cпасибо:

    Free Admin (30.04.2016)

Информация о теме
Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

Похожие темы

  1. Ответов: 1
    Последнее сообщение: 25.03.2014, 04:28
  2. Ответов: 1
    Последнее сообщение: 25.01.2014, 17:53
  3. Парадокс дней рождения. Проверка на Паскале =)
    от Абадябер в разделе Проекты на Pascal
    Ответов: 8
    Последнее сообщение: 19.01.2013, 19:22
  4. мультипликация на паскале
    от vetal в разделе Turbo Pascal
    Ответов: 3
    Последнее сообщение: 03.07.2012, 22:45
  5. задача на паскале
    от vetal в разделе Turbo Pascal
    Ответов: 3
    Последнее сообщение: 18.04.2012, 17:10
Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •