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

Тема: Задание в Pascal

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

  2. #2  
    Супер модератор Аватар для >Quiet Snow<
    Регистрация
    11.04.2011
    Адрес
    Планета земля
    Сообщений
    3,822
    Сказал(а) спасибо
    1,808
    Поблагодарили 933 раз(а) в 795 сообщениях
    Записей в блоге
    1
    Pascal Code:
    1. Uses Crt;
    2. Const
    3. Mas : Array[1..8] of Real = (6.5, 7, 7.5, 8, 8.5, 9, 9.5, 10);
    4. Var i : Integer;
    5.  
    6. Function y ( x : Real) : Real;
    7. Begin
    8.    y := (1 / Pi) * ArcTan( (Sin((2 * x - 1) / 2) / Cos((2 * x - 1) / 2)) + Pi );
    9. End;
    10.  
    11. Begin
    12.   ClrScr;
    13.   For i := 1 To 8 do
    14.      WriteLn (Mas[i]:2:1, '   ', y(i):4:4);
    15.   Repeat Until Keypressed;
    16. End.
    Обучение прикладному программированию(по skype), качественно, недорого, 18+, вопросы в личку.
    «Если вы ничего не сделаете, я уверяю вас, ничего и не произойдёт» © Жак Фреско
    Ограниченно модерирую.
    Ответить с цитированием  
     

  3. 2 пользователя(ей) сказали cпасибо:

    Free Admin (30.04.2016), Артём Седляр (30.04.2016)

  4. #3  
    Профи Аватар для Сионист
    Регистрация
    21.01.2016
    Адрес
    Галактика Млечный Путь
    Сообщений
    509
    Сказал(а) спасибо
    11
    Поблагодарили 21 раз(а) в 20 сообщениях
    А ничего, что в стартовом посте нет уравнения?
    Писать можно на чём угодно, но зачем же так себя ограничивать? Пиши на си.
    Ответить с цитированием  
     

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

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

Похожие темы

  1. Pascal
    от Катюха в разделе Turbo Pascal
    Ответов: 3
    Последнее сообщение: 13.11.2014, 18:56
  2. Free Pascal и неравенства
    от Gubila_2000 в разделе Pascal
    Ответов: 1
    Последнее сообщение: 19.08.2014, 15:48
  3. Массив Pascal abc
    от inkognitik в разделе Pascal ABC
    Ответов: 0
    Последнее сообщение: 26.04.2014, 01:20
  4. Шифрование. Pascal.
    от Юрий Косурин в разделе Turbo Pascal
    Ответов: 1
    Последнее сообщение: 18.05.2013, 02:31
  5. Задание по файлам
    от Stannum в разделе QBasic
    Ответов: 18
    Последнее сообщение: 19.04.2013, 01:37
Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •