Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Pascal/Turbo Pascal » Dibujar un corazon

Pascal/Turbo Pascal - Dibujar un corazon

Volver
Nuevo Tema
<<>>
 
Vista:

Dibujar un corazon

Publicado por Diego (8 intervenciones) el 09/05/2012 02:53:28
Hola que tal?! Muy buenas....

Tengo una duda o lo que me gustaria hacer en realidad:

Quiero "dibujar" un corazon en pascal sin tener que usar 53354321 instrucciones: WRITELN (' SIMBOLO A USAR') hasta formar dicho corazon.

Si hay algun metodo mas "lindo" con diferentes intrucciones o que se yo, y me lo pueden facilitar u orientar un poco, se los agradecere y mucho.

>> Tambien es valido y mas "lindo" si me dicen como para usar la libreria "uses Graph"

Desde ya muchisimas gracias por todo
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

Dibujar un corazon

Publicado por ramon (2158 intervenciones) el 09/05/2012 17:02:36
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
{Para usar la unidad gráfica}
 
program corazon;
 uses
   crt, graph;
   const
      mcorazon : array[1..12,1..15] of byte = (
      (0,0,1,1,1,0,0,0,0,0,1,1,1,0,0),
      (0,1,0,0,0,1,0,0,0,1,0,0,0,1,0),
      (1,0,0,0,0,0,1,0,1,0,0,0,0,0,1),
      (1,0,0,0,0,0,0,1,0,0,0,0,0,0,1),
      (1,0,0,0,0,0,0,0,0,0,0,0,0,0,1),
      (0,1,0,0,0,0,0,0,0,0,0,0,0,1,0),
      (0,0,1,0,0,0,0,0,0,0,0,0,1,0,0),
      (0,0,0,1,0,0,0,0,0,0,0,1,0,0,0),
      (0,0,0,0,1,0,0,0,0,0,1,0,0,0,0),
      (0,0,0,0,0,1,0,0,0,1,0,0,0,0,0),
      (0,0,0,0,0,0,1,0,1,0,0,0,0,0,0),
      (0,0,0,0,0,0,0,1,0,0,0,0,0,0,0));
  var
    driver, modo : integer;
    x, y : integer;
    begin
       driver := detect;
       initgraph(driver, modo,'C:\tp\bgi'); {Cambiar si esta en otra direccion}
       if graphresult <> 0 then
       begin
       halt(1);
       end
     else
        begin
         for y := 1 to 12 do
           for x := 1 to 15 do
           begin
              if mcorazon[y,x] = 1 then
              begin
              putpixel(100 + x * 4,130 + y * 4,12);
              putpixel(100 + (x * 4) - 1,130 + (y * 4) - 1,12);
              putpixel(100 + (x * 4) + 1,130 + (y * 4) + 1,12);
              putpixel(100 + x * 2,100 + y * 2,10);
              putpixel(100 + x ,80 + y ,15);
              end;
           end;
         readln;
         closegraph;
        end;
    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

Dibujar un corazon

Publicado por Diego (8 intervenciones) el 10/05/2012 05:44:17
waaaaw... te pasaste ramon :D ... pero te dire que cuando lo compilo, me tira diferentes errores: de finalizacion y un par mas que no recuerdo.

Sera que si tienes la amabilidad de subir a mediafire o mandarme por correo el archivo.pas compilado por ti(y que de seguro que te andara perfecto) asi yo lo puedo usar? Muchas gracias de nuevo :)
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