|
|
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
« en: Miércoles 8 de Diciembre de 2010, 05:19 »
gracias amigo por ayudarme  ya logre correr el programa con suma y de color rojito los ceros  netta me ayudaron aqui gracias  aqui les dejo mi codigo final para que lo chequen como me quedo: program matrizon; uses crt, windows; type numerosale=array[1..4,1..4] of integer; var lin,col,a,y,suma:integer; posx, posy:integer; x:numerosale; begin clrscr; randomize; for a:=2 to 3 do begin for y:=2 to 3 do begin x[a,y]:=random(11); end; end; lin:=2; col:=2; for y:=2 to 3 do begin suma:=suma+x[lin,col]; x[4,4]:=suma; x[1,1]:=suma; lin:=lin+1; col:=col+1; end; lin:=3; col:=2; suma:=0; for a:=2 to 3 do begin suma:=suma+x[lin,col]; x[1,4]:=suma; x[4,1]:=suma; lin:=lin-1; col:=col+1; end; posx:=10; posy:=40; for a:=1 to 4 do begin posy:=37; for y:=1 to 4 do begin gotoxy(posy,posx); if x[y,a]<1 then textcolor (12) else textcolor(white); write(x[y,a]); posy:=posy+3; end; posx:=posx+1; end; readkey; end.
de todo corazon (vuelvo a repetir) gracias 
2
« 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  espero un gran consejo sobre como hacerlo sumar en diagonal...................................... este es el codigo de donde me sale lo anterior: for j:=2 to 3 do begin suma:=0; for i:=2 to 3 do begin suma:=suma+x[i,j]; end; x[1,4]:=suma end;
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
« 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
« 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  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 program matriz_3x3; uses crt, windows; type numerosale=array[1..4,1..4] of integer; var i,j,suma:integer; posx, posy:integer; x:numerosale; begin clrscr; randomize; for i:=2 to 3 do begin for j:=2 to 3 do begin x[i,j]:=random(11); end; end; i:=2; j:=2; for j:=2 to 3 do begin suma:=suma+x[i,j]; i:=i+1; j:=j+1; end; posx:=10; posy:=40; for i:=1 to 4 do begin posy:=37; for j:=1 to 4 do begin gotoxy(posy,posx); if x[j,i]<7 then textcolor (12) else textcolor(white); write(x[j,i]); posy:=posy+3; end; posx:=posx+1; end; readkey; end.
5
« en: Martes 2 de Noviembre de 2010, 06:40 »
gracias me sirvio mucho ahora ya pase mi examen y lo pase exelente! jaja me acorde de un monton de cosas pero esta me costaba, jejeje gracias!  saludos a todos!
6
« en: Domingo 24 de Octubre de 2010, 23:12 »
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"
Páginas: [1]
|
|
|
Mostrar Mensajes
