Переделать код

@cpt_Ronddaa · Регистрация: 09.12.2015

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

Переделайте под PAscalABC.NET

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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
program KR;
uses crt, graph;
const coord1:array [1..8] of integer=(210,280,250,280,270,310,190,310);
 
const coord2:array [1..14] of integer=(340,280,380,280,390,310,375,325,
360,295,345,325,330,310);
const coord3:array [1..6] of integer=(230,180,200,200,200,160);
const coord4:array [1..6] of integer=(230,180,260,160,260,200);
 
var graphdriver, graphmode, errorcode:integer;
BEGIN
graphdriver:=detect;
initgraph(graphdriver,graphmode,'');
errorcode:=graphresult;
if errorcode<>0 then
   begin
   writeln('oshibka grafiki');
   writeln(grapherrormsg(errorcode));
   writeln('programu zakon4eno');
   end;
cleardevice;
setfillstyle(1,9);
bar(0,0,640,350);
setfillstyle(1,10);
bar(0,350,640,480);
setfillstyle(1,14);
pieslice(640,0,360,270,90);
setcolor(14);
line(640,0,450,0);
line(640,0,500,160);
line(640,0,480,100);
line(640,0,630,250);
line(640,0,550,220);
line(640,0,580,240);
line(640,0,420,75);
setcolor(6);
setfillstyle(1,6);
circle(230,200,15);     {golova devo4ka}
fillellipse(230,200,15,15);
circle(360,200,15);     {golova mal4ik}
fillellipse(360,200,15,15);
 
setcolor(3);               {risovanie bantika}
setfillstyle(1,3);
circle(230,180,5);
fillellipse(230,180,5,5);
fillpoly(3,coord3);
fillpoly(3,coord4);
 
setcolor(0);             {volosi mal4ika}
line(360,185,356,188);
line(360,185,350,191);
line(361,186,354,186);
line(364,186,350,185);
line(367,187,353,188);
 
setcolor(6);
line(230,215,230,230);  {risovanie liniy ruk i nog, sheya - devo4ka}
line(210,230,190,260);
line(250,230,270,260);
line(220,310,220,350);
line(240,310,240,350);
line(240,350,250,355);
line(220,350,210,355);
 
line(360,215,360,230);  {risovanie liniy ruk i nig, sheya - mal4ik}
line(340,230,320,250);
line(380,230,400,250);
line(338,315,330,350);
line(383,315,393,350);
line(330,350,318,355);
line(393,350,403,355);
setfillstyle(1,15);
bar(210,230,250,280);   {telo devo4ki}
setfillstyle(1,5);
bar(340,230,380,280);   {telo mal4ika}
setfillstyle(1,13);
fillpoly(4,coord1);     {yubka devo4ka}
setfillstyle(1,7);
fillpoly(7,coord2);     {shorti mal4ik}
setfillstyle(1,6);
floodfill(230,200,6);   {zakrashivanie lic}
floodfill(360,200,6);
repeat
until keypressed;
closegraph;
END.

@cpt_Ronddaa · 27.02.2016, 15:04 **[ТС]**

Cyborg Drone, Это произвольная картинка, на учёбе задали, я сделал, но она в турбо паскале, а мне нужно сделать то же самое но в аbс.net

@Cyborg Drone · 27.02.2016, 15:43

Посмотрел. Солнышко с лучами (с солнышком, по-моему, проблемы), земля, небо, мальчик, девочка.

@Puporev · 27.02.2016, 16:29

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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
program KR;
uses graphABC;
const coord1:array [1..8] of integer=(210,280,250,280,270,310,190,310);
      coord2:array [1..14] of integer=(340,280,380,280,390,310,375,325,
                                       360,295,345,325,330,310);
      coord3:array [1..6] of integer=(230,180,200,200,200,160);
      coord4:array [1..6] of integer=(230,180,260,160,260,200);
var p:array of point;
    i:byte;
begin
brush.Color:=clBlue;
rectangle(0,0,640,350);
brush.Color:=clGreen;
rectangle(0,350,640,480);
setpencolor(clYellow);
brush.Color:=clYellow;
setpenwidth(2);
circle(640,0,90);
line(640,0,450,0);
line(640,0,500,160);
line(640,0,480,100);
line(640,0,630,250);
line(640,0,550,220);
line(640,0,580,240);
line(640,0,420,75);
setpencolor(clBrown);
setbrushcolor(clBrown);
circle(230,200,15);     {golova devo4ka}
circle(360,200,15);     {golova mal4ik}
pen.Color:=clLime;
brush.Color:=clLime;
circle(230,180,5);
setlength(p,4);
for i:=0 to 2 do
 begin
  p[i].X:=coord3[2*i+1];
  p[i].Y:=coord3[2*i+2];
 end;
p[3]:=p[0]; 
Polygon(p); 
for i:=0 to 2 do
 begin
  p[i].X:=coord4[2*i+1];
  p[i].Y:=coord4[2*i+2];
 end;
p[3]:=p[0]; 
Polygon(p);  
pen.Color:=clBlack;             {volosi mal4ika}
line(360,185,356,188);
line(360,185,350,191);
line(361,186,354,186);
line(364,186,350,185);
line(367,187,353,188); 
pen.Color:=clBrown;
line(230,215,230,230);  {risovanie liniy ruk i nog, sheya - devo4ka}
line(210,230,190,260);
line(250,230,270,260);
line(220,310,220,350);
line(240,310,240,350);
line(240,350,250,355);
line(220,350,210,355);
line(360,215,360,230);  {risovanie liniy ruk i nig, sheya - mal4ik}
line(340,230,320,250);
line(380,230,400,250);
line(338,315,330,350);
line(383,315,393,350);
line(330,350,318,355);
line(393,350,403,355); 
pen.Color :=clWhite;
brush.Color:=clWhite;
rectangle(210,230,250,280);
pen.Color :=clWhite;
brush.Color:=clWhite;
pen.Color:=clPurple;
brush.Color:=clPurple;
rectangle(340,230,380,280);   {telo mal4ika}
pen.Color:=clDarkViolet;
brush.Color:=clDarkViolet;
setlength(p,5);
for i:=0 to 3 do
 begin
  p[i].X:=coord1[2*i+1];
  p[i].Y:=coord1[2*i+2];
 end;
p[4]:=p[0]; 
Polygon(p); 
pen.Color:=clGray;
brush.Color:=clGray;
setlength(p,8);
for i:=0 to 6 do
 begin
  p[i].X:=coord2[2*i+1];
  p[i].Y:=coord2[2*i+2];
 end;
p[7]:=p[0]; 
Polygon(p);  
end.

Новые блоги и статьи Все статьи Все блоги /
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 Использованы. . .

@cpt_Ronddaa 0 / 0 / 0 Регистрация: 09.12.2015 Сообщений: 16
	27.02.2016, 15:04 [ТС]
	Cyborg Drone, Это произвольная картинка, на учёбе задали, я сделал, но она в турбо паскале, а мне нужно сделать то же самое но в аbс.net 0

@Cyborg Drone Модератор 10423 / 5711 / 3402 Регистрация: 17.08.2012 Сообщений: 17,369
	27.02.2016, 15:43
	Посмотрел. Солнышко с лучами (с солнышком, по-моему, проблемы), земля, небо, мальчик, девочка. 0

Переделать код

Решение