Программа для обработки синуса, косинуса, тангенса

@Максач · Регистрация: 26.10.2016

Author24 — интернет-сервис помощи студентам

Создать приложение(программу) обеспечивающую обработку следующих данных:
1. Функция синус, функция косинус, функция тангенс. Полученные результаты обработки отображаются в виде графика
a+b*cos(c*x+d)

@Puporev · 15.12.2017, 11:30

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
uses graphABC;
function f(a,b,c,d,x:real):real;
begin
f:=a+b*cos(c*x+d)
end;
var a,b,c,d,xn,xk,x,dx,mx,my:real;
    x0,y0:integer;
begin
repeat
write('Введите параметр а от -5 до 5 а=');
readln(a);
until abs(a)<=5;
repeat
write('Введите параметр b от -5 до 5 b=');
readln(b);
until abs(b)<=5;
writeln('Введите параметры c,d');
readln(c,d);
setwindowsize(700,500);
centerwindow;
clearwindow;
//интервал
xn:=-5;
xk:=5;
//начало координат
x0:=windowwidth div 2;
y0:=windowheight div 2;
//масштабы
mx:=(x0-20)/5;
my:=(y0-60)/10;
//оси
line(0,y0,windowwidth,y0);
textout(windowwidth-20,y0-20,'X');
line(x0,0,x0,2*y0);
textout(x0+5,0,'Y');
textout(x0+5,y0+10,'0');
//засечки и подписи по осям
for var i:=1 to 10 do
 begin
  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);
  textout(x0+round(i*mx),y0+10,floattostr(i));
  textout(x0-round(i*mx),y0+10,floattostr(-i));
  line(x0-5,y0-round(i*my),x0+5,y0-round(i*my));
  textout(x0-25,y0-round(i*my)-5,inttostr(i));
  line(x0-5,y0+round(i*my),x0+5,y0+round(i*my));
  textout(x0-25,y0+round(i*my)-5,inttostr(-i));
 end;
 //график
setpencolor(clBlue);
x:=xn;
dx:=0.01;
while x<=xk do
 begin
  if x=xn then moveto(x0+round(x*mx),y0-round(f(a,b,c,d,x)*my))
  else lineto(x0+round(x*mx),y0-round(f(a,b,c,d,x)*my));
  x:=x+dx;
 end;
setfontsize(12);
setfontcolor(clBlue);
textout(100,10,'y=a+bcos(cx+d)');
textout(100,30,'a='+floattostr(a)+' b='+floattostr(b)+' c='+floattostr(c)+' d='+floattostr(d));
end.

@Максач · 15.12.2017, 12:00 **[ТС]**

Надо не только косинус, ещё синус и тангенс. Функция a+b*cos(c*x+d), и вместо cos еще sin и tg. все это в одной программе ч буду благодарен.

@Puporev · 15.12.2017, 12:48

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
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
uses graphABC;
function f1(a,b,c,d,x:real):real;
begin
f1:=a+b*cos(c*x+d)
end;
function f2(a,b,c,d,x:real):real;
begin
f2:=a+b*sin(c*x+d)
end;
function f3(a,b,c,d,x:real):real;
begin
f3:=a+b*tan(c*x+d)
end;
var a,b,c,d,xn,xk,x,dx,mx,my:real;
    x0,y0:integer;
begin
repeat
write('Введите параметр а от -5 до 5 а=');
readln(a);
until abs(a)<=5;
repeat
write('Введите параметр b от -5 до 5 b=');
readln(b);
until abs(b)<=5;
writeln('Введите параметры c,d');
readln(c,d);
setwindowsize(700,600);
centerwindow;
clearwindow;
//интервал
xn:=-5;
xk:=5;
//начало координат
x0:=windowwidth div 2;
y0:=80+(windowheight-100) div 2;
//масштабы
mx:=(x0-20)/5;
my:=(y0-80)/10;
//оси
line(0,y0,windowwidth,y0);
textout(windowwidth-20,y0-20,'X');
line(x0,0,x0,2*y0);
textout(x0+5,0,'Y');
textout(x0+5,y0+10,'0');
//засечки и подписи по осям
for var i:=1 to 10 do
 begin
  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);
  textout(x0+round(i*mx),y0+10,floattostr(i));
  textout(x0-round(i*mx),y0+10,floattostr(-i));
  line(x0-5,y0-round(i*my),x0+5,y0-round(i*my));
  textout(x0-25,y0-round(i*my)-5,inttostr(i));
  line(x0-5,y0+round(i*my),x0+5,y0+round(i*my));
  textout(x0-25,y0+round(i*my)-5,inttostr(-i));
 end;
 //график cos
setpencolor(clBlue);
x:=xn;
dx:=0.01;
while x<=xk do
 begin
  if x=xn then moveto(x0+round(x*mx),y0-round(f1(a,b,c,d,x)*my))
  else lineto(x0+round(x*mx),y0-round(f1(a,b,c,d,x)*my));
  x:=x+dx;
 end;
//график sin
setpencolor(clRed);
x:=xn;
while x<=xk do
 begin
  if x=xn then moveto(x0+round(x*mx),y0-round(f2(a,b,c,d,x)*my))
  else lineto(x0+round(x*mx),y0-round(f2(a,b,c,d,x)*my));
  x:=x+dx;
 end; 
//график tg
x:=xn;
dx:=0.001;
while x<=xk do
 begin
  if (abs(cos(c*x+d))>dx)
  and(y0-round(f3(a,b,c,d,x)*my)<=windowheight) and(y0-round(f3(a,b,c,d,x)*my)>=80)then
  setpixel(x0+round(x*mx),y0-round(f3(a,b,c,d,x)*my),clGreen);
  x:=x+dx;
 end; 
setfontsize(12);
setfontcolor(clBlue);
textout(100,0,'y=a+bcos(cx+d)');
setfontcolor(clRed);
textout(100,20,'y=a+bsin(cx+d)');
setfontcolor(clGreen);
textout(100,40,'y=a+btg(cx+d)');
setfontcolor(clBlack);
textout(100,60,'a='+floattostr(a)+' b='+floattostr(b)+' c='+floattostr(c)+' d='+floattostr(d));
end.

Новые блоги и статьи Все статьи Все блоги /
sshd restrictions, ssh access limitations jigi33 26.03.2025 sshd restrictions \| ssh access limitations рестрикции доступа на сервер sshd статья: https:/ / www. golinuxcloud. com/ restrict-allow-ssh-certain-users-groups-rhel	Компиляция C++ с Clang API NullReferenced 24.03.2025 Компиляторы обычно воспринимаются как черные ящики, которые превращают исходный код в исполняемые файлы. Мы запускаем компилятор командой в терминале, и вуаля — получаем бинарник. Но что если нужно. . .	Многопоточное программирование в C#: Класс Thread UnmanagedCoder 24.03.2025 Когда запускается приложение на компьютере, операционная система создаёт для него процесс - виртуальное адресное пространство. В C# этот процесс изначально получает один поток выполнения — главный. . .	SwiftUI Data Flow: Передача данных между представлениями mobDevWorks 23.03.2025 При первом знакомстве со SwiftUI кажется, что фреймворк предлагает избыточное количество механизмов для передачи данных: @State, @Binding, @StateObject, @ObservedObject, @EnvironmentObject и другие. . . .	Моки в Java: Сравниваем Mockito, EasyMock, JMockit Javaican 23.03.2025 Как протестировать класс, который зависит от других сложных компонентов, таких как базы данных, веб-сервисы или другие классы, с которыми и так непросто работать в тестовом окружении? Для этого и. . .
Архитектурные паттерны микросервисов: ТОП-10 шаблонов ArchitectMsa 22.03.2025 Популярность микросервисной архитектуры объясняется множеством важных преимуществ. К примеру, она позволяет командам разработчиков работать независимо друг от друга, используя различные технологии и. . .	Оптимизация рендеринга в Unity: Сортировка миллиона спрайтов GameUnited 22.03.2025 Помните, когда наличие сотни спрайтов в игре приводило к существенному падению производительности? Время таких ограничений уходит в прошлое. Сегодня геймдев сталкивается с задачами совершенно иного. . .	Образование и практика Igor3D 21.03.2025 Добрый день А вот каково качество/ эффективность ВУЗовского образования? Аналитическая геометрия изучается в первом семестре и считается довольно легким курсом, что вполне справедливо. Ну хорошо,. . .	Lazarus. Таблица с объединением ячеек. Massaraksh7 21.03.2025 Понадобилась представление на экране таблицы с объединёнными ячейками. И не одной, а штук триста, и все разные. На Delphi я использовал для этих целей TStringGrid, и то, кривовато получалось. А в. . .	Async/await в Swift: Асинхронное программирование в iOS mobDevWorks 20.03.2025 Асинхронное программирование долго было одной из самых сложных задач для разработчиков iOS. В течение многих лет мы сражались с замыканиями, диспетчеризацией очередей и обратными вызовами, чтобы. . .

@Максач 0 / 0 / 0 Регистрация: 26.10.2016 Сообщений: 5

	Программа для обработки синуса, косинуса, тангенса 15.12.2017, 10:14. Показов 2452. Ответов 3 Метки нет (Все метки) Создать приложение(программу) обеспечивающую обработку следующих данных: 1. Функция синус, функция косинус, функция тангенс. Полученные результаты обработки отображаются в виде графика a+bcos(cx+d) 0

@Максач 0 / 0 / 0 Регистрация: 26.10.2016 Сообщений: 5
	15.12.2017, 12:00 [ТС]
	Надо не только косинус, ещё синус и тангенс. Функция a+bcos(cx+d), и вместо cos еще sin и tg. все это в одной программе ч буду благодарен. 0

Опции темы

Программа для обработки синуса, косинуса, тангенса

Решение