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
xD
porfavor alguien me ayuda a completar el codigo.............
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........................
program ventanas;
uses crt, windows;
var opcion:integer;
procedure linea1 (y1:integer;y2:integer;x1:integer;x2:integer);
var i:integer;
begin
clrscr;
for i:=1 to 24 do begin;gotoxy(i,i); write('*');end;
end;
procedure codigo1;
begin
clrscr();
linea1(1,1,24,24);
gotoxy(30,12); writeln('press a key to continue ');
readkey();
end;
begin
clrscr();
while opcion<>2 do begin
clrscr();
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"
