Duda con ejercicio de Diagrama de Barras

[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...

[gerupc]

Hola,

muchísimas gracias por tu interés y ayuda, pero, ha de ser mucho más sencillo que eso ;-)

Ten en cuenta que son ejercicios correspondientes a 1º de Ingeniería, y más concretamente, a los 3 meses de curso, es decir, que solamente se han visto, Bucles, estructuras de control anidadas...etc, poca leche ;-)

De todas maneras, muchísimas gracias, una vez más :-)

Un saludo,

Geru.

[[cHackAll]]

Empezado por gerupc

...Ten en cuenta que son ejercicios correspondientes a 1º de Ingeniería...

por eso le puse // a las lineas más "avanzadas"

[gerupc]

Hola,

jeje, ya me he percatado xD, lo que ocurre es porque no me permiten utilizar eso aún, es decir, he de resolverlo (bueno, que nadie me lo va a corregir, que es por aprender) con lo dado hasta el momento, si no, no vale ;-)

Pero muchas gracias!!!
Un saludo,

Geru.