Изображение фигур заданного цвета.

@Best-pm07 · Регистрация: 19.03.2009

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

Составить программу, которая выводит на экран изображение двух геометрических фигур заданного цвета до индивидуального задания приведенном в таблице:

Вот у меня имеется выполненная программа для 10 варианта, помогите её переделать для 19 варианта, приведенного во вложении. К сожалению я проверить её не могу, пользуюсь старой версией паскаль. Помогите, спасибо)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Program zadacha26;
uses graph,wincrt;
var f1,f2:word;
x1,x2,x3,y1,y2,y3:integer;
procedure DrawPoly(NumPoints:word;var x1,y1,x2,y2,x3,y3,x4,y4,x5,y5,x6,y6);
procedure DrawPoly(NumPoints:word;var x1,y1,x2,y2,x3,y3,x4,y4);
procedure SetColor(Color:TcololRef);
begin
f1:=DrawPoly(6,0,3,2,2,2,-2,0,-3,-2,-2,-2,2);
SetColor(0);
Writeln('f1=',f1);
f2:=DrawPoly(4,2,1,1,-1,-2,-1,-1,1);
SetColor(6);
Writeln('f2=',f2);
end.

@Puporev · 01.11.2010, 18:25

Сообщение от Best-pm07

переделать для 19 варианта,

Это типа параллелограмм округлить до конуса?

@Best-pm07 · 02.11.2010, 00:16 **[ТС]**

нет, код дал для аналогии.
этот код написан для 10 варианта.
а мне нужно сделать, чтобы было по 19-му.
просто я не совсем понимаю как это сделать, да и проверить не получится.

Добавлено через 2 часа 39 минут
Всё ещё актуально, не могу найти подобной задачи в инете.

@Puporev · 02.11.2010, 07:45

Вот открыл справку АВС и нарисовал. Почему Вы-то этого не можете?

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses GraphABC;
var x,y:integer;
begin
x:=WindowWidth div 2;
y:=WindowHeight div 2;
SetPenWidth(3);
SetPenColor(clGreen);
MoveTo(x-100,y+100);
LineTo(x+100,y+100);
SetPenColor(clBlack);
Arc(x,y-170,200,240,300);
MoveTo(x,y-170);LineTo(x-100,y);
MoveTo(x,y-170);LineTo(x+100,y);
SetPenWidth(1);
SetPenStyle(psDash );
Arc(x,y+170,200,60,120);
end.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11680&d=1772460536 Одним из. . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .
SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .

@Best-pm07 ..:::BesT:::.. 8 / 8 / 5 Регистрация: 19.03.2009 Сообщений: 195
	02.11.2010, 00:16 [ТС]
	нет, код дал для аналогии. этот код написан для 10 варианта. а мне нужно сделать, чтобы было по 19-му. просто я не совсем понимаю как это сделать, да и проверить не получится. Добавлено через 2 часа 39 минут Всё ещё актуально, не могу найти подобной задачи в инете. 0