Помощь - Поиск - Пользователи - Календарь
Полная версия: Mause.tpu
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
killerfriz
Я програмирую в среде Turbo Pascal попытался запустить вот эту прогу (посмотреть мож чему научиться)

Код

program lab42;
uses mouse,graph;
var d,m,x,y:integer;
   c,f,e:boolean;
procedure nlo(x,y:integer);
begin
fillellipse(x,y,50,20);
Ellipse (x,y-4,190,357,50,20);
Line (x+10,y-12,x+20,y-40);
Line (x-10,y-12,x-20,y-40);
Circle (x+10,y-12,2);
Circle (x-10,y-12,2);
line(x-10,y+20,x-20,y+40);
line(x+10,y+20,x+20,y+40);
line(x-25,y+40,x-15,y+40);
line(x+15,y+40,x+25,y+40);
end;
begin
d:=0;
initgraph(d,m,'');
getmousexy(x,y,c,f,e);
setxrange(50,580);
setyrangle(40,430);
repeat
setcolor(0);
nlo(x,y);
getmousexy(x,y,c,f,e);
setcolor(7);
nlo(x,y);
until c=true
end.




После чего он мне выдал мол Фаил MAUSE.TPU не найден. Подскажите как оно ... ато я не догоняю (Дурень наверно blink.gif ) rolleyes.gif
BlackShadow
Для того, чтобы это заработало, нужно тебе иметь все используемые библиотеки. Mouse.Tpu в стандартный набор не входит, а в этой проге используется. Так что скачай откуда-нибудь и вперёд.
Altair
Советую начинать с программ без подключаемых модулей.
BlackShadow
Или хотя бы без крысы smile.gif
trminator
а mouse.tpu положишь туда же, где лежит graph.tpu (этот путь должен быть прописан в Options > Directories > Unit directories)
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.