Кардиоида

@taoariya · Регистрация: 09.10.2017

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

Написала программу для построения кардиоиды
но она почему-то не работает

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
program cardioid;
uses
   GraphABC;
const
   xSign = 30;
   ySign = 50;
   stop = 2*pi;
   dif = 0.1;
   x0 = Windowwidth div 3;
   y0 = Windowheight div 2;
var
   x, y, t: real;
   a, x1, y1, x2,y2: integer;
function Sign(a: real): string;
var
   s : string;
begin
   s :=  ' a = ' + a;
   Sign := s;
end;
begin
    repeat
    writeln ('Построение кардиоиды');
    writeln ('Введите значение а: '); readln (a);
    until a>0;
    t := 0;
    Line(0, y0, Windowwidth, y0);
    Line(x0, 0, x0, Windowheight);
    while (t<stop) and (t>=0) do begin
       x1 := a*cos(t)*(1 + cos(t));
       y1 := a*sin(t)*(1 + cos(t));
       if (x1 < Windowwidth) and (y1 < Windowheight) then
          Line(x2,y2, x1, y1, clRed);//чтобы не выходить за пределы экрана
       t := t + dif;
    end;
    TextOut(xSign, ySign, Sign(a));
 end.

Добавлено через 47 минут
Теперь строится, но не совсем верно
и у меня никак не получается сделать масштабирование

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
program cardioid;
uses
   GraphABC;
const
   xSign = 30;
   ySign = 50;
   stop = 2*pi;
   dif = 0.1;
   x0 = Windowwidth div 3;
   y0 = Windowheight div 2;
   scale = 20;
var
   x, y, t: real;
   a, x1, y1, x2,y2: integer;
   
function GetY(a, t : real): real;
begin
   GetY := a * sin(t) * (1 + cos(t));
end;
function GetX(a, t : real): real;
begin
   GetX := a * cos(t) * (1 + cos(t));
end;
function Sign(a: real): string;
var
   s : string;
begin
   s :=  ' a = ' + a;
   Sign := s;
end;
procedure Asymp(a: integer);
var
   x, y, y1, i, step : integer;
begin
   step := scale div 4;
   x := x0 + scale * a; 
   i := 0;
   y := 0;
   y1 := y;
   while y <= Windowheight do begin
      i := i + 1;
      y := y + step;
      if (i mod 2) <> 0  then
         Line(x, y1, x, y);
      y1 := y1 + step;
   end;
end;
begin
    writeln ('Построение кардиоиды');
    writeln ('Введите значение а: '); readln (a);
    t := 0;
    Line(0, y0, Windowwidth, y0);
    Line(x0, 0, x0, Windowheight);//оси х и у
    x2 := x0;
    y2 := y0;
    Asymp(a);
    while (t < stop) and (t >= 0) do begin
       x := GetX(a,t);
       y := GetY(a,t);
       x1 := x0 + round(x);
       y1 :=y0 - round(y);
       if (x1 < Windowwidth) and (y1 < Windowheight) then
          Line(x2,y2, x1, y1, clRed);//чтобы не выходить за пределы экрана
       x2 := x1;
       y2 := y1;
       t := t + dif;
    end;
    TextOut(xSign, ySign, Sign(a));
 end.

@Puporev · 19.12.2017, 20:52

Pascal
1
2
x1 := x0 + round(x*scale);
y1 :=y0 - round(y*scale);

@taoariya · 19.12.2017, 21:06 **[ТС]**

ну, ничего не изменилось
она по-прежнему строится не так

@Puporev · 20.12.2017, 08:23

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 GraphABC;
const
   xSign = 30;
   ySign = 50;
   stop = 2*pi;
   dif = 0.01;
   x0 = Windowwidth div 2;
   y0 = Windowheight div 2;
   scale = 20;
var
   x, y, t: real;
   a, x1, y1, x2,y2: integer;
function GetY(a, t : real): real;
begin
   GetY := a * sin(t) * (1 + cos(t));
end;
function GetX(a, t : real): real;
begin
   GetX := a * cos(t) * (1 + cos(t));
end;
function Sign(a: real): string;
var
   s : string;
begin
   s :=  ' a = ' + floattostr(a);
   Sign := s;
end;
procedure Asymp(a: integer);
var
   x, y, y1, i, step : integer;
begin
   step := scale div 4;
   x := x0 + scale * a;
   i := 0;
   y := 0;
   y1 := y;
   while y <= Windowheight do begin
      i := i + 1;
      y := y + step;
      if (i mod 2) <> 0  then
         Line(x, y1, x, y);
      y1 := y1 + step;
   end;
end;
begin
    writeln ('Построение кардиоиды');
    repeat
    writeln ('Введите значение |а|<=7 a='); 
    readln (a);
    until abs(a)<=7;
    t := 0;
    Line(0, y0, Windowwidth, y0);
    Line(x0, 0, x0, Windowheight);//оси х и у
    x2 := x0;
    y2 := y0;
    Asymp(a);
    while (t <= stop) and (t >= 0) do begin
       x := GetX(a,t);
       y := GetY(a,t);
       x1 := x0 + round(x*scale);
       y1 :=y0 - round(y*scale);
       if (x1 < Windowwidth) and (y1 < Windowheight) then
       Line(x2,y2, x1, y1,clRed);
       x2 := x1;
       y2 := y1;
       t := t + dif;
    end;
    TextOut(xSign, ySign, Sign(a));
 end.

Вот при а=5 и а=-7

@taoariya · 20.12.2017, 11:44 **[ТС]**

А как можно избавиться от линии посередине кардиоиды?
Ее там не должно быть
Но я никак не могу найти ошибку

@Puporev · 20.12.2017, 12:03

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
uses GraphABC;
const
   xSign = 30;
   ySign = 50;
   stop = 2*pi;
   dif = 0.01;
   x0 = Windowwidth div 2;
   y0 = Windowheight div 2;
   scale = 20;
var
   x, y, t: real;
   a, x1, y1: integer;
function GetY(a, t : real): real;
begin
   GetY := a * sin(t) * (1 + cos(t));
end;
function GetX(a, t : real): real;
begin
   GetX := a * cos(t) * (1 + cos(t));
end;
function Sign(a: real): string;
var
   s : string;
begin
   s :=  ' a = ' + floattostr(a);
   Sign := s;
end;
procedure Asymp(a: integer);
var
   x, y, y1, i, step : integer;
begin
   step := scale div 4;
   x := x0 + scale * a;
   i := 0;
   y := 0;
   y1 := y;
   while y <= Windowheight do begin
      i := i + 1;
      y := y + step;
      if (i mod 2) <> 0  then
         Line(x, y1, x, y);
      y1 := y1 + step;
   end;
end;
begin
    writeln ('Построение кардиоиды');
    repeat
    writeln ('Введите значение |а|<=7 a='); 
    readln (a);
    until abs(a)<=7;
    t := 0;
    Line(0, y0, Windowwidth, y0);
    Line(x0, 0, x0, Windowheight);//оси х и у
    Asymp(a);
    setpencolor(clRed);
    while t <= stop do
     begin
       x := GetX(a,t);
       y := GetY(a,t);
       x1 := x0 + round(x*scale);
       y1 :=y0 - round(y*scale);
       if t=0 then moveto(x1,y1)else lineto(x1,y1);
       t := t + dif;
    end;
    TextOut(xSign, ySign, Sign(a));
 end.

Новые блоги и статьи Все статьи Все блоги /
http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит переходные токи и напряжения на элементах схемы. . . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .

@taoariya 2 / 2 / 0 Регистрация: 09.10.2017 Сообщений: 132
	19.12.2017, 21:06 [ТС]
	ну, ничего не изменилось она по-прежнему строится не так 0

@taoariya 2 / 2 / 0 Регистрация: 09.10.2017 Сообщений: 132
	20.12.2017, 11:44 [ТС]
	А как можно избавиться от линии посередине кардиоиды? Ее там не должно быть Но я никак не могу найти ошибку 0