Нужно перевести программу с Turbo Pascal в Pascal ABC.NET

@goshichek · Регистрация: 18.11.2017

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

Вот есть программный код , но он для турбо паскаля, помогите перевести его в АБС.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
Program graphics; 
uses graph; 
var gd,gm,xc,yc:integer; 
fills:array[1..3] of PointType; 
begin 
gd:=detect; initgraph (gd,gm,''); 
if graphresult <> 0 then halt(1); 
xc:=100; yc:=100; 
SetFillStyle(3,GetMaxColor); 
fills[1].x:=xc; fills[1].y:=yc-75; 
fills[2].x:=xc-75; fills[2].y:=yc; 
fills[3].x:=xc+75; fills[3].y:=yc; 
FillPoly(sizeof(fills) div sizeof(pointtype), fills); 
line(xc-90,yc,xc+90,yc); line(xc,yc-90,xc,yc+90); 
line(xc,yc-75,xc-75,yc); line(xc,yc-75,xc+75,yc); 
moveto(xc-75-16,yc+2);outtext('-1'); 
moveto(xc+75+2,yc+2);outtext('1'); 
moveto(xc+2,yc-75-8);outtext('1'); 
moveto(xc+2,yc+75+2);outtext('-1'); 
moveto(xc+90-8,yc-9);outtext('x'); 
moveto(xc-9,yc-90);outtext('y'); 
readln; 
cleardevice; 
closegraph 
end.

@BlackStoneBlack · 18.11.2017, 15:54

Например, вот так:

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
program Graphics;
 
uses GraphABC; 
 
var
  //Координаты
  xc, yc: Integer; 
  
  //Динамический массив точек
  fills: array of Point;
 
begin
  //Задаем координаты x и y
  xc := 100;
  yc := 100;
  
  //Задаем цвет заполнения по системе ARGB: a - прозрачность, r - красный, g - зелёный, b - синий
  SetBrushColor(ARGB(255, 0, 0, 0));
  
  //Инициализируем и заполняем массив
  SetLength(fills, 3);
  fills[0].x := xc;
  fills[0].y := yc - 75;
  fills[1].x := xc - 75;
  fills[1].y := yc;
  fills[2].x := xc + 75;
  fills[2].y := yc;
  
  //Заполняем полученную фигуру
  FillPolygon(fills);
  
  //Отрисовываем линии
  Line(xc - 90, yc, xc + 90, yc);
  Line(xc, yc - 90, xc, yc + 90);
  Line(xc, yc - 75, xc - 75, yc);
  Line(xc, yc - 75, xc + 75, yc);
  MoveTo(xc - 75 - 16, yc + 2);
  MoveTo(xc + 75 + 2, yc + 2);
  MoveTo(xc + 2, yc - 75 - 8);
  MoveTo(xc + 2, yc + 75 + 2);
  MoveTo(xc + 90 - 8, yc - 9); 
  MoveTo(xc - 9, yc - 90);
end.

@Puporev · 18.11.2017, 15:58

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
uses graphABC;
var xc,yc:integer;
    fills:array of Point;
begin
xc:=100; yc:=100;
Setlength(fills,4);
fills[0].x:=xc; fills[0].y:=yc-75;
fills[1].x:=xc-75; fills[1].y:=yc;
fills[2].x:=xc+75; fills[2].y:=yc;
fills[3]:=fills[0];
Brush.Style:=bsHatch;
Brush.Hatch:=bhBackwardDiagonal;
Polygon(fills);
Brush.Style:=bsClear;
Line(xc-90,yc,xc+90,yc); line(xc,yc-90,xc,yc+90);
Line(xc,yc-75,xc-75,yc); line(xc,yc-75,xc+75,yc);
Textout(xc-75-16,yc+2,'-1');
Textout(xc+75+2,yc+2,'1');
Textout(xc+2,yc-75-8,'1');
Textout(xc+2,yc+75+2,'-1');
Textout(xc+90-10,yc-20,'x');
Textout(xc-9,yc-90,'y');
end.

@volvo · 18.11.2017, 16:00

Там вообще-то текст выводился, так что:

Pascal
1
2
3
4
5
6
7
  SetBrushColor(clWhite);
  textout(xc - 75 - 16, yc + 2, '-1'); 
  textout(xc + 75 + 2, yc + 2, '1'); 
  textout(xc + 2, yc - 75 - 8, '1'); 
  textout(xc + 2, yc + 75 + 2, '-1'); 
  textout(xc + 90 - 8, yc - 9, 'x'); 
  textout(xc - 9, yc - 90, 'y');

@goshichek · 18.11.2017, 22:14 **[ТС]**

Puporev, а такое?

@goshichek · 18.11.2017, 22:29 **[ТС]**

volvo, такое сможешь прописать?

@Puporev · 19.11.2017, 08:26

В моем коде в посте №3 уберите строку 16.
9.24

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
uses graphABC;
var xc,yc:integer;
    fills:array of Point;
begin
xc:=100; yc:=100;
Setlength(fills,4);
fills[0].x:=xc; fills[0].y:=yc;
fills[1].x:=xc+75; fills[1].y:=yc-75;
fills[2].x:=xc+75; fills[2].y:=yc;
fills[3]:=fills[0];
Brush.Style:=bsHatch;
Brush.Hatch:=bhBackwardDiagonal;
Polygon(fills);
Brush.Style:=bsClear;
Line(xc-90,yc,xc+90,yc); line(xc,yc-90,xc,yc+90);
Textout(xc-75-16,yc+2,'-1');
Textout(xc+75+2,yc+2,'1');
Textout(xc+2,yc-75-8,'1');
Textout(xc+2,yc+75+2,'-1');
Textout(xc+90-10,yc-20,'x');
Textout(xc-9,yc-90,'y');
end.

10.25.

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
uses graphABC;
var xc,yc:integer;
    fills:array of Point; 
begin
xc:=100; yc:=100;
setlength(fills,4);
fills[0].x:=xc-75; fills[0].y:=yc;
fills[1].x:=xc; fills[1].y:=yc-75;
fills[2].x:=xc; fills[2].y:=yc;
fills[3]:=fills[0];
Brush.Style:=bsHatch;
Brush.Hatch:=bhBackwardDiagonal;
Polygon(fills);
Brush.Style:=bsHatch;
Brush.Hatch:=bhBackwardDiagonal;
Brush.HatchBackgroundColor:=clWhite;
pie(xc,yc,75,0,90);
Brush.Style:=bsClear;
Line(xc-90,yc,xc+90,yc); line(xc,yc-90,xc,yc+90);
Textout(xc-75-16,yc+2,'-1');
Textout(xc+75+2,yc+2,'1');
Textout(xc+2,yc-75-8,'1');
Textout(xc+2,yc+75+2,'-1');
Textout(xc+90-10,yc-20,'x');
Textout(xc-9,yc-90,'y');
end.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .	SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	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, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .

@goshichek 0 / 0 / 0 Регистрация: 18.11.2017 Сообщений: 6
	18.11.2017, 22:14 [ТС]
	Puporev, а такое? Миниатюры 0

@goshichek 0 / 0 / 0 Регистрация: 18.11.2017 Сообщений: 6
	18.11.2017, 22:29 [ТС]
	volvo, такое сможешь прописать? Миниатюры 0

Нужно перевести программу с Turbo Pascal в Pascal ABC.NET

Решение