GraphABC: отобразить семейство графиков функций

@Priest · Регистрация: 10.04.2011

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

Товарищи форумчане, помогите с программой!
Написать программу, которая изображает семейство графиков функции y(t) = exp(-Ax)*sin(t), при изменении коэффициента А, 0 <= t <= 4π.

Нужно обозначить ось (х) и ось (у) + обозначить начало координат (пиксель начала координат) за точку (0,0).

@Puporev · 11.04.2011, 12:43

Сообщение от Priest

exp(-Ax)*sin(t)

х это что?

@x@kirsch@))) · 11.04.2011, 17:37

если там не х а t :

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
program grafik;
 uses graphabc;
 var a, b :real;
  n: integer;
 function f (t: real): real;
  begin 
   f:=exp(-A*t)*sin(t);
  end;
 procedure maxmin (a,b,h: real; var ymin,ymax: real);
  var x, y: real;
   begin 
    ymin:=f(a);
    ymax:=ymin;
    x:=a;
    while x<b+h/2 do
     begin  
      y:=f(x);
      if y<ymin then 
       ymin:=y;
       if y>ymax then 
        ymax:=y;
         x:=x+h
        end;
       end;
      procedure gr(a,b: real; n: integer);
       var ymin, ymax, x,y,h, mx,my: real; 
        x_g, y_g, x_gp,y_gp, ox,oy, x0,y0,xw,yh, i: integer;
         function prx(x:real):integer;
          begin 
           prx:=round(x0+(x-a)*mx)
          end;
          function pry(y:real):integer;
          begin 
           pry:=round(x0+(ymax-y)*my)
          end;
          begin
           h:=(b-a)/n; 
            maxmin(a,b,h,ymin,ymax);
            x0:=0;
            xw:=windowwidth;
            y0:=0;
            yh:=windowheight;
            mx:=(xw-x0)/(b-a);
            my:=(yh-y0)/(ymax-ymin);
            if ymin*ymax < 0 then 
             begin 
              oy:=pry(0);
              line(x0,oy,xw,oy);
              textout(ox+600,y0+200, 'Ox');
             end;
             if a*b< 0 then  
              begin
               ox:=prx(x);
               line(ox,y0,ox,yh);
               textout(ox+10, y0+15, 'Oy');
               end;
              x:=a;
              y:=f(a);
              x_gp:=prx(x);
              y_gp:=pry(y);
               for i:=1 to n do
                begin 
                 x:=x+h;
                 y:=f(x);
                 x_g:=prx(x);
                 y_g:=pry(y);
                 line(x_gp, y_gp, x_g,y_g);
                 x_gp:=x_g;
                 y_gp:=y_g;
                end;
                end;
                begin 
                 n:=50;
                 write('введите концы отрезка');
                 readln(a,b);
                 gr(a,b,n);
                end.

@Puporev · 11.04.2011, 17:43

Если там нет х, то...

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
uses graph;
const
x1=0;{начало и конец графика в реальных значениях}
x2=4*pi;
function F(d,x:real):real;
begin
F:=exp(-d)*sin(x);
end;
var a,b,mx,my,x,dx,y1,y2,y3,y4:real;
    x0,y0,grD,px,py,grM,i,k:integer;
    s,s1:string;
begin
grD:=detect;
initgraph(grD,grM,'');
x0:=40;{начало координат}
y0:=getmaxY div 2;
{коэффициенты по осям для перевода реальных координат в экранные}
mx:=(getmaxX-2*x0)/(x2-x1);{длина в пикселах по оси Х/реальная длина}
my:=(y0-80)/F(-1,pi/2);{длина оси по У/(макс}
SetBkColor(7); {цвет фона}
setlinestyle(0,0,1);{сплошная линия}
SetColor(1);{цвет линий осей}
line(0,y0,getmaxX,y0); {ось Х}
line(x0,getmaxy,x0,0); {ось У}
for i:=1 to round(x2)+1 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));
    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);
    str(i,s);
    {подпись оси У}
    outtextXY(x0-20,y0-round(i*my),s);{соответственно засечкам}
    outtextXY(x0-25,y0+round(i*my),'-'+s);
    {подпись оси Х}
    str(i,s);
    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+10,10, 'Y');
dx:=0.001;
{график}
x:=x1;
while x<=x2 do
 begin
  px:=x0+round(x*mx); {изменение по оси Х}
  y1:=F(-1,x); {график в реальных координатах}
  py:=y0-round(y1*my);{в экранных}
  putpixel(px,py,4);
  y2:=F(-0.5,x); {график в реальных координатах}
  py:=y0-round(y2*my);{в экранных}
  putpixel(px,py,2);
  y3:=F(0.5,x); {график в реальных координатах}
  py:=y0-round(y3*my);{в экранных}
  putpixel(px,py,9);
  y4:=F(1,x); {график в реальных координатах}
  py:=y0-round(y4*my);{в экранных}
  putpixel(px,py,14);
  x:=x+dx; {наращиваем х}
 end;
setcolor(10);
settextstyle(0,0,1);
outtextXY(95,30,'Grafik functii Y=exp(-A)*(sin(t)');
outtextXY(145,40,'interval [0; 4pi]');
setcolor(4);
outtextXY(185,50,'A=-1');
setcolor(2);
outtextXY(185,60,'A=-0.5');
setcolor(9);
outtextXY(185,70,'A=0.5');
setcolor(14);
outtextXY(185,80,'A=1');
readln
end.

@Qloney · 15.04.2011, 10:20

Подскажите, а как обозначить единичный отрезок в программе и как задать начало координат точку (0,0) ??

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
program grafik;
 uses crt, graphabc;
 var a, b :real;
  n: integer;
 function f (t: real): real;
  begin 
   f:=exp(-A*t)*sin(t);
  end;
 procedure maxmin (a,b,h: real; var ymin,ymax: real);
  var x, y: real;
   begin 
    ymin:=f(a);
    ymax:=ymin;
    x:=a;
    while x<b+h/2 do
     begin  
      y:=f(x);
      if y<ymin then 
       ymin:=y;
       if y>ymax then 
        ymax:=y;
         x:=x+h
        end;
       end;
      procedure gr(a,b: real; n: integer);
       var ymin, ymax, x,y,h, mx,my: real; 
        x_g, y_g, x_gp,y_gp, ox,oy, x0,y0,xw,yh, i: integer;
         function prx(x:real):integer;
          begin 
           prx:=round(x0+(x-a)*mx)
          end;
          function pry(y:real):integer;
          begin 
           pry:=round(x0+(ymax-y)*my)
          end;
          begin
           h:=(b-a)/n; 
            maxmin(a,b,h,ymin,ymax);
            x0:=0;
            xw:=windowwidth;
            y0:=0;
            yh:=windowheight;
            mx:=(xw-x0)/(b-a);
            my:=(yh-y0)/(ymax-ymin);
            if ymin*ymax < 0 then 
             begin 
              oy:=pry(0);
              line(x0,oy,xw,oy);
              textout(ox+600,y0+200, 'Ox');
             end;
             if a*b< 0 then  
              begin
               ox:=prx(x);
               line(ox,y0,ox,yh);
               textout(ox+10, y0+15, 'Oy');
               end;
              x:=a;
              y:=f(a);
              x_gp:=prx(x);
              y_gp:=pry(y);
               for i:=1 to n do
                begin 
                 x:=x+h;
                 y:=f(x);
                 x_g:=prx(x);
                 y_g:=pry(y);
                 line(x_gp, y_gp, x_g,y_g);
                 x_gp:=x_g;
                 y_gp:=y_g;
                end;
                end;
                begin 
                 n:=50;
                 write('введите концы отрезка');
                 readln(a,b);
                 gr(a,b,n);
                end.

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .

@Priest 0 / 0 / 0 Регистрация: 10.04.2011 Сообщений: 13

	GraphABC: отобразить семейство графиков функций 11.04.2011, 10:18. Показов 3967. Ответов 4 Метки нет (Все метки) Товарищи форумчане, помогите с программой! Написать программу, которая изображает семейство графиков функции y(t) = exp(-Ax)*sin(t), при изменении коэффициента А, 0 <= t <= 4π. Нужно обозначить ось (х) и ось (у) + обозначить начало координат (пиксель начала координат) за точку (0,0). 0