• Viernes 8 de Noviembre de 2024, 16:58

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.


Temas - yaelito0

Páginas: [1]
1
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.  

2
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]