Создать изображенние

@ANDREYZACHARKO · Регистрация: 26.04.2016

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

Название: 1222.JPG
Просмотров: 11

Размер: 13.4 Кб

@Puporev · 24.06.2016, 13:13

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
36
37
38
39
40
41
42
43
44
45
46
uses graphABC;
var x,y,d,d1,h,ax,ay,bx,by,cx,cy,dx,dy,a1x,a1y,b1x,b1y,c1x,c1y,d1x,d1y:integer;
begin
setwindowsize(400,400);
centerwindow;
x:=200;
y:=350;
d:=200;
d1:=120;
h:=200;
ax:=30;ay:=y;
bx:=ax+d;by:=y;
cx:=bx+round(d*cos(pi/4));cy:=by-round(d*sin(pi/4));
dx:=ax+round(d*cos(pi/4));dy:=cy;
a1x:=ax+3*(d-d1) div 4;a1y:=ay-h;
b1x:=a1x+d1;b1y:=a1y;
c1x:=b1x+round(d1*cos(pi/4));c1y:=b1y-round(d1*sin(pi/4));
d1x:=a1x+round(d1*cos(pi/4));d1y:=a1y-round(d1*sin(pi/4));
setpenwidth(2);
line(ax,ay,bx,by);
line(ax,ay,a1x,a1y);
line(bx,by,cx,cy);
line(bx,by,b1x,b1y);
line(bx,by,a1x,a1y);
line(cx,cy,c1x,c1y);
line(a1x,a1y,b1x,b1y);
line(a1x,a1y,d1x,d1y);
line(c1x,c1y,b1x,b1y);
line(c1x,c1y,d1x,d1y);
setpenwidth(1);
setpenstyle(psDash);
line(ax,ay,dx,dy);
line(cx,cy,dx,dy);
line(dx,dy,d1x,d1y);
line(cx,cy,d1x,d1y);
setfontsize(12);
setfontstyle(fsBold);
textout(ax-10,ay+5,'A');
textout(bx+5,by+5,'B');
textout(cx+5,cy-10,'C');
textout(dx-20,dy-10,'D');
textout(a1x-25,a1y-10,'A1');
textout(b1x+15,b1y-10,'B1');
textout(c1x+10,c1y-10,'C1');
textout(d1x-35,d1y-10,'D1');
end.

Новые блоги и статьи Все статьи Все блоги /
Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/

@ANDREYZACHARKO 0 / 0 / 0 Регистрация: 26.04.2016 Сообщений: 33

	Создать изображенние 24.06.2016, 11:53. Показов 1079. Ответов 1 Метки нет (Все метки) 0

Создать изображенние

Решение