Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Winky_o
0 / 0 / 0
Регистрация: 30.09.2013
Сообщений: 8
#1

График функции y=x*(arccos(cos(5x)-pi/2) - Turbo Pascal

29.05.2014, 15:38. Просмотров 813. Ответов 1
Метки нет (Все метки)

Здраствуйте!
Порядок выполнения:
1. Очистить экран монитора и при необходимости установить требуемый цвет
фона.
2. Выбрать размещение системы координат в соответствии с левым и правым
интервалом и в соответствии с минимальным и максимальным значением функции,
которые могут быть достигнуты на этом интервале.
3. Построить горизонтальную и вертикальную координатные оси.
4. Подписать названия координатных осей.
5. Построить на координатных осях масштабные метки.
6. Подписать численные значения масштабных меток.
7. Построить координатную сетку.
8. Построить непосредственно сам график функции.
0
Миниатюры
График функции y=x*(arccos(cos(5x)-pi/2)  
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.05.2014, 15:38
Я подобрал для вас темы с готовыми решениями и ответами на вопрос График функции y=x*(arccos(cos(5x)-pi/2) (Turbo Pascal):

Вывести график функции e^-cos(3x) - Turbo Pascal
Вывести график функции e^-cos(3x)

Нарисовать график функции y=e^cos(x-1) - Turbo Pascal
нарисовать график функции в графичном режиме y=ecos()x-1!!!!!!!!!!!1

График функции (x+sin(x))/(1+cos(x)) - Turbo Pascal
Здравствуйте. Помогите пожалуйста в написании программы построения графика. функция (x+sin(x))/(1+cos(x)) Интервал Добавлено...

Построить график функции y=cos(x+3) - Turbo Pascal
Задание на TB, need help pls построить график функции y=cos(x+3) Заранее спасибо

Вычислить значение функции cos(cos(cos(a+b))+c) для a, b и c , введённых с клавиатуры - Pascal
Напишите программу, которая вычисляет значение функции cos(cos(cos(a+b))+c) для a, b и c , введённых с клавиатуры. Результат, округлённый...

Начертить график функции exp(x)/(sin(x)*cos(x) - Turbo Pascal
Возникают проблемы с масштабными коэффициентами и ограничением графика под размеры экрана из-за бесконечности функции. Либо программа...

1
Puporev
Модератор
54041 / 41674 / 14753
Регистрация: 18.05.2008
Сообщений: 98,003
29.05.2014, 16:37 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
uses graph;
function F(x:real):real;
var cs,u:real;
begin
cs:=cos(5*x);{косинус}
if cs=1 then u:=0 {угол}
else if cs=-1 then u:=pi
else if cs>0 then u:=arctan(sqrt(1-cs*cs)/cs)
else u:=pi+arctan(sqrt(1-cs*cs)/cs);
F:=x*(u-pi/2){функция}
end;
 
var a,b,max,mx,my:real;
    x:real;
    x0,y0,i,n:integer;
    s:string;
begin
initgraph(x0,y0,'');
a:=-4*pi;
b:=4*pi;{интервал по Х}
x0:=getmaxX div 2;{начало координат по Х}
mx:=(x0-30)/b;{масштаб по Х}
y0:=getmaxY div 2;{начало координат по Y}
x:=a;
max:=abs(F(x));{вычислим максимальное отклонение от оси Х для масштаба по Y}
while x<=b do
 begin
  if abs(F(x))>max then max:=abs(F(x));
  x:=x+0.01
 end;
my:=(y0-30)/max;{масштаб по Y}
if b>max then n:=trunc(b)+1 else n:=trunc(max)+1;{макс. количество засечек по осям}
line(0,y0,getmaxX,y0);{оси}
line(x0,0,X0,getmaxY);
for i:=1 to n do
 begin
  line(x0-3,y0-round(i*my),x0+3,y0-round(i*my));{засечки на оси У}
  line(x0-3,y0+round(i*my),x0+3,y0+round(i*my));
  {подпись оси У}
  str(i,s);
  if i mod 2=0 then
   begin
    outtextXY(x0-30,y0-round(i*my),s);{соответственно засечкам}
    outtextXY(x0-35,y0+round(i*my),'-'+s);
   end;
  line(x0+round(i*mx),y0-3,x0+round(i*mx),y0+3); {засечки на оси Х}
  line(x0+round(i*mx),y0-3,x0+round(i*mx),y0+3);
  {подпись оси Х}
  outtextXY(x0+round(i*mx),y0+10,s);
  outtextXY(x0-round(i*mx),y0+10,'-'+s);
 end;
{центр}
outtextXY(x0+5,y0+10,'0');
{подписи концов осей}
outtextXY(getmaxX-10,y0-10,'X');
outtextXY(x0+5,10, 'Y');
{график}
x:=a;
while x<=b do
 begin
  putpixel(x0+round(x*mx),y0-round(F(x)*my),12);
  x:=x+0.001;
 end;
{название}
setcolor(12);
outtextXY(100,10,'y=x(arccos(cos(5x)-pi/2)');
outtextXY(120,30,'int.[-4pi;4pi]');
readln
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.05.2014, 16:37
Привет! Вот еще темы с ответами:

График: f(x)= cos x -(4/15П)*cos 4x где -2П<=x<=4П с шагом h - Turbo Pascal
f(x)= cos x -(4/15П)*cos 4x где -2П&lt;=x&lt;=4П с шагом h заранее спасибо

Рекурсия. Вычислить рекурсивно функцию вида y=cos(x)+cos(x^2)+cos(x^3)+...+cos(x^n). - Turbo Pascal
У меня задание вычислить рекурсивно функцию вида y=cos(x)+cos(x^2)+cos(x^3)+...+cos(x^n). Но мне кажется что работает она неправильно и я...

Как вычислить y=cos 1(+cos(2+.+cos(39+cos 40).) без рекурсии? - Turbo Pascal
Помогите, пожалуйста... 1)как вычислить y=cos 1(+cos(2+...+cos(39+cos 40)...)) без рекурсии?

Построить график функции «Бабочка»: X=sin(At+B)cos(Ct), Y=sin(At+B)sin(Dt) - Turbo Pascal
Написать программу построения графика функции. Вывод графика осуществлять в созданном на экране окне, в другом окне выполнить вывод...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru