Pascal/Turbo Pascal - Ayuda para hacer un procedimiento ESTRELLAS

   
Vista:

Ayuda para hacer un procedimiento ESTRELLAS

Publicado por larry (9 intervenciones) el 07/01/2014 13:25:47
Construye un procedimiento ESTRELLAS que a partir de un vector V de N enteros
positivos, construya figuras del tipo:
Ejemplo: V 2 3 4 1

* * * *
* * *
* *
*
no se si sale los asteriscos como quiero
pero se supone que en la primera columna debe salir 2 asteriscos en la columna dos 3 asteriscos en la tres cuatro y en la ultima 1 asterisco
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

Ayuda para hacer un procedimiento ESTRELLAS

Publicado por ramon (2072 intervenciones) el 07/01/2014 22:47:21
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
{Seria esto}
 
 program estrellas;
 uses
   crt;
 const
    num = 4;
 type
   vector = array[1..num] of integer;
 
  var
    vect : vector;
    t, va, n : integer;
 
 
   begin
     n := 1;
     while n < num + 1 do
     begin
     clrscr;
     write('  Entre Num. [',n,'] : ');
     readln(va);
     vect[n] := va;
     n := n + 1;
     end;
    for t := 1 to n - 1 do
    begin
     for va := 1 to vect[t] do
     begin
       write('*');
     end;
       writeln;
    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
0
Comentar

Ayuda para hacer un procedimiento ESTRELLAS

Publicado por larry (9 intervenciones) el 08/01/2014 12:43:54
Gracias por la respuesta pero el problema es que el numero no deberia ser una constante deberia ser un numero que te da el usuario y el resultado tendria que ser en vertical en colmna no en filas
pero gracias de todas formas
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

Ayuda para hacer un procedimiento ESTRELLAS

Publicado por ramon (2072 intervenciones) el 09/01/2014 12:35:39
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
{Mira esta modificación a ver si vale mejor}
 
 program estrellas;
 uses
   crt;
 
 type
   vector = array[1..30] of integer;
 
  var
    vect : vector;
    temp, t, va, n : integer;
    num : integer;
 
   begin
     clrscr;
     write('   Entre Tama¤o array 1 a 30 : ');
     readln(num);
     n := 1;
     while n < num + 1 do
     begin
     clrscr;
     write('  Entre Num. [',n,'] : ');
     readln(va);
     vect[n] := va;
     n := n + 1;
     end;
     temp := 0;
     for t := 1 to n - 1 do
     begin
       for va := n - 1 downto t + 1 do
       if vect[t] < vect[va] then
       begin
          temp := vect[va];
          vect[va] := vect[t];
          vect[t] := temp;
       end;
     end;
    for t := 1 to n - 1 do
    begin
     for va := 1 to vect[t] do
     begin
       write(' *');
     end;
        writeln;
    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
0
Comentar