Pascal/Turbo Pascal - Problema que dibuje una figura con asteriscos

   
Vista:

Problema que dibuje una figura con asteriscos

Publicado por mario (3 intervenciones) el 12/11/2013 17:28:39
Buenas a todos, me gustaria que me ayudaras a resolver este problema, en Dev Pascal.

Escribir un programa, asteriscos.pas, que dibuje una figura similar a la siguiente, consistente en n filas (n lo introduce el usuario), donde la fila j es la secuencia de 2j grupos formados cada uno por 2n-j-1 blancos (espacios) y el mismo número de asteriscos. Para n=6 sería la imagen adjunta.



Un saludo
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Problema que dibuje una figura con asteriscos

Publicado por ramon (2072 intervenciones) el 13/11/2013 14:33:52
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
{Mira esto a ver si te ayuda }
 
 program asteriscos;
 uses
    crt;
  var
    q, m, p, j, n : integer;
 
  procedure RepetirCaracter(c : char; v, r : integer);
  var
    h, d, t : integer;
  begin
    d := 1;
    h := (v div r);
    write('   ');
    repeat
     for t := 1 to h do
     begin
     write(c);
     end;
     write(' ');
     d := d + 1;
    until d > r;
    writeln;
  end;
 
   function potencia_2(n : integer) : longint;
   var
      ss : longint;
      ll : integer;
     begin
         potencia_2 := 0;
         ss := 1;
         for ll := 1 to n do
         ss := ss * 2;
         potencia_2 := ss
      end;
 
 
  begin
     clrscr;
     write('   Entre Numero 1 Al 6 : ');
     readln(n);
     writeln;
     for j := n - 1 downto 0 do
     begin
     p := p + potencia_2(j);
     q := potencia_2((n-j-1));
     RepetirCaracter('*',p,q);
     end;
     readkey;
  end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

Problema que dibuje una figura con asteriscos

Publicado por mario (3 intervenciones) el 14/11/2013 00:01:54
Muchas gracias, junto con esto y lo que tenia lo he conseguido terminar!!

Un saludo!:)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar