0 / 0 / 0
Регистрация: 30.10.2013
Сообщений: 7
1

Подставить значения

02.06.2014, 21:53. Показов 1518. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
x=sint, y=cost при https://www.cyberforum.ru/cgi-bin/latex.cgi?-\pi \leq t\leq \pi



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
96
97
98
uses Graph,Crt;
var
x1,x2:real;{границы изменения аргумента функции}
y1,y2, :real;{границы изменения значения функции первого графика}
y3, y4 :real;{границы изменения значения функции второго графика}
x:real;{аргумент функции }
y:real;{значение функции в точке х}
dx:real;{приращение аргумента }
l,b: integer;{левый нижний угол области вывода графика}
w,h: integer; {ширина и высота области вывода графикa}
mx,my:real;{масштаб по осям Х и Y }
x0, y0: integer; { точка - начало координат }
st: string;{ изображение числа }
grDriver: Integer;
grMode: Integer;
ErrCode: Integer;
 
{Первый график}
Function f(x:real):real;
begin
f:= cos(x)*(1+cos(x));
end;
 
{Второй график}
Function f2(x:real):real;
begin
f2:=sin(x)*(1+cos(x));
end;
 
BEGIN
grDriver := Detect;
InitGraph(grDriver, grMode,'') ;
ErrCode := GraphResult;
if ErrCode <> grOk then Halt(1);
 
l:=10;b:=450;h:=400;w:=400;
x1:=0;
{x2:=25;}
x2:=2*PI;
 
dx:=0.01;
{ найдем максимальное и минимальное значения
функции на отрезке [x1,x2] }
 
y1:=f(x1); { минимум первого графика}
y2:=f(x1); { максимум первого графика}
 
y3 := f2(x1); { минимум второго графика}
y4:= f2(x1); { максимум второго графика}
x:=x1;
 
repeat
y:=f(x);
if y<y1 then y1:=y;
if y>y2 then y2:=y;
 
y := f2(x);
if y < y3 then y3 := y;
if y > y4 then y4 := y;
x:=x+dx;
until (x>=x2) ;
 
{Из min первого и второго графика выбираем наименьший}
if y2 < y4 then y2 := y4;
{Из max первого и второго графика выбираем наибольший}
if y1 > y3 then y1 := y3;
 
 
my:=h/abs(y2-y1) ;
mx:=w/abs(x2-x1) ;
 
{ оси }
x0:=1;
y0:=b-Abs(Round(y1*my)) ;
Line(1,b,1,b-h) ;
Line(x0,y0,x0+w,y0) ;
Str(y2:5:1,st) ;
OutTextXY(1+5,b-h,st) ;
Str(y1:5:1,st) ;
OutTextXY(1+5,b,st) ;
 
{ построение графика }
x:=x1;
repeat
{Рисуем первый график - красный}
y:=f(x);
PutPixel(x0+Round(x*mx),y0-Round(y*my),red) ;
{Рисуем второй график - зеленый}
y:=f2(x);
PutPixel(x0+Round(x*mx),y0-Round(y*my),green) ;
 
x:=x+dx;
delay(20);
until (x>=x2);
Readln;
 
CloseGraph;
END.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.06.2014, 21:53
Ответы с готовыми решениями:

Прочитать значение из файла и подставить в формулу
Вводится параметры a,b,c,d,e,z,f,m,n затем параметр 'а' обращается к текстовому файлу, для того что...

Подставить правильное окончание в зависимости от количества
В зависимости от количества найденных в лесу грибов вывести грамматически правильное выражение,...

Подставить вместо звездочек цифры из промежутка от 1 до 9. Числа не должны повторяться. **** / *** = **
Подставить вместо звездочек цифры из промежутка от 1 до 9. Числа не должны повторяться. **** /...

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

1
399 / 378 / 408
Регистрация: 14.09.2013
Сообщений: 1,204
02.06.2014, 21:56 2
mvs1993, теги есть для кода...омг..
0
02.06.2014, 21:56
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.06.2014, 21:56
Помогаю со студенческими работами здесь

В форму подставить значения
Как в форму подставить данные о товаре его id название и тд..? Кнопка с id не подойдет..Может как...

Подставить значения по очереди
Добрый день! Похожая проблема, помогите, пожалуйста, с решением (значения Mд и Pд от W) При...

Извлечь значения и подставить в формулу
Подскажите пожалуйста, есть массив данных, необходимо извлечь из него все значения удовлетворяющие...

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru