0 / 0 / 0
Регистрация: 18.11.2017
Сообщений: 6

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

18.11.2017, 15:20. Показов 3691. Ответов 6
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Вот есть программный код , но он для турбо паскаля, помогите перевести его в АБС.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.
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
18.11.2017, 15:20
Ответы с готовыми решениями:

Нужно переделать программу,написанную на Turbo Pascal в ту,чтобы работала на Pascal ABC.NET пожалуйста
program lab3; uses Crt; const Output_File_Name = 'output.txt'; { ima faila dlya vivoda perestanovok } Nmax = 12; {...

Нужно переделать программу,написанную на Turbo Pascal в ту,чтобы работала на Pascal ABC.NET пожалуйста
program lab2; uses Crt; const Nmax = 15; { MAX element mnozestva A } type T = Char; { Tip element mnozestva A }

Перевести код Pascal turbo в abc.net
Помогите перевести код Pascal turbo в abc.net, сам не могу так как не обладаю нужными знаниями. uses graph; var x,y: integer; ...

6
half-horse half-gateway
117 / 83 / 43
Регистрация: 10.05.2016
Сообщений: 563
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.
0
Почетный модератор
 Аватар для Puporev
64312 / 47609 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
18.11.2017, 15:58
Лучший ответ Сообщение было отмечено goshichek как решение

Решение

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.
1
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33143 / 21437 / 8221
Регистрация: 22.10.2011
Сообщений: 36,764
Записей в блоге: 9
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');
0
0 / 0 / 0
Регистрация: 18.11.2017
Сообщений: 6
18.11.2017, 22:14  [ТС]
Puporev, а такое?
Миниатюры
Нужно перевести программу с Turbo Pascal в Pascal ABC.NET  
0
0 / 0 / 0
Регистрация: 18.11.2017
Сообщений: 6
18.11.2017, 22:29  [ТС]
volvo, такое сможешь прописать?
Миниатюры
Нужно перевести программу с Turbo Pascal в Pascal ABC.NET  
0
Почетный модератор
 Аватар для Puporev
64312 / 47609 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
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.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
19.11.2017, 08:26
Помогаю со студенческими работами здесь

Можно как-то переделать код из Turbo Pascal чтобы он работал в pascal abc.net?
Сделайте пожалуйста, я просто не вникаю uses Graph, Crt; var grDriver: integer; grMode: integer; ErrCode: integer; ...

Перевод программы с Turbo Pascal на Pascal ABC.NET
написала программу в паскаль турбо на рабочем компьютере. перенесла в паскаль авсNet так как дома стоит эта версия /перестала работать что...

Перевод из turbo pascal в abc.net
Помогите адаптировать программу для abc.net из turbo pascal Program transportnaj_zadatsha; Uses Crt; Label l1; Const N=10; ...

Чем отличается работа с нетипизированными файлами в abc net от turbo Pascal
Объясните мне пожалуйста чем отличается работа с нетипизированными файлами в abc net от turbo pascal.Заметил отсутствие readblock и...

Перевод программы с turbo pascal на Pascal ABC
Есть программа, которая строит треугольник Серпинского методом хаоса, но она конфликтует с графикой ABC. Важен именно этот метод. ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Закрытая тема Создать тему
Опции темы

Новые блоги и статьи
Как использовать OAuth2 со Spring Security в Java
Javaican 14.05.2025
Протокол OAuth2 часто путают с механизмами аутентификации, хотя по сути это протокол авторизации. Представьте, что вместо передачи ключей от всего дома вашему другу, который пришёл полить цветы, вы. . .
Анализ текста на Python с NLTK и Spacy
AI_Generated 14.05.2025
NLTK, старожил в мире обработки естественного языка на Python, содержит богатейшую коллекцию алгоритмов и готовых моделей. Эта библиотека отлично подходит для образовательных целей и. . .
Реализация DI в PHP
Jason-Webb 13.05.2025
Когда я начинал писать свой первый крупный PHP-проект, моя архитектура напоминала запутаный клубок спагетти. Классы создавали другие классы внутри себя, зависимости жостко прописывались в коде, а о. . .
Обработка изображений в реальном времени на C# с OpenCV
stackOverflow 13.05.2025
Объединение библиотеки компьютерного зрения OpenCV с современным языком программирования C# создаёт симбиоз, который открывает доступ к впечатляющему набору возможностей. Ключевое преимущество этого. . .
POCO, ACE, Loki и другие продвинутые C++ библиотеки
NullReferenced 13.05.2025
В C++ разработки существует такое обилие библиотек, что порой кажется, будто ты заблудился в дремучем лесу. И среди этого многообразия POCO (Portable Components) – как маяк для тех, кто ищет. . .
Паттерны проектирования GoF на C#
UnmanagedCoder 13.05.2025
Вы наверняка сталкивались с ситуациями, когда код разрастается до неприличных размеров, а его поддержка становится настоящим испытанием. Именно в такие моменты на помощь приходят паттерны Gang of. . .
Создаем CLI приложение на Python с Prompt Toolkit
py-thonny 13.05.2025
Современные командные интерфейсы давно перестали быть черно-белыми текстовыми программами, которые многие помнят по старым операционным системам. CLI сегодня – это мощные, интуитивные и даже. . .
Конвейеры ETL с Apache Airflow и Python
AI_Generated 13.05.2025
ETL-конвейеры – это набор процессов, отвечающих за извлечение данных из различных источников (Extract), их преобразование в нужный формат (Transform) и загрузку в целевое хранилище (Load). . . .
Выполнение асинхронных задач в Python с asyncio
py-thonny 12.05.2025
Современный мир программирования похож на оживлённый мегаполис – тысячи процессов одновременно требуют внимания, ресурсов и времени. В этих джунглях операций возникают ситуации, когда программа. . .
Работа с gRPC сервисами на C#
UnmanagedCoder 12.05.2025
gRPC (Google Remote Procedure Call) — открытый высокопроизводительный RPC-фреймворк, изначально разработанный компанией Google. Он отличается от традиционых REST-сервисов как минимум тем, что. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru