Programación General > Pascal

 hola apoyo para dibujar una "X" en pascal

(1/1)

yaelito0:
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 ---program ventanas;uses crt, windows;var opcion:integer; procedure linea1 (y1:integer;y2:integer;x1:integer;x2:integer);var i:integer;beginclrscr;for i:=1 to 24 do begin;gotoxy(i,i); write('*');end; end;    procedure codigo1;beginclrscr();linea1(1,1,24,24); gotoxy(30,12); writeln('press a key to continue ');readkey();end;beginclrscr();  while opcion<>2 do beginclrscr();  writeln('1-imprime ventana');writeln('2-salir ');readln(opcion);if opcion=1 then codigo1;end;end. 
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"

Xaos:
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 ---PROGRAM ekis;uses crt, windows; VAR        cont: integer;        i: integer;BEGIN    cont:=1;    FOR i:=1 TO 24 DO    BEGIN        gotoxy(i,i);        write('X');        gotoxy((24-cont),i);        write('X');        cont:=cont+1;    END;END. 

yaelito0:
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:

Navegación

[0] Índice de Mensajes