1. Заголовок или название темы должно быть информативным ! 2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code]. 3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК ! 4.НЕ используйте форум для личного общения! 5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!
Desktop II, и первый, и второй модуль - не являются стандартными модулями TP/BP... То есть найти 100% работающий модуль ты можешь только у автора программы, этот модуль использующей.
Любой другой, который ты найдешь в Интернете, даже если и сработает - может работать не так, как было задумано...
{$N+} unit graphs; interface procedure opengraph; procedure closegraph; function gx(x: Extended; sx: Integer): Integer; function gy(y: Extended; sy: Integer): Integer; implementation uses Graph; var x, y: Extended; sx, sy: Integer; procedure opengraph; var graphdevice, graphmode: Integer; begin graphdevice := Detect; InitGraph(graphdevice, graphmode,' '); if GraphResult <> 0 then begin WriteLn('ERROR'); ReadLn; Halt; End; end; procedure closegraph; begin CloseGraph; if GraphResult <> 0 then begin WriteLn('ERROR END OF GRAPH MODE'); ReadLn; Halt; end; end; function gx(x: Extended; sx: Integer): Integer; begin gx := trunc(sx*x) + GetMaxX div 2; end; function gy(y: Extended; sy:Integer):Integer; begin gy := GetMaxY div 2 - trunc(sy * y); end;