Duda con ejercicio de Diagrama de Barras

[[cHackAll]]

Código Delphi [-]
uses SysUtils; {$apptype console}
 
var
 Repeticiones, Cantidad: ShortInt;
 Choice: Char;
 
label Back;
begin
 Back: Write(#13'Introduce las longitudes del diagrama de barras a representar: ');
 ReadLn(Repeticiones);
 while Repeticiones > 0 do
  begin
   Dec(Repeticiones);
   Read(Cantidad);
   Write(#9);
   if Cantidad > -1 then
    Write('I');
   while Cantidad > 0 do
    begin
     Write('*');
     Dec(Cantidad);
    end;
   WriteLn;
  end;
 Write('¿Deseas representar mas diagramas de barras (S/N): ');
 ReadLn(Choice);
 if (Choice = 's') or (Choice = 'S') then
  goto Back;
end.

Espero tengamos buena puntuacion en el "ejercicio"

[gerupc]

Hola,

muchas gracias por tu ayuda, de veras.

Pero no puedo utilizar 'label', y una cosa: qué es lo que hace la función 'dec'? y elWrite(#9); ?

Una vez más, gracias y un saludo,

Geru.

[[cHackAll]]

Dec decremente la variable introducida en 1, Write(#9) pone un tabulador, si no puedes usar label pues usa un repeat until

[gerupc]

Hola,

muchísimas gracias, voy a probar a ver...

Un saludo,

Geru.

[b3nshi]

Mmm creo de esa forma se resuelve el problema q tienes pero por si las moscas viendolo al codigo se me ocurre modificarlo de esta forma (y de acuerdo a mi interpretacion de consigna):

Código Delphi [-]
uses SysUtils; {$apptype console}
var 
i: integer;
Rep: ShortInt;
res: Char;

begin
while (res = 's') or (res = 'S') do //no recuerdo si se usa or o ||
begin 
Write(#13'Introduce las longitudes del diagrama de barras a representar: '); 
ReadLn(Rep);
if rep >= 0 then
 begin
 Write('I');
   for i := 0 to Rep do
     begin
        Write('*'); 
     end; //Fin del for
 end;//Fin del if
WriteLn;
Write('¿Deseas representar mas diagramas de barras (S/N): ');
ReadLn(res);
end;//Fin del while
end;
end.

En este caso solo te representaria una linea y preguntaria por empezar una nueva, es decir:
Representaria esto:
Rep es 4:
I****
Y preguntaria si queres representar mas...Es por las dudas... quizas yo entendi mal la consigna...

{Saludos}

[gerupc]

Hola,

muchísimas gracias B3nshi, pero creo que te has confundido con el primer while, ya que no se ha inicializado la variable resp (Ojo, creo ;-) )

Bueno, al final con vuestra ayuda y trasteando un poco, he conseguido lo que necesitaba, exceptuando dos detalles: (Primero el código y después los problemas)

Código Delphi [-]
uses SysUtils;

{$APPTYPE CONSOLE}

var
  i: integer;
  cantidad: integer;
  opcion: char;
Begin
  writeln('Introduce la longitud del diagrama de barras: ');
   Repeat
      Begin
      readln(cantidad);
        write(#9);
        write('I');
          for i := 1 to cantidad do
            Begin
              write('*');
            end;   //Fin de Bucle For
      if cantidad = -1 then
        write('Desea representar mas diagramas? S/N: ');
        readln(opcion);
      end;
    until (opcion = 'n') or (opcion = 'N');   //Fin de Bucle Repeat
End.

1.-Al preguntarme: ¿Desea representar más diagramas? S/N:, me introduce una I justo delante de la pregunta, tal y como me hace para cada barra. Supongo que será mediante algún while >=0, pero no lo consigo, ya que me hace un bucle infinito...

2.- Me interesa que al finalizar cada barra, automáticamente se cambie de linea para poder introducir el número que desee, sin la necesidad de pulsar intro cada vez que finalice una barra, para cambiar de linea.

A ver si me podeis echar una mano ;-)

Un saludo,

Geru.

[[cHackAll]]

Código Delphi [-]
uses Windows, SysUtils; {$apptype console}
var
 Handle: Cardinal;                                             // El manejador de la consola
 Info: TConsoleScreenBufferInfo;                               // Para GotoXY, WhereX, y WhereY
 Repeticiones, Cantidad: ShortInt;
 Choice: Char;
begin
 Handle := GetStdHandle(STD_OUTPUT_HANDLE);
 repeat Write('Introduce las longitudes del diagrama de barras a representar: ');
  ReadLn(Repeticiones);
  while Repeticiones > 0 do
   begin
    Dec(Repeticiones);
    ReadLn(Cantidad);

    GetConsoleScreenBufferInfo(Handle, Info);                  // Para obtener la posicion actual del cursor (WhereX & WhereY)
    Info.dwCursorPosition.X := 16;                             //
    Dec(Info.dwCursorPosition.Y);                              //
    SetConsoleCursorPosition(Handle, Info.dwCursorPosition);   // Para definit la nueva posicion del cursor (GotoXY(16, WhereY - 1)

    if Cantidad > -1 then
     Write('I');
    while Cantidad > 0 do
     begin
      Write('*');
      Dec(Cantidad);
     end;
    WriteLn;
   end;
  WriteLn;
  Write('Deseas representar mas diagramas de barras (S/N): ');
  ReadLn(Choice);
 until (Choice <> 's') and (Choice <> 'S');
end.

Bueno ya que no puedes usar un goto label; entonces te dejo la solucion obvia y le agrego un toque visual agradable...