moduł graph nie działa [turbo pascal]
: 24 maja 2011, 20:55
Witam. Napisałem program:
program kompiluje się i wyłącza nie dając żadnego wyniku na ekranie (turbo pascal). Uruchamiając ten program w free pascalu wszystko jest w porządku i wyświetla się okrąg. Co zrobić by wyświetlał się on też używając turbo pascala?
Kod: Zaznacz cały
program ptp;
uses
graph;
var
karta,tryb:integer;
napis:string;
begin
detectgraph (karta,tryb);
initgraph (karta,tryb,'C:\FPC\2.4.0\units\i386-win86\graph');
setcolor (yellow);
circle (205,270,195);
setcolor (white);
napis:='kolko';
outtextXY (50 div 2-textwidth(napis) div 2,50 div 2- textheight(napis)div 2, napis);
readln;
closegraph;
readln;
end.
