Сделать отметки на графике от -п до п

@Влад1824 · Регистрация: 16.11.2012

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

Вот листинг (это кусок программы в котором нужно проставить на графике отметки от начала синусоиды -п а в конце п ,ну и желательно -п/2 и п/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
begin
          gd := detect;
          initgraph(gd, gm, 'c/bp');
          setcolor(red);{kolir liniy sitky}
          for i := 1 to 11 do {sitka po Y}
          begin
            line(0, 40 * i, 640, 40 * i);
          end;
          for i := 1 to 15 do
            line(40 * i, 0, 40 * i, 480);
          setcolor(11);{kolir liniy osey}
          line(0, 240, 640, 240);{X pryama}
          line(360, 0, 360, 480);{Y pryama}
          setcolor(13);{Kolir X i Y}
          outtextxy(340, 0, 'Y');
          outtextxy(630, 225, 'X');
          outtextxy(350, 250, '0');
          setcolor(6);
          setcolor(13);{Kolir poznachok}
          
          setcolor(15);{kolir grafika}
          x := 0;
          while x<12.5 do
          begin
            y := sqr(sin(x / 2));
            PutPixel (round(x*45+85),round(y*100+240),15);
            x:=x+0.001;
          end;
          readkey;
          closegraph;
        end;
        goto g;
      end;

@Puporev · 11.01.2013, 12: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
uses graph;
const
x1=-pi;{начало и конец графика в реальных значениях}
x2=pi;
function F(x:real):real;
begin
F:=sqr(sin(x/2));
end;
var mx,my,a,x,dx,y:real;
    x0,y0,grD,px,py,grM,i,k:integer;
s,s1:string;
begin
grD:=detect;
initgraph(grD,grM,'');
x0:=getmaxX div 2;
y0:=getmaxY-60;
mx:=(x0-40)/x2;
my:=y0-60;
SetBkColor(15);
SetColor(8);
line(0,y0,getmaxX,y0); {ось Х}
line(x0,getmaxy,x0,0); {ось У}
for i:=1 to 10 do   {максимальное количество засечек в одну сторону}
 begin
  line(x0-3,y0-round(i*my/10),x0+3,y0-round(i*my/10));     {засечки на оси У}
  {подпись оси У}
  str(i/10:0:1,s);
  outtextXY(x0-35,y0-round(i*my/10),s);{соответственно засечкам}
 end;
{центр}
outtextXY(x0+5,y0+10,'0');
{подписи концов осей}
outtextXY(getmaxX-10,y0-10,'X');
outtextXY(x0-10,10, 'Y');
{засечки и подписи оси Х}
line(x0-round(pi*mx),y0+3,x0-round(pi*mx),y0-3);
outtextXY(x0-round(pi*mx)-10,y0+10,'-pi');
line(x0-round(pi*mx/2),y0+3,x0-round(pi*mx/2),y0-3);
outtextXY(x0-round(pi*mx/2)-10,y0+10,'-pi/2');
line(x0+round(pi*mx),y0+3,x0+round(pi*mx),y0-3);
outtextXY(x0+round(pi*mx)-10,y0+10,'pi');
line(x0+round(pi*mx/2),y0+3,x0+round(pi*mx/2),y0-3);
outtextXY(x0+round(pi*mx/2)-10,y0+10,'pi/2');
dx:=0.001;
{график}
x:=x1;
while x<=x2 do
   begin
     px:=x0+round(x*mx); {изменение по оси Х}
     y:=F(x); {график в реальных координатах}
     py:=y0-round(y*my);{в экранных}
     putpixel(px,py,12);
     x:=x+dx; {наращиваем х}
   end;
setcolor(12);
outtextXY(50,10,'Grafik functii Y=sin^2(x/2)');
outtextXY(70,30,'na intervale [-pi,pi]');
readln;
end.

Новые блоги и статьи Все статьи Все блоги /
Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .
Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .