Построить и закрасить построенную плоскую фигуру – прямоугольник с заданными вершинами

@Vlad_skrim · Регистрация: 05.07.2015

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

Построить и закрасить построенную плоскую фигуру – прямоугольник с вершинами (80, 80), (170, 80), (170, 150), (80, 150). После построения изменить программу таким образом, чтобы на экране появилось три треугольника, расположенных по вертикали.(PascalABC)

@Puporev · 05.07.2015, 22:43

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
uses graphABC;
type point=record
           x,y:integer;
           end;
procedure trg(x,y:integer);
var p:array[1..4] of point;
    r,i,c:integer;
    u:real;
begin
r:=35;
u:=pi/2;
for i:=1 to 4 do
 begin
  p[i].x:=x+round(r*cos(u));
  p[i].y:=y-round(r*sin(u));
  u:=u+2*pi/3;
 end;
c:=clrandom;
setbrushcolor(c);
setpencolor(c);
polygon(p,4);
end;
begin
setwindowsize(250,230);
centerwindow;
setbrushcolor(clRed);
setpencolor(clRed);
rectangle(80,80,170,150);
setbrushstyle(bsClear);
sleep(2000);
clearwindow;
trg(125,45);
trg(125,115);
trg(125,185);
end.

@Vlad_skrim · 05.07.2015, 23:01 **[ТС]**

Что-то не то..

Добавлено через 17 секунд
Можно как-нибудь попроще

@Puporev · 06.07.2015, 07:00

А по моему все то. Если не нравится, рисуйте сами. Вы меня не нанимали чтобы указывать.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .
SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .

@Vlad_skrim 0 / 0 / 0 Регистрация: 05.07.2015 Сообщений: 2

	Построить и закрасить построенную плоскую фигуру – прямоугольник с заданными вершинами 05.07.2015, 22:07. Показов 3169. Ответов 3 Метки нет (Все метки) Построить и закрасить построенную плоскую фигуру – прямоугольник с вершинами (80, 80), (170, 80), (170, 150), (80, 150). После построения изменить программу таким образом, чтобы на экране появилось три треугольника, расположенных по вертикали.(PascalABC) 0

@Vlad_skrim 0 / 0 / 0 Регистрация: 05.07.2015 Сообщений: 2
	05.07.2015, 23:01 [ТС]
	Что-то не то.. Добавлено через 17 секунд Можно как-нибудь попроще 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	06.07.2015, 07:00
	А по моему все то. Если не нравится, рисуйте сами. Вы меня не нанимали чтобы указывать. 0

Построить и закрасить построенную плоскую фигуру – прямоугольник с заданными вершинами

Решение