| Autor |
Mensaje |
MerySun
Nivel 2
Edad: 34
Registrado: 18 Ene 2011
Mensajes: 11
Ubicación: Temperley
Carrera: Alimentos
|
|
Este es el punto...
No entiendo como hacer para dibujar en pantalla con asteriscos...No puedo elaborarlo, de hecho no se que nuevas variables generar para dibujar.
EJ:
Efectuar un programa que solicite al usuario que ingrese la base de un triángulo rectángulo. Luego dibujar en pantalla dicho triángulo.
El que pueda tirarme alguna punta le agradescooooo porque la verdad necesito una brújula urgente con esta materia!!!
|
|
|
|
|
|
   |
     |
|
Guido_Garrote
Moderador
Edad: 35
Registrado: 14 Oct 2007
Mensajes: 3319
Ubicación: AHÍ!
Carrera: Civil
|
|
Generá una variable que contenga un asterisco y escribilo en pantalla tantas veces como sea necesario 
|
|
|
|
_________________
|
|
   |
  |
|
Ignium
Nivel 9
Edad: 38
Registrado: 29 Oct 2005
Mensajes: 2725
Ubicación: Rivadavia y Puan
Carrera: Civil
|
|
No logro poner espacios y tabs así que sale crudo el prog, pero debería ser algo +- así. Hay un poco de explicación en el medio
****************
begin
clrscr;
writeln(' GRAFICADOR DE TRIÁNGULOS RECTÁNGULOS.');
writeln;
writeln;
writeln('Ingrese un número entero indicando la dimensión de la base (de 3 a 20)');
writeln;
readln(dimBase);
writeln;
writeln;
writeln('Resultado');
writeln;
writeln;
{Hasta acá lo básico}
{Hacer un triángulo rect{angulo con asteriscos, de base "n" es igual a imprimir en el primer renglón un asterisco (*), en el segundo dos (**) y en el enésimo, n...
Dos iteraciones }
{La primera controla en que renglón estás escribiendo}
for n = 1 to dimBase do
begin
{La segunda controla cuantos asteriscos se escriben por renglón, qu ecoincide con el renglón en el cual estás}
for x:= 1 to n do
begin
write('*'); {sin el "ln" no salta a la línea de abajo}
end
writeln; {es como apretar "enter" al final de la línea}
end;
end.
*************
Puede habér un +-1 en los límites de los bucles jeje. Eso miralo en función de que le falta o sobra al triángulo. 
|
|
|
|
_________________
Centro de Estudiantes de Ingeniería - FIUBA
Grupo Google de la Comisión Curricular de Ing. Civil
|
|
  |
 |
|
MerySun
Nivel 2
Edad: 34
Registrado: 18 Ene 2011
Mensajes: 11
Ubicación: Temperley
Carrera: Alimentos
|
|
| Gracias ignium... eso lo hice y compila pero una vez que ingreso la base, deja de ejecutarse automáticamente...No se porque !!!!!
|
|
|
|
|
|
| |
|
|
MerySun
Nivel 2
Edad: 34
Registrado: 18 Ene 2011
Mensajes: 11
Ubicación: Temperley
Carrera: Alimentos
|
|
| En el ejemplo que me dieron anidaba un IF al FOR, estableciendo que cumpliera una condicion que desgraciadamente no sé cual debería ser en este caso !
|
|
|
|
_________________
Un hombre debe tener por lo menos dos vicios, uno solo es demasiado-.
|
|
| |
|
|
Ignium
Nivel 9
Edad: 38
Registrado: 29 Oct 2005
Mensajes: 2725
Ubicación: Rivadavia y Puan
Carrera: Civil
|
|
| |
|
|
MerySun
Nivel 2
Edad: 34
Registrado: 18 Ene 2011
Mensajes: 11
Ubicación: Temperley
Carrera: Alimentos
|
|
Sisi ... tenés razón, muy hábil lo tuyo =) ..
Igual no anda, dónde puedo llorar ? ...
Ahora carga el programa pero no dibuja una mierda !
|
|
|
|
_________________
Un hombre debe tener por lo menos dos vicios, uno solo es demasiado-.
|
|
| |
|
|
Ignium
Nivel 9
Edad: 38
Registrado: 29 Oct 2005
Mensajes: 2725
Ubicación: Rivadavia y Puan
Carrera: Civil
|
|
Ahí te mando un .pas que funciona. Había unos ":" y ";" que faltaban, y copiando me comí el comienzo del programa °°
| Cita:
|
Program triangulos;
uses crt;
var dimBase, n, x: integer;
begin
clrscr;
writeln(' GRAFICADOR DE TRIÁNGULOS RECTÁNGULOS.');
writeln;
writeln;
writeln('Ingrese un número entero indicando la dimensión de la base (de 3 a 20)');
writeln;
readln(dimBase);
writeln;
writeln;
writeln('Resultado');
writeln;
writeln;
for n:= 1 to dimBase do
begin
{La segunda controla cuantos asteriscos se escriben por renglón, qu ecoincide con el renglón en el cual estás}
for x:= 1 to n do
begin
write('*'); {sin el "ln" no salta a la línea de abajo}
end;
writeln; {es como apretar "enter" al final de la línea}
end;
readkey;
end.
|
|
|
|
|
_________________
Centro de Estudiantes de Ingeniería - FIUBA
Grupo Google de la Comisión Curricular de Ing. Civil
|
|
| |
|
|
MerySun
Nivel 2
Edad: 34
Registrado: 18 Ene 2011
Mensajes: 11
Ubicación: Temperley
Carrera: Alimentos
|
|
|
_________________
Un hombre debe tener por lo menos dos vicios, uno solo es demasiado-.
|
|
| |
|
|
PauFP
Nivel 8
Edad: 33
Registrado: 31 Ene 2010
Mensajes: 862
Ubicación: Ituzaingó
Carrera: Industrial
|
|
El otro día hicimos un par con el Oso, Sol.
Es solamente poner las condiciones y un write('*')
|
|
|
|
|
|
 |
|
|
persia
Nivel 2
Registrado: 04 Jul 2010
Mensajes: 9
|
|
respuesta rapida sol, son menos de 15 lineas:
si n es menor a 80 write('*')
si n es 80 writeln('*')
adentro de un for de i=1 a 25
no escribo el codigo porq me re olvide como era pascal, el 80 y 25 son por la resolucion estandar q usa la consola de windows 80x25
pd: sol soy nahu el novio de daie
|
|
|
|
|
|
| |
|
|
persia
Nivel 2
Registrado: 04 Jul 2010
Mensajes: 9
|
|
me equivoque, habia entendido q tenes q escribir en toda la pantalla *, lo q tenes q hacer es: un for desde 1 hasta el numero indicado y lo q haces que repita una cantidad de write especificos por ej: si esta en uno haga un for de 1 a 1: write('*') y desp del for un writeln;
para la iteracion 5 el for va a quedar de 1 a 5: write('*') y cuando sale tamb writeln;
siempre resperando q la base no sea mayor a 25 ya q se sale de la pantalla
|
|
|
|
|
|
| |
|
|
MerySun
Nivel 2
Edad: 34
Registrado: 18 Ene 2011
Mensajes: 11
Ubicación: Temperley
Carrera: Alimentos
|
|
que haces nahu queridoO ?  estamos todos eh !!!!después me lo explicas =) ...
|
|
|
|
_________________
Un hombre debe tener por lo menos dos vicios, uno solo es demasiado-.
|
|
| |
|
|
|
|
