Programación General > Pascal

 Ayuda Porfavor

<< < (2/2)

lencho:
mira este otro.


--- Código: Text --- Program Uno;uses  crt;var i,j: Integer;begin  clrscr;  i:= 1;  j:= 1;  while j &#60; 80 do  begin   gotoxy(j,i);   writeln('*');   i:= i +1;   j:= j +3; end;  readln;end.  
lo que hace es escribir una linea de asterico de una esquina a otra.

BYTE.

Mr. Pascal:
hola apendiz
 :whistling:
Para empezar me presento soy Mr. Pascal y creo que puedo ayudarte,
yo tengo un algoritmo que dibuja un marco, pero es utilizando matrices me imagino que  ya has trabajado con ellas, te dejo el code para que lo cheques...


--- Código: Text --- {llena de * el marco de una matriz} procedure marco (var matriz:mat);var i,j:integer;begin   for i:=1 to N do    begin       for j:=1 to N do       begin          if ((i=1) and (j=1)) or ((i=n) and (j=n)) then                matriz[i,j]:= '*';         if ((j=n) and (i&#60;j)) or ((i=j) and (i&#60;j)) then                matriz[i,j]:= '*';         if ((i=n) and (j&#60;i)) or ((j=1) and (j&#60;i)) then                matriz[i,j]:= '*';      end;   end;end;  
Luego mandas a imprimir la matriz...y es todo.
pruebalo y me cuentas... :hola:

ciber_lep:
Saludos,  bueno creo que las explicaciones estan buenisimas para resolver el problema, pero creo que deben de explicar porque es qe se crean as figuras,
primero lo que haces con GotoXY(x,y)  es dirigir el cursor hacia un punto de la pantalla, normalmente 1-80 en x y de 1 a24 en y.  

con los ciclos haces que se ecriban secuencialmente en la pantalla.  

pero en todo caso,  los ejemplos son muy buenos.

Apendiz:
:kicking:  hola a todos,
Les agradesco mucho a todos por su ayuda enserio, ya me voy a poner a aplicar a hacer este programita, ya que e estado ocupadicimo con otras materias en la universidad, ustedes son lo maximo. :D

Navegación

[0] Índice de Mensajes

[*] Página Anterior