Задача про равносторонние треугольники

@ег2314141231 · Регистрация: 13.06.2022

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

Привет, напишите, пожалуйста, код программы.
В программе есть 2 переменные, они вводятся с клавиатуры.
1 переменная: задаёт сторону треугольника, и, так как он равносторонний, из этой переменной должен построится треугольник
2 переменная: задаёт значение малых треугольников (это работает по аналогии с большим треугольником), после ввода значений стороны малого треугольника сразу строятся по углам большего треугольника такие же равносторонние треугольники.
То-есть задавая 1 сторону строится целый треугольник

Добавлено через 1 час 32 минуты
Вот такая же задача с квадратами, нужно сделать такую же, но только с равносторонними треугольниками

Pascal
1
2
3
4
5
6
7
8
9
10
11
uses Graphabc;
begin
  var (a1,a2):=ReadInteger2('введите значение большего  и меньшего');
  
  setwindowsize(800,800);
  Drawrectangle(400-(a1 div 2),400 - (a1 div 2),400+(a1 div 2),400+(a1 div 2));
  Drawrectangle((400-(a1 div 2))-(a2 div 2),(400 - (a1 div 2))-(a2 div 2),(400-(a1 div 2))+(a2 div 2),(400-(a1 div 2))+(a2 div 2));
  Drawrectangle((400-(a1 div 2))-(a2 div 2),(400 + (a1 div 2))-(a2 div 2),(400-(a1 div 2))+(a2 div 2),(400+(a1 div 2))+(a2 div 2));
  Drawrectangle((400+(a1 div 2))-(a2 div 2),(400 + (a1 div 2))-(a2 div 2),(400+(a1 div 2))+(a2 div 2),(400+(a1 div 2))+(a2 div 2));
  Drawrectangle((400+(a1 div 2))-(a2 div 2),(400 - (a1 div 2))-(a2 div 2),(400+(a1 div 2))+(a2 div 2),(400-(a1 div 2))+(a2 div 2));
end.

@XzzzX · 15.06.2022, 21:12

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
uses Graphabc;
const offset = 100;
begin
  var a:= ReadLnInteger;
  var h:= (a/2+tan(pi/6)).Round;
  var p1:= new Point(offset, offset);
  var p2:= new Point(offset + h, offset + (a/2).Round);
  var p3:= new Point(offset, offset + a);
  DrawPolygon(p1, p2, p3);
  
  var b:= ReadLnInteger;
  h:= (b/2+tan(pi/6)).Round;
  var p4:= new Point(p1.X + b, p1.Y);
  var p5:= new Point(p1.X + (b/2).Round, offset - h);
  DrawPolygon(p1, p4, p5);
  
  p4:= new Point(p2.X, p2.Y + b);
  p5:= new Point(p2.X + h, p2.Y + (b/2).Round);
  DrawPolygon(p2, p4, p5);
  
  p4:= new Point(p3.X - b, p3.Y);
  p5:= new Point(p3.X - (b/2).Round, p3.Y + h);
  DrawPolygon(p3, p4, p5);
end.

Не по теме:

рекомендую начинать учиться, а то так и до шестиугольника дойдёт

@JuriiMW · 16.06.2022, 08:49

XzzzX, равносторонние же…

Pascal
1
2
3
4
## uses GraphABC;
var(a,b):=ReadLnInteger2;
DrawPolygon(0.to(2).Select(u->pnt(round(window.Center.x+a*sin(u*pi/3*2)),round(window.Center.y+a*cos(u*pi/3*2)))).ToArray);
foreach var n in 0..2 do DrawPolygon(0.to(2).Select(u->pnt(round(window.Center.X+(a+b/2)*sin(n*pi/3*2)+b*sin(u*pi/3*2)),round(window.Center.Y+(a+b/2)*cos(n*pi/3*2)+b*cos(u*pi/3*2)))).ToArray);

Не по теме:

XzzzX, логичнее следующим шагом выродится в линии, а потом в точки ;–)

ег2314141231, в данном случае не важно где меньшие или большие… К примеру, при заданных 50 100 получается интересный эффект… и при 20 120

@ег2314141231 · 16.06.2022, 11:04 **[ТС]**

JuriiMW,
можете решить это с помощью примитивов line (чтобы я смог разобраться), просто до ваших способов я еще не дошёл (мне важно понять, как это делается. Примерно так (это для 1 треугольника)

Pascal
1
2
3
  line(400-a1,400 + (a1 div 2),400+a1,400+(a1 div 2));
  line(400-a1,400 + (a1 div 2),400,400-(a1 div 2));
  line(400+a1,400 + (a1 div 2),400,400-(a1 div 2));

@XzzzX · 16.06.2022, 11:23

JuriiMW, ну умудрится принять угол равностороннего треугольника за 30 -- это тоже особый талант нужен

Pascal
5
var h:= (a/2*tan(pi/3)).Round;

Pascal
12
h:= (b/2*tan(pi/3)).Round;

@ег2314141231 · 16.06.2022, 11:42 **[ТС]**

XzzzX
можете решить с помощью примитивов Line (я пока изучаю pascal, и мне нужно понять как это делается простым способом),
наподобие этого:

Pascal
1
2
3
  line(400-a1,400 + (a1 div 2),400+a1,400+(a1 div 2));
  line(400-a1,400 + (a1 div 2),400,400-(a1 div 2));
  line(400+a1,400 + (a1 div 2),400,400-(a1 div 2));

@XzzzX · 16.06.2022, 13:32

Pascal
DrawPolygon(p1, p2, p3);

это тоже самое, что

Pascal
line(p1, p2);
line(p2, p3);
line(p3, p1);

тип Point хранит пару координат, которая была записана при вызове конструктора. Например

Pascal
new Point(offset, offset)

то есть,

Pascal
line(p1, p2);

это тоже самое, что

Pascal
line(p1.X, p1.Y, p2.X, p2.Y)

что возвращает p1.X и p1.Y я думаю объяснять не надо.

короче говоря, если так охота, можете сами расписать всё это дело. а то код и без того страшный, не особо хочется в этом копаться

@Cyborg Drone · 16.06.2022, 21:11

Комментарий модератора

ег2314141231, заключайте код в соответствующие теги, я же сделал Вам замечание вот в этой Вашей теме: Нарисовать фигуру из квадратов. Вы прочитали моё замечание? Нет? Так прочитайте, пожалуйста, очень, знаете ли, не хочется из-за Вашего равнодушия понижать Вам репутацию вплоть до бана. Вам что, тяжело перед вставкой кода нажать надпись PASCAL в шапке редактора сообщений?

Если и далее будете нарушать правила форума и игнорировать замечания администрации, то я буду первым, кто поступит с Вами нехорошо.

Новые блоги и статьи Все статьи Все блоги /
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Рецензия / Мнение/ Перевод Сайт называется reddit: The Thinkpad X220 Tablet is the best budget school laptop period. Это. . .	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 - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .

@XzzzX 405 / 280 / 120 Регистрация: 09.07.2021 Сообщений: 1,016 Записей в блоге: 1
	16.06.2022, 13:32
	Сообщение было отмечено ег2314141231 как решение Решение Pascal DrawPolygon(p1, p2, p3); это тоже самое, что Pascal line(p1, p2); line(p2, p3); line(p3, p1); тип `Point` хранит пару координат, которая была записана при вызове конструктора. Например Pascal new Point(offset, offset) то есть, Pascal line(p1, p2); это тоже самое, что Pascal line(p1.X, p1.Y, p2.X, p2.Y) что возвращает `p1.X` и `p1.Y` я думаю объяснять не надо. короче говоря, если так охота, можете сами расписать всё это дело. а то код и без того страшный, не особо хочется в этом копаться 0

Задача про равносторонние треугольники

Решение