Войти Регистрация Спроси ai-bota

Нарисовать любые 2 рисунка в паскале авс

Ответ:

Kismos2006

08.10.2020 16:39

Uses Graphabc;
begin
SetWindowWidth(1000);
SetWindowHeight(800);
SetPenWidth(3);
SetFontSize(18);
Rectangle(200, 300, 600, 600);
Circle(400, 225, 40);
SetBrushColor(clBlue);
FillRect(300, 400, 500, 500);
rectangle(300, 400, 500, 500);
Line(400, 400, 400, 500);
Line(300, 450, 500, 450);
Line(200, 300, 400, 150);
Line(400, 150, 600, 300);
Line(480, 210, 480, 160);
Line(480, 160, 520, 160);
Line(520, 160, 520, 240);
end.

uses GraphABC;
begin
SetWindowSize(500, 500);
SetPenWidth(3);
SetBrushColor(clFuchsia);
Circle(225, 160, 50);
Line(225, 160, 225, 180);
Line(210, 190, 240, 190);
Line(225, 210, 225, 250);
Line(100, 100, 200, 260);
Line(200, 260, 400, 260);
Line(210, 350, 200, 480);
Line(240, 350, 250, 480);
Rectangle(200, 230, 250, 350);
SetBrushColor(clLime);
FillRect(0, 480, 500, 500);
SetBrushColor(clWhite);
Circle(205, 150, 10);
Circle(245, 150, 10);
end.

0,0(0 оценок)

Популярные вопросы: Информатика

Uniquehatter

25.08.2021 04:44

Дан целочисленный массив из 30 элементов. элементы массива могут принимать целые положительные значения от 1 до 10 000 включительно. напишите на языке программирования паскаль...

elizaveta08071999

03.11.2022 08:36

Счего начинается запись формулы в ячейку электронной таблицы? a) * b) = c) f(x) d) y=...

Demorage

01.04.2021 07:09

Люди придумайте сказку про информатику 7-10предложений...

robertva693

22.01.2021 00:45

Атос, портос, арамис и д’артаньян сидели за круглым столом (именно в такой последовательности), заспорили, и каждый поссорился со своими двумя соседями. чтобы ехать дальше, им...

AnastasiaVolk534

17.09.2020 09:48

Написать программу в среде языка паскаль заданы координаты трёх вершин треугольника. найти его периметр. 1. входные данные: a(2; 3) b(2; 6) c(6; 3) выходные данные: p = 12 2. входные...

imuraveva

09.11.2021 11:58

Не запускается установка приложения nox app player пишет программа noxappplayerinstaller не работает...

Qaswe1

18.02.2020 21:41

Повторить состав компьютера. назначение устройств 91...

ahmedova3

17.11.2020 23:40

После выполнения команды присваивания x: =x+y значение переменной x равно 10, а значение переменной y равно 26. чему были равны значения переменных x и y до выполнения указанной...

ksussshhhaaa

09.05.2022 08:16

Напишите программу, которая в последовательности натуральных чисел определяет количество чисел ,кратных 3 и оканчивающихся на 2.программа получает на вход количество чисел в последовательности,а...

Milk2111

20.06.2020 18:01

После копирования содержимого ячейки а1 в ячейки а2 и в3 в них были записаны формулы =в$1+$с2 и =с$1+$с2 соотвественно. какая формула хранится в ячейке а1?...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку