Создать фигуру показанную на рисунке

@Sergei188482 · Регистрация: 20.03.2017

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

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

@JuriiMW · 21.03.2018, 11:04

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
uses GraphABC;
 
const
  Fi = -pi*0.4;
  cosFi = cos(Fi);
  sinFi = sin(Fi);
 
procedure figure(n : Integer; x0, y0, x1, y1 : Real);
begin
  if n = 0 then Exit;
  var x2,y2:Real;
  (x1,y1,x2,y2):=(x0,y0,x1,y1);
  Line(Round(x1),Round(y1),Round(x2),Round(y2));
  figure(n-1,x2+(x1-x2)/3,y2+(y1-y2)/3,x1+(x2-x1)/3,y1+(y2-y1)/3);
  (x1,y1,x2,y2):=(x2,y2,x2+(x2-x1)*cosFi-(y2-y1)*sinFi,y2+(x2-x1)*sinFi+(y2-y1)*cosFi);
  Line(Round(x1),Round(y1),Round(x2),Round(y2));
  figure(n-1,x2+(x1-x2)/3,y2+(y1-y2)/3,x1+(x2-x1)/3,y1+(y2-y1)/3);
  (x1,y1,x2,y2):=(x2,y2,x2+(x2-x1)*cosFi-(y2-y1)*sinFi,y2+(x2-x1)*sinFi+(y2-y1)*cosFi);
  Line(Round(x1),Round(y1),Round(x2),Round(y2));
  figure(n-1,x2+(x1-x2)/3,y2+(y1-y2)/3,x1+(x2-x1)/3,y1+(y2-y1)/3);
  (x1,y1,x2,y2):=(x2,y2,x2+(x2-x1)*cosFi-(y2-y1)*sinFi,y2+(x2-x1)*sinFi+(y2-y1)*cosFi);
  Line(Round(x1),Round(y1),Round(x2),Round(y2));
  figure(n-1,x2+(x1-x2)/3,y2+(y1-y2)/3,x1+(x2-x1)/3,y1+(y2-y1)/3);
  (x1,y1,x2,y2):=(x2,y2,x0,y0);
  Line(Round(x1),Round(y1),Round(x2),Round(y2));
  figure(n-1,x2+(x1-x2)/3,y2+(y1-y2)/3,x1+(x2-x1)/3,y1+(y2-y1)/3);
end;
 
begin
  Pen.Color := rgb(128,128,255);
  Pen.Width := 2;
  figure(3, 210, 350, 390, 350);
end.

@Sergei188482 · 22.03.2018, 07:56 **[ТС]**

В каждых скобках, возникает вот такая ошибка, помогите пожалуйста

@JuriiMW · 22.03.2018, 08:00

Дык, обновите IDE с офф-сайта, и будет вам счастье!
;–)

Добавлено через 1 минуту
Вот сейчас на сайте уже: PascalABC.NET (версия 3.3.5, сборка 1633 от 11.02.2018)

@Sergei188482 · 22.03.2018, 08:03 **[ТС]**

Объясните для чайников)), что такое IDE

@Joy · 22.03.2018, 08:05

паскаль обновите

Добавлено через 49 секунд

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

Объясните для чайников)), что такое IDE

Интегрированная среда разработки (англ. Integrated Development Environment) — система программных средств, используемая программистами для разработки программного обеспечения.(https://ru.wikipedia.org/wiki/IDE)

@alex5code · 25.03.2018, 17:20

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

используемая программистами для разработки программного обеспечения

Я в консоли пишу, компилирую вручную

@Joy · 26.03.2018, 05:59

версию компилятора обновите

@Puporev · 26.03.2018, 08:57

У кого не работает

Pascal
1
(x1,y1,x2,y2):=(x0,y0,x1,y1);

замените на

Pascal
1
2
3
4
x2:=x1;
  x1:=x0;
  y2:=y1;
  y1:=y0;

@volvo · 26.03.2018, 12:33

Я бы вообще вот так написал:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
uses GraphABC;
 
const divider = 3;
 
procedure figure(n, R: integer; centerx, centery: integer; angle: double);
begin
  if n > 0 then
    for var i := 0 to 5 do
      begin
        Line(centerx + trunc(R*sin(angle + i*2*Pi/5)), centery - trunc(R*cos(angle + i*2*Pi/5)),
             centerx + trunc(R*sin(angle + succ(i)*2*Pi/5)), centery - trunc(R*cos(angle + succ(i)*2*Pi/5)));
        if i > 0 then
          figure(n - 1, r div divider,
            centerx + trunc(((R + r div divider)*sin(3*Pi/10))*sin(angle + i*2*Pi/5 + Pi/5)),
            centery - trunc(((R + r div divider)*sin(3*Pi/10))*cos(angle + i*2*Pi/5 + Pi/5)),
            angle + Pi/5);
      end;
end;   
 
begin
  figure(3, 100, 200, 200, 0);
end.

Этот вариант с минимальными исправлениями будет работать при использовании любого компилятора (достаточно просто указать, где рисовать), тестировалось в Лазарусе.

@JuriiMW · 27.03.2018, 06:38

volvo, ваш вариант имеет очень большой недостаток — это целочисленные параметры!
Из за этого на картинке появляются артефакты: не все линии совпадают.

@volvo · 27.03.2018, 10:46

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

Ну, а во-вторых, преобразовать целочисленные вычисления в использование вещественных чисел - дело ровно 12 секунд, именно столько у меня занял перенос 4-х trunc-ов чуть левее по тексту и замена div на "/" в трех местах. Вместе с корректированием заголовка, разумеется:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure figure(n: integer; R, centerx, centery, angle: double);
begin
  if n > 0 then
    for var i := 0 to 5 do
      begin
        Line(trunc(centerx + R*sin(angle + i*2*Pi/5)), trunc(centery - R*cos(angle + i*2*Pi/5)),
             trunc(centerx + R*sin(angle + succ(i)*2*Pi/5)), trunc(centery - R*cos(angle + succ(i)*2*Pi/5)));
        if i > 0 then
          figure(n - 1, r / divider,
            centerx + ((R + r / divider)*sin(3*Pi/10))*sin(angle + i*2*Pi/5 + Pi/5),
            centery - ((R + r / divider)*sin(3*Pi/10))*cos(angle + i*2*Pi/5 + Pi/5),
            angle + Pi/5);
      end;
end;

Новые блоги и статьи Все статьи Все блоги /
Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Нашел на реддите интересную статью под названием «Кто-нибудь знает, где получить бесплатный компьютер или. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .

@Sergei188482 0 / 0 / 0 Регистрация: 20.03.2017 Сообщений: 17

	Создать фигуру показанную на рисунке 21.03.2018, 10:22. Показов 837. Ответов 11 Метки нет (Все метки) Здравствуйте, помогите пожалуйста нарисовать в паскале данную фигуру. Получилось сделать снежинку коха, но этот пятиугольник не могу никак( Изображения 0

@Sergei188482 0 / 0 / 0 Регистрация: 20.03.2017 Сообщений: 17
	22.03.2018, 07:56 [ТС]
	В каждых скобках, возникает вот такая ошибка, помогите пожалуйста Миниатюры 0

@JuriiMW 5095 / 2661 / 2355 Регистрация: 10.12.2014 Сообщений: 10,059
	22.03.2018, 08:00
	Дык, обновите IDE с офф-сайта, и будет вам счастье! ;–) Добавлено через 1 минуту Вот сейчас на сайте уже: PascalABC.NET (версия 3.3.5, сборка 1633 от 11.02.2018) 0

@Sergei188482 0 / 0 / 0 Регистрация: 20.03.2017 Сообщений: 17
	22.03.2018, 08:03 [ТС]
	Объясните для чайников)), что такое IDE 0

@Joy 2388 / 1300 / 1492 Регистрация: 29.08.2014 Сообщений: 4,665
	26.03.2018, 05:59
	версию компилятора обновите 0

@JuriiMW 5095 / 2661 / 2355 Регистрация: 10.12.2014 Сообщений: 10,059
	27.03.2018, 06:38
	volvo, ваш вариант имеет очень большой недостаток — это целочисленные параметры! Из за этого на картинке появляются артефакты: не все линии совпадают. 0