0 / 0 / 0
Регистрация: 24.09.2013
Сообщений: 35
1

Нарисовать треугольник, круг, квадрат при нажатии клавиши

08.12.2015, 23:26. Показов 7579. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Доброго времени суток всем, помогите пожалуйста с программой, суть такая при нажатии кнопки 1 выбирается квадрат и на поле image там где курсор рисуется квадрат, при нажатии кнопки 2 тоже самое, но с кругом, при нажатии кнопки 3 рисуется треугольник
0
Лучшие ответы (1)
08.12.2015, 23:26
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
08.12.2015, 23:26
Ответы с готовыми решениями:

Нарисовать: круг, треугольник, элипс, квадрат
Помогите выполнить задание: 1. Нарисовать: круг, треугольник, элипс, квадрат 2. Создать форму, при вводе координат и нажатии на кнопку...

Нарисовать треугольник, квадрат, круг, прямоугольник
Помогите нарисовать треугольник, квадрат, круг и прямоугольник в Pascal ABC Добавлено через 1 час 23 минуты У меня пока вот что...

При написании квадрат, круг, треугольник чтобы программа выдавала соответствующие фигуры
При написании квадрат, круг, треугольник чтобы программа выдавала соответствующие фигуры. Не получается присвоить к тексту фигуру.

2
Почетный модератор
 Аватар для Puporev
64305 / 47602 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
09.12.2015, 10:12 2
Лучший ответ Сообщение было отмечено Jensen как решение

Решение

Delphi
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
var
  Form1: TForm1;
  k:byte;
implementation
 
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Image1.Canvas.Brush.Color:=clWhite;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
k:=1;
Image1.Canvas.FillRect(Canvas.ClipRect);//очищаем канву
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
k:=2;
Image1.Canvas.FillRect(Canvas.ClipRect);
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
k:=3;
Image1.Canvas.FillRect(Canvas.ClipRect);
end;
 
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
case k of
1:begin
  Image1.Canvas.Brush.Style:=bsClear; //рисуем не заполненные квадраты
  Image1.Canvas.Rectangle(x-20,y-20,x+20,y+20);
  Image1.Canvas.Brush.Style:=bsSolid; //восстанавливаем стиль для очистки канвы
  end;
2:begin
  Image1.Canvas.Brush.Style:=bsClear;
  Image1.Canvas.Ellipse(x-20,y-20,x+20,y+20);
  Image1.Canvas.Brush.Style:=bsSolid;
  end;
3:with Image1.Canvas do //треугольнику это не нужно
   begin
    moveto(x-20,y+20);
    lineto(x,y-20);
    lineto(x+20,y+20);
    lineto(x-20,y+20);
  end;
else showmessage('Вы не выбрали фигуру');
end;
end;
1
0 / 0 / 0
Регистрация: 24.09.2013
Сообщений: 35
09.12.2015, 11:40  [ТС] 3
Cпасибо большое, очень выручили!
0
09.12.2015, 11:40
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
09.12.2015, 11:40
Помогаю со студенческими работами здесь

В Paintbox вписать в круг треугольник, потом квадрат, и равнобедренный треугольник
Int a=StrToInt (Edit1->Text); PaintBox->Canvas->Ellipse(200-a/2,200-a/2,200+a/2,200+a/2);нарисовал круг, а как вписать в него другие...

Нарисовать квадрат, в нем круг, в круге квадрат, и так далее
Здравствуйте. Требуется помощь. Нужно нарисовать рисунок. Квадрат, в нем круг, в этом круге квадрат, в этом квадрате круг.....и так пока...

Как при нажатии мыши нарисовать в окне квадрат
как при нажатии мыши нарисовать в окне квадрат,который двигается слева направо?

Постройте на экране компьютера треугольник, который перемещается при нажатии на клавиши перемещения в указанном направлении
Нашел похожую задачу,только там сектор, но переделать, что то, не получается, заранее спасибо: uses crt,graph; var gd,gm:integer; ...

Постройте на экране компьютера треугольник, который перемещается при нажатии на клавиши перемещения в указанном направлении.
Помогите


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему

Редактор формул (кликните на картинку в правом углу, чтобы закрыть)
Опции темы

Новые блоги и статьи
Ошибка "Cleartext HTTP traffic not permitted" в Android
hw_wired 13.02.2025
При разработке Android-приложений можно столнуться с неприятной ошибкой "Cleartext HTTP traffic not permitted", которая может серьезно затруднить отладку и тестирование. Эта проблема особенно. . .
Изменение версии по умолчанию в NVM
hw_wired 13.02.2025
Node Version Manager, или коротко NVM - незаменимый инструмент для разработчиков, использующих Node. js. Многие сталкивались с ситуацией, когда разные проекты требуют различных версий Node. js,. . .
Переименование коммита в Git (локального и удаленного)
hw_wired 13.02.2025
Git как система контроля версий предоставляет разработчикам множество средств для управления этой историей, и одним из таких важных средств является возможность изменения сообщений коммитов. Но зачем. . .
Отличия Promise и Observable в Angular
hw_wired 13.02.2025
В веб-разработки асинхронные операции стали неотъемлимой частью почти каждого приложения. Ведь согласитесь, было бы странно, если бы при каждом запросе к серверу или при обработке больших объемов. . .
Сравнение NPM, Gulp, Webpack, Bower, Grunt и Browserify
hw_wired 13.02.2025
В современной веб-разработке существует множество средств сборки и управления зависимостями проектов, каждое из которых решает определенные задачи и имеет свои особенности. Когда я начинаю новый. . .
Отличия AddTransient, AddScoped и AddSingleton в ASP.Net Core DI
hw_wired 13.02.2025
В современной разработке веб-приложений на платформе ASP. NET Core правильное управление зависимостями играет ключевую роль в создании надежного и производительного кода. Фреймворк предоставляет три. . .
Отличия между venv, pyenv, pyvenv, virtualenv, pipenv, conda, virtualenvwrapp­­er, poetry и другими в Python
hw_wired 13.02.2025
В Python существует множество средств для управления зависимостями и виртуальными окружениями, что порой вызывает замешательство даже у опытных разработчиков. Каждый инструмент создавался для решения. . .
Навигация с помощью React Router
hw_wired 13.02.2025
React Router - это наиболее распространенное средство для создания навигации в React-приложениях, без которого сложно представить современную веб-разработку. Когда мы разрабатываем сложное. . .
Ошибка "error:0308010C­­:dig­ital envelope routines::unsup­­ported"
hw_wired 13.02.2025
Если вы сталкиваетесь с ошибкой "error:0308010C:digital envelope routines::unsupported" при разработке Node. js приложений, то наверняка уже успели поломать голову над её решением. Эта коварная ошибка. . .
Подключение к контейнеру Docker и работа с его содержимым
hw_wired 13.02.2025
В мире современной разработки контейнеры Docker изменили подход к созданию, развертыванию и масштабированию приложений. Эта технология позволяет упаковать приложение со всеми его зависимостями в. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru