Pascal/Turbo Pascal - unidad grafica problema

   
Vista:

unidad grafica problema

Publicado por jose manuel  (1 intervención) el 12/12/2010 23:48:09
holas buenas.
bueno recien estoy empezandoa estudiar programacion y me salto la curiosidad de ver algro de graficos en el pascal 7.0 pero no tengo los archivos bgi o algo aci alguien q me indique como solucionar este problema plisis
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:unidad grafica problema

Publicado por ramon (2072 intervenciones) el 14/02/2011 20:43:25
Los archivos *.bgi se encuentran en el directorio BGI de pascal 7 ejemplo:
c:\tp\bgi en el tienes la egavga.bgi driver de graficos.
Y en c:\tp\units la unidad graph.tpu.
Para lo cual tienes que iniciar los graficos como,
initgraph(el driver, el modo,`c:\tp\bgi'):

program graficos;
uses
Graph;

var
grDriver: Integer;
grMode: Integer;
ErrCode: Integer;
begin
grDriver := Detect;
InitGraph(grDriver, grMode,'C:\tp\bgi');
ErrCode := GraphResult;
if ErrCode = grOk then
begin
Line(3, 3, GetMaxX - 3, GetMaxY - 3);
circle(getmaxx div 2,getmaxy div 2,30);
outtextxy(200,100,'>>>>>DEMOSTRACION GRAFICA<<<<<');
Readln;
CloseGraph;
end
else
Writeln('Error gr fico:', GraphErrorMsg(ErrCode));
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar