Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Delphi, Kylix and Pascal


Ответ
 
Опции темы Опции просмотра
Старый 08.10.2015, 17:27   #1 (permalink)
Анна_13
Новичок
 
Регистрация: 08.10.2015
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Нужно составить программу вычисления значения функции

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

zvlds8v3zii.jpg
Анна_13 вне форума   Ответить с цитированием

Старый 08.10.2015, 17:27
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Прочитайте пожалуйста аналогичные топики

Составьте программу вычисления функции
Составить программу вычисления
Составить программу для вычисления значения
Помогите по Pascal. Программа вычисления функции
Написать программу вычисления
Вычислить и вывести на экран значения функции в виде таблицы

Старый 08.10.2015, 17:56   #2 (permalink)
MagentaTiger
Специалист
 
Аватар для MagentaTiger
 
Регистрация: 27.04.2015
Адрес: Москва
Сообщений: 1,423
Записей в дневнике: 4
Сказал(а) спасибо: 52
Поблагодарили 53 раз(а) в 16 сообщениях
Репутация: 18120
По умолчанию

Не понял а в чем проблема-то ???
с математикой или с кодом ? и на каком ЯП нужна программа ?
Если в с математикой то там все просто ...

Если X < -п/2 то Y= -(п/2-X)
Иначе если X> п/2 то Y = (X - п/2)
Иначе Y=COS(X)
MagentaTiger вне форума   Ответить с цитированием
Старый 08.10.2015, 17:59   #3 (permalink)
Анна_13
Новичок
 
Регистрация: 08.10.2015
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

программу в Паскале нужно написать. С кодом проблемы
Анна_13 вне форума   Ответить с цитированием
Старый 08.10.2015, 18:55   #4 (permalink)
MagentaTiger
Специалист
 
Аватар для MagentaTiger
 
Регистрация: 27.04.2015
Адрес: Москва
Сообщений: 1,423
Записей в дневнике: 4
Сказал(а) спасибо: 52
Поблагодарили 53 раз(а) в 16 сообщениях
Репутация: 18120
По умолчанию

Где то так, с математикой я там в первом посте знак попутал
Да код под дельфи ... что бы не "запалится" уберите {$APPTYPE CONSOLE}

Код:
program ProjectTehnariRU;
{$APPTYPE CONSOLE}
uses    math;
const PI=3.1415926535;
var
    x,y:Double;
begin
   write('Введите значение x:');
   readln(x);
   if x < - PI/2 then
       y:= -(PI/2+x)
   else
   if x> PI/2 then
       y:= x-PI/2
   else y:=cos(x);

   writeln('Значение функции:', y:10:3);
   readln;
end.
MagentaTiger вне форума   Ответить с цитированием
Старый 08.10.2015, 18:58   #5 (permalink)
Анна_13
Новичок
 
Регистрация: 08.10.2015
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Спасибо большое!!
Очень благодарна!!
Анна_13 вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Метки
программа pascal


Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 01:51.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.