|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
16.12.2017, 17:04 | #1 |
Пользователь
Регистрация: 22.10.2017
Сообщений: 25
|
Перевести код программм из Pascal в Pascalabc.net
Здравствуйте. Помогите пожалуйста Перевести код программм из Pascal в Pascalabc.net.
Код:
|
16.12.2017, 17:26 | #2 |
Старожил
Регистрация: 12.01.2011
Сообщений: 19,500
|
Вы не перепутали "помогите" и "сделайте за меня"?
Покажите свои наработки, конкретные вопросы и т.п. http://www.programmersforum.ru/announcement.php?f=31 Или в раздел Фриланс если вы не хотите ничего делать, а ищете кого-то, кто выполнит ваши задачи за вознаграждение.
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом. |
17.12.2017, 16:49 | #3 |
Пользователь
Регистрация: 22.10.2017
Сообщений: 25
|
function fy(a,b:real):real;
begin var initgraph:real; var phi:real; fy:=a*sin(phi) end; var xc,yc,x,y1,y2,y3:integer; b,m:real; begin initgraph(xc,yc,'');//Инициализирует графическую систему и переводит видеокарту в графический режим. xc:=getmaxX div 2;//getmaxX целочисленно делим на 2 yc:=getmaxY div 2;//getmaxY целочисленно делим на 2 m:=20; phi:=0; while b<=2*pi do//выполнять до тех пор пока f<=2*pi begin x:=xc+round(18+cos(b)*m);//формула y1:=yc-round(fy(2.5,b)*m);//формула putpixel(x,y1,12);//процедура, закрашивает пиксель с координатами (x, y2) цветом c=12 y2:=yc-round(fy(5,b)*m);//формула putpixel(x,y2,9);//процедура, закрашивает пиксель с координатами (x, y2) цветом c=9 y3:=yc-round(fy(10,b)*m);//формула putpixel(x,y3,10);//процедура, закрашивает пиксель с координатами (x, y2) цветом c=10 b:=b+0.001//прибавляем к значению b end; end. Пишет неизвестный имя 'initgraph' |
17.12.2017, 17:05 | #4 |
Старожил
Регистрация: 12.01.2011
Сообщений: 19,500
|
ну дык там нет модуля graph из ДОСовского Турбо Паскаля.
Смотрите справку и переделывайте с его графическим модулем.
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом. |
17.12.2017, 17:40 | #5 |
Пользователь
Регистрация: 22.10.2017
Сообщений: 25
|
uses graphabc; подключил модуль и пишет неизвестный имя 'initgraph'
|
17.12.2017, 17:44 | #6 |
Старожил
Регистрация: 12.01.2011
Сообщений: 19,500
|
Ну так там другие функции, говорю ж смотрите справку по нему.
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите переделать код с Turbo Pascal на PascalABC.NET. | Halikarnas | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 19.03.2017 20:21 |
Преобразовать код из Turbo Pascal в PascalABC.NET | almazmr | Помощь студентам | 0 | 15.01.2017 18:50 |
Turbo Pascal/Free Pascal/PascalABC.NET как новый инструмент экстрасенсов | Biohazard333 | Свободное общение | 5 | 25.09.2016 12:25 |
код программы на языке PascalABC.NET и C# | Namatrasnik | Помощь студентам | 0 | 04.06.2016 22:02 |
код программы на языке PascalABC.NET и C# | Namatrasnik | Помощь студентам | 0 | 04.06.2016 21:59 |