• Sábado 23 de Octubre de 2021, 07:10

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - yaelito0

Páginas: [1]
1
Pascal / Re: problema pascal matrices y suma
« en: Miércoles 8 de Diciembre de 2010, 05:19 »
gracias amigo por ayudarme  :P

ya logre correr el programa con suma y de color rojito los ceros   :beer:

netta me ayudaron aqui gracias  :good:


aqui les dejo mi codigo final para que lo chequen como me quedo:

Código: Pascal
  1. program matrizon;
  2. uses crt, windows;
  3. type numerosale=array[1..4,1..4] of integer;
  4. var lin,col,a,y,suma:integer;
  5.  posx, posy:integer;
  6.  x:numerosale;
  7. begin
  8. clrscr;
  9. randomize;
  10. for a:=2 to 3 do begin
  11. for y:=2 to 3 do begin
  12. x[a,y]:=random(11);
  13. end;
  14. end;
  15.  
  16. lin:=2;
  17. col:=2;
  18. for y:=2 to 3 do begin
  19.  
  20. suma:=suma+x[lin,col];
  21. x[4,4]:=suma;
  22. x[1,1]:=suma;
  23. lin:=lin+1;
  24. col:=col+1;
  25. end;
  26.  
  27.  
  28. lin:=3;
  29. col:=2;
  30. suma:=0;
  31. for a:=2 to 3  do begin
  32. suma:=suma+x[lin,col];
  33. x[1,4]:=suma;
  34. x[4,1]:=suma;
  35. lin:=lin-1;
  36. col:=col+1;
  37. end;
  38.  
  39.  
  40. posx:=10;
  41. posy:=40;
  42. for a:=1 to 4 do begin
  43. posy:=37;
  44. for y:=1 to 4 do begin
  45. gotoxy(posy,posx);
  46. if x[y,a]<1 then textcolor (12) else textcolor(white);
  47. write(x[y,a]);
  48. posy:=posy+3;
  49. end;
  50. posx:=posx+1;
  51. end;
  52. readkey;
  53. end.
  54.  

de todo corazon (vuelvo a repetir) gracias  :hola:

2
Pascal / Re: problema pascal matrices y suma
« en: Miércoles 8 de Diciembre de 2010, 01:48 »
jejeje idsculpen jejeje ya vi mi error, pero aun asi toy mal en mi programa


wenu lñes explicare algo que se me olvido comentar, lo que intento hacer es que despues que muestre los numeros aleatorios los sume en diagonal ejemplo:

               12  0  0  14
                 0  6  7  0
                 0  7  6  0
               14  0  0  12


y otra parte que acabo de hacer es sumarlos.......pero me suma en otra parte que no es diagonal........... y me sale asi:


                  0  0  0  0
                  0  2  7  0
                  0  7 10 0
                17  0   0 0

y si se fijan lo que suma es la fila 3 y la mustra abajo.................rayos ya me desespere por tratar de sumarlo en diagonal  :oops:

espero un gran consejo sobre como hacerlo sumar en diagonal......................................

este es el codigo de donde me sale lo anterior:

Código: Pascal
  1. for j:=2 to 3 do begin
  2. suma:=0;
  3. for i:=2 to 3 do begin
  4. suma:=suma+x[i,j];
  5. end;
  6. x[1,4]:=suma
  7.  
  8. end;
  9.  




nota: no es tarea, es el proyecto de grupo para mostrar en una semana cultural y nosotros mostraremos una exhibicion de programas, pero el caso que no hemos encontrado como hacerle, apenas tamos aprendiendo, pococ apoco pero ahi vamos n_n, y ps no les pido que lo resuelvan o quisas con solo verlo ya tengan la respuesta xD, solo pido ayuda y consejos para que yo mismo lo logre... gracias  :)

3
Pascal / Re: problema pascal matrices y suma
« en: Martes 7 de Diciembre de 2010, 21:44 »
a pues mi amigo te explicare

el "matriz_3x3" es el nombre de programa (es que me base de otro programa para hacer este)

si efectivamente los arreglos son de 1 a 4 y es bidimensional.

y cuando recorre de 2 a 3 para almacenar numeros aleatorios en esos espacios del arreglo (ya saben el randomize para dar nunmeros aleatorios)


esto es todo espero su ayuda

gracias

4
Pascal / problema pascal matrices y suma
« en: Martes 7 de Diciembre de 2010, 03:19 »
hola tengo un problñema con pascal tengo un programa que a otros les corre bien y lo intente correr yo y haciendole mis cambios propios, pero  :blink:  NO ME FUNCIONO! sniff :(

ahorita tengo mi codigo y yo digo que ya esta completo pero el fallo me dice:             illegal assigment for-loop variable "j"

solo pido que me aconsejen o maso me den pistas xD, mas no quiero que me lo resuelvan, porque quiero estudiarlo.............  gracias :hola:

Código: Pascal
  1. program matriz_3x3;
  2. uses crt, windows;
  3. type numerosale=array[1..4,1..4] of integer;
  4. var i,j,suma:integer;
  5.  posx, posy:integer;
  6.  x:numerosale;
  7. begin
  8. clrscr;
  9. randomize;
  10. for i:=2 to 3 do begin
  11. for j:=2 to 3 do begin
  12. x[i,j]:=random(11);
  13. end;
  14. end;
  15.  
  16.  
  17.  
  18.  
  19. i:=2;
  20. j:=2;
  21. for j:=2 to 3 do begin
  22. suma:=suma+x[i,j];
  23. i:=i+1;
  24. j:=j+1;
  25. end;
  26.  
  27.  
  28.  
  29.  
  30.  
  31.  
  32.  
  33.  
  34.  
  35.  
  36. posx:=10;
  37. posy:=40;
  38. for i:=1 to 4 do begin
  39. posy:=37;
  40. for j:=1 to 4 do begin
  41. gotoxy(posy,posx);
  42. if x[j,i]<7 then textcolor (12) else textcolor(white);
  43. write(x[j,i]);
  44. posy:=posy+3;
  45. end;
  46. posx:=posx+1;
  47. end;
  48. readkey;
  49. end.
  50.  

5
Pascal / Re: hola apoyo para dibujar una "X" en pascal
« 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:

6
Pascal / hola apoyo para dibujar una "X" en pascal
« 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"

Páginas: [1]