Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  asdf
Language: PASCAL
Code:
{--------------------------}
 {  Ejemplo en Pascal:      }
 {                          }
 {    Funciones gráficas    }
 {    más frecuentes        }
 {    DEMOGRAF.PAS          }
 {                          }
 {  Este fuente procede de  }
 {  CUPAS, curso de Pascal  }
 {  por Nacho Cabanes       }
 {                          }
 {  Comprobado con:         }
 {    - Turbo Pascal 7.0    }
 {--------------------------}
 
 program DemoGraf;
 
 uses graph;
 
 var
   driver, modo: integer;
   x, y: integer;
   i: integer;
 
 begin
   driver := detect;
   initgraph(driver, modo, '');
   randomize;                 { Comienzo a generar números al azar }
   line(0,0,639,479);         { Línea fija }
   for i := 1 to 200 do       { 200 puntos }
     putpixel(random(640), random(480), random(15)+1);
   for i := 1 to 50 do        { 50 círculos }
     begin
     setcolor(random(15)+1);
     circle(random(640), random(480), random(50));
     end;
   for i := 1 to 30 do        { 30 rectángulos }
     begin
     x := random(500);
     y := random(400);
     setcolor(random(15)+1);
     rectangle(x, y, x+random(140), y+random(80));
     end;
   for i := 1 to 15 do        { 15 rectángulos }
     begin
     x := random(500);
     y := random(400);
     setcolor(random(15)+1);
     setfillstyle(random(11), random(15)+1);
     bar(x, y, x+random(140), y+random(80));
     end;
                              { Recuadro con texto en su interior }
   setfillstyle(SolidFill, LightBlue);
   SetColor(Yellow);
   Bar3D(93,93,440,112, 5, true);
   setcolor(Red);
   OutTextXY(99,99,'Prueba del modo gráfico desde Turbo Pascal');
   setcolor(White);
   OutTextXY(100,100,'Prueba del modo gráfico desde Turbo Pascal');
   readln;
   closegraph;
 end. 
Comments: