ErrorDeSintaxis

Pequeños fragmentos de código fuente en distintos lenguajes de programación, agrupados por categorías.

Puedes buscar entre los fuentes existentes, o aportar los tuyos.

Pascal: Entrar a modo gráfico

Entrar a modo gráfico y dibujar una línea, en Pascal

Lenguaje: Pascal (compilador: Turbo Pascal 7)

Categoría: Gráficos

(* Fuente procedente de ErrorDeSintaxis.es *)
(* Entrar a modo gráfico y dibujar una línea, *)
(*  en Pascal *)
(* Lenguaje: Pascal *)
(* Compilador: Turbo Pascal 7 *)
(* Nivel: Básico *)
(* Disponible desde 17/07/2011 *)
(* Aportado por Nacho *)
(* Autor original: Nacho Cabanes *)
(* Web original: http://www.freepascal.es/tutorials/cupas14.php *)

program PrimerGrafico;
 
 uses Graph;                     { Va a usar la librería gráfica de TP }
 
 var
  Driver, Modo: Integer;             { Pues el driver y el modo, claro }
 
 begin
  Driver := Vga;                                   { Para pantalla VGA }
  Modo := VgaHi;                            { Modo 640x480, 16 colores }
  InitGraph(Driver, Modo, 'c:	pgi');                { Inicializamos }
  Line(0, 0, 320, 240);                          { Dibujamos una línea }
  Readln;                                                  { Esperamos }
  CloseGraph                                              { Y se acabó }
 end.