SoloCodigo

Programación General => Pascal => Mensaje iniciado por: yaelito0 en Domingo 24 de Octubre de 2010, 23:12

Título: hola apoyo para dibujar una "X" en pascal
Publicado por: yaelito0 en Domingo 24 de Octubre de 2010, 23:12

Hola :hola:  he tratado de hacer una X gigante dibujada en la pantalla pero solo me sale un lado de la x  :(

es q es un proyecto de mi escuela ya busque y re-busque como poderle poner el otro lado y no puedo solo me enoja  :hitcomp:  xD


porfavor alguien me ayuda a completar el codigo............. :comp:

en la parte de  ( for i:=1 to 24 do begin;gotoxy(i,i); write('*');end; ..............es donde se dibuja el primer lado de la x)

mi codigo es........................

Código: Pascal

1. program ventanas;
2. uses crt, windows;
3. var opcion:integer;
4.  
5. procedure linea1 (y1:integer;y2:integer;x1:integer;x2:integer);
6. var i:integer;
7. begin
8. clrscr;
9. for i:=1 to 24 do begin;gotoxy(i,i); write('*');end;
10.  
11. end;
12.  
13.  
14.  
15.  
16. procedure codigo1;
17. begin
18. clrscr();
19. linea1(1,1,24,24);
20.  
21. gotoxy(30,12); writeln('press a key to continue ');
22. readkey();
23. end;
24. begin
25. clrscr();
26.  
27.  
28. while opcion<>2 do begin
29. clrscr();
30.  
31.  
32. writeln('1-imprime ventana');
33. writeln('2-salir ');
34. readln(opcion);
35. if opcion=1 then codigo1;
36. end;
37. end.
38.  

corrijo: vi el primer tema de no hacer tarea...................................miren mi real tarea es crear una lista de una tienda de guitarras alamcenar 10 datos de las guitarara, promedio, resultado etc, etc. ........................... y este solo es que estoy practicando para mi examen porque estamos viendo ciclos for, while y repeat, pero por ningun motivo es tarea.....es solo la practica para mi examen..........disculpen si hubo malos entendidos


encontre que debajo de:

for i:=1 to 24 do begin;gotoxy(i,i); write('*');end;
(podria estar tambn) for i:=1 to 24 do begin;..................pero no encuentro la manera de hacer aparecer el otro lado de la "X"

Título: Re: hola apoyo para dibujar una "X" en pascal
Publicado por: Xaos en Martes 26 de Octubre de 2010, 18:35

Muy buenas.

He probado a hacer la X y me ha salido.
Te pego el codigo para que lo mires por si te puede ayudar.

Saludos

Código: Pascal

1. PROGRAM ekis;
2. uses crt, windows;
3. VAR
4.         cont: integer;
5.         i: integer;
6. BEGIN
7.     cont:=1;
8.     FOR i:=1 TO 24 DO
9.     BEGIN
10.         gotoxy(i,i);
11.         write('X');
12.         gotoxy((24-cont),i);
13.         write('X');
14.         cont:=cont+1;
15.     END;
16. END.
17.  

Título: Re: hola apoyo para dibujar una "X" en pascal
Publicado por: yaelito0 en Martes 2 de Noviembre de 2010, 06:40

gracias me sirvio mucho  :beer:  

ahora ya pase mi examen y lo pase exelente! jaja me acorde de un monton de cosas pero esta me costaba, jejeje gracias! :lol:

saludos a todos! :hola: