Pascal/Turbo Pascal - PROGRAMA EN PASCAL CON GOTOXY |URGENTE!!!!!

   
Vista:

PROGRAMA EN PASCAL CON GOTOXY |URGENTE!!!!!

Publicado por Karen (2 intervenciones) el 24/07/2014 01:06:02
Hola necesito de su ayuda!
necesito un programa en pascal conn goto xy que escriba con asteriscos(*) la palabra hola y guate! por su ayuda muy agradecida!!!
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

PROGRAMA EN PASCAL CON GOTOXY |URGENTE!!!!!

Publicado por ramon (2072 intervenciones) el 26/07/2014 13:35:03
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
48
49
{Mira A ver si esto te ayuda }
 
 program gotoxyletras;
  uses
     crt, dos;
 
  var
    x1, y1, origen : Integer;
 
  procedure outtextxy(x, y : word; texto : string);
  var
      lx, ly : word;
      bit, posf, font, posi : byte;
      i, t : integer;
  begin
     ly := y;
   for posi := 1 to Length(texto) do
   begin
      lx := x;
      y := ly;
   for posf := 0 to 7 do
   begin
       font := mem[$ffa6:$e + (ord(texto[posi]) shl 3) + posf];
         for bit := 7 downto 0 do
         begin
          if (font and (1 shl bit)) <> 0 then
          begin
          gotoxy(x, y);write('*');
          end;
          x := x + 1;
          end;
          y := y + 1;
          x := lx;
        end;
          x := x + 8;
       end;
     end;
 
   begin
       origen := lastmode;
       textmode(c80);
       clrscr;
       x1 := 15;
       y1 := 5;
       outtextxy(x1,y1,'Hola');
       outtextxy(x1,y1 + 8,'Guate');
       readkey;
       textmode(origen);
   end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

PROGRAMA EN PASCAL CON GOTOXY |URGENTE!!!!!

Publicado por Karen (2 intervenciones) el 28/07/2014 00:50:50
Ramon muchas gracias me sirvio demasiado, muy agradecida por tu ayuda.! :)
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