Duda con ejercicio de Diagrama de Barras

[gerupc]

Hola,

tengo un problema con un ejercicio. La presentación ha de ser así:

Introduce las longitudes del diagrama de barras a representar:
4 <R>                     I****

0 <R>                     I

5 <R>                     I*****

11 <R>                   I***********

14 <R>                   I**************

10 <R>                   I**********

7 <R>                     I*******

1 <R>                     I*

-1 <R>

¿Deseas representar mas diagramas de barras (S/N): N <R>

Entonces, donde me bloque es a la hora de implementar un bucle for:

Código Delphi [-]
begin   writeln('Introduce las longitudes del diagrama de barras a representar: ');
  readln(cantidad);
      asterisco := '*';
    for i := 1 to cantidad do       Begin          //Aquí he probado unas cuantas cosas...pero nada.
      end;

Se me ha ocurrido el hacer una conversión de datos y convertir el asterisco a entero para poderlo multiplicar por una variable de valor 1. De esta manera se me quedaría variable := asterisco solo (ya que lo he multiplicado por 1) y así poder hacer.

Código Delphi [-]
write('I', asterisco);

Alguna manera 'mejor'?? o más bien, alguna manera de hacerlo ??

Un saludo,

Geru.

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