Вряд ли кто - нибудь будет писать, но может раньше делали?
Нужна программа, которая изображает вращающийся в пространстве вокруг фиксированной оси каркас куба.
Буду очень благодарна, если кто - нибудь поможет.
Полная версия: Графика
Спасибо, но мне бы чего - нибудь по-проще.
Мне тут скинули ссылку. Большое спасибо, но в программе есть следующие строки
uses graph;
const r=50;
pll:byte=0;
pg: byte=0;
var i,j,k,l:integer;
a1,a2,a3:extended;
c:char;
a:array [1..8,1..3] of integer;
pl: array [1..4,1..6] of integer;
ddd:longint;
function kp:boolean; assembler;
asm
MOV AH,1
INT 16H
MOV AL,0
JE @@2
@@1: MOV AL,1
@@2:
end;
Компляция останавливается с сообщением, что переменная АН неизвестна (и это самое начало).
Что можно сделать?
Код
uses graph;
const r=50;
pll:byte=0;
pg: byte=0;
var i,j,k,l:integer;
a1,a2,a3:extended;
c:char;
a:array [1..8,1..3] of integer;
pl: array [1..4,1..6] of integer;
ddd:longint;
function kp:boolean; assembler;
asm
MOV AH,1
INT 16H
MOV AL,0
JE @@2
@@1: MOV AL,1
@@2:
end;
Компляция останавливается с сообщением, что переменная АН неизвестна (и это самое начало).
Что можно сделать?
Это ассемблерная вставка .. А какой у тебя компилятор ? Если FPC, то скомпилировать это у тебя не получится. FPC с 16б асмом не очень дружит 
Цитата
Если FPC, то скомпилировать это у тебя не получится
FPC 2.0.0 компилирует этот код "на ура"...
У меня как раз FPC 2.2, что с ним можно сделать?
Полностью программу присоедини (в аттаче)... Тот кусок, что ты привела у меня откомпилировался. Может быть, дело в другом куске кода... Надо смотреть...
А, так ты о программе Malice? Нет, ее просто так не откомпилируешь на FPC... Port уже не поддерживается ...
А, так ты о программе Malice? Нет, ее просто так не откомпилируешь на FPC... Port уже не поддерживается ...
Ай, не охото мучиться, перешла на Borland Pascal, там заработало, Malice еще раньше прокомментировал, что сделать, чтобы компиллировалось.
Большое всем спасибо!
Большое всем спасибо!
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.