Pascal/Turbo Pascal - Ayuda ejercicio Moño

   
Vista:
Imágen de perfil de Guillermo

Ayuda ejercicio Moño

Publicado por Guillermo (3 intervenciones) el 28/04/2016 07:16:14
Hola buenas

tengo un ejercicio que hacer es un moño con numeros xD
osea siendo N
asi
1
2
3
4
5
1        1
1 2    2 1
1 2 3  2 1
1 2    2 1
1        1
lo que me sale es lo siguiente
1
2
3
4
5
1 2 3 2 1
1 2 3 2 1
1 2 3 2 1
1 2 3 2 1
1 2 3 2 1

Lo que me falta es borrar los espacios de las filas de arriba y de abajo pero no se como hacerlo estoy trabado
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
Program monio;
var
i,h,j,num:integer;
 
begin
 
  read(num);
  for h:=0 to num do
  begin
   writeln(' ');
 
 for i:=1 to num do
 begin
    write(' ',i,' ');
 end;
 
   for j:=num-1 downto 1 do
   begin
 
      if j<=i then
      begin
        write(' ',j,' ')
       end
       else
      write(' ');
 
   end;
 
  end;
 
  read(num);
 
end.
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 ejercicio Moño

Publicado por ramon (2072 intervenciones) el 29/04/2016 14:01:38
Percate te que no existe referencia ni del dato ni de la posición en pantalla
por lo tanto no puedes borrar ninguno.
Tendrás que realizar lo antes de escribirlo en pantalla o emplear un
array o un string.
De todas forma creo que tendrá un sistema de calculo.
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 ejercicio Moño

Publicado por ramon (2072 intervenciones) el 02/05/2016 19:12:40
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
53
54
55
56
57
58
59
60
61
62
63
64
{Mira esto te puede orientar bastante}
 
 program moyo;
 uses
   crt;
  var
    cont, num, k, h, j, i, d : integer;
   begin
      clrscr;
      write('   Entre Numero : ');
      readln(num);
      for i := 1 to num do
      begin
         writeln('  ',i);
         writeln;
      end;
      if num mod 2 = 0 then
      cont := num div 2
    else
      cont := (num div 2) + 1;
      j := 1;
      write(' ');
  for i := 1 to cont do
  begin
    for k := 1 to num - j do
    begin
       if k <= j then
       write(' ',k,' ')
     else
       write(' . ');
    end;
    for h := j downto 1 do
    write(' ',h,' ');
    j := j + 1;
    writeln;
    writeln;
    write(' ');
  end;
    j := num - cont;
  for k := 1 to (num - cont) do
  begin
    for i := 1 to (num - (cont - 1)) do
    begin
    if i <= j then
    write(' ',i,' ')
  else
    write(' . ');
    end;
      d := (num - cont);
      for h := d downto 1 do
      begin
         if h <= j then
         write(' ',h,' ')
       else
         write(' . ');
         d := d - 1;
      end;
      j := j - 1;
      writeln;
      writeln;
      write(' ');
    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