Pascal/Turbo Pascal - ayuda programa pascal URGENTE

   
Vista:

ayuda programa pascal URGENTE

Publicado por Soto (1 intervención) el 10/01/2014 19:24:41
Escribe un programa que a partir de un entero positivo impar N, forme figuras del siguiente tipo:
Ejemplo: N=5
5
4
3
2
1
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 programa pascal URGENTE

Publicado por ramon (2072 intervenciones) el 12/01/2014 11:32: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
{aquí esta bien}
 
  program figuras;
  uses
     crt;
  var
    p, t, num, cont : integer;
  begin
     clrscr;
     write('  Entre Numero : ');
     readln(num);
     cont := 0;
     p := 1;
     t := 1;
   while cont < num  do
   begin
       writeln((num - cont) : 2 + (p * 2));
       t := t + 1;
       if t < (num div 2) + 2 then
       p := p + 1;
       if t > (num  div 2) + 1 then
       p := p - 1;
       cont := cont + 1;
   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