9.5. Crtanje histograma jedna * za svaku vrijednost.

Listing programa:

PROGRAM Histogram01;
{Crtanje histograma}
USES
  WinCrt;
Var 
  i, a : Integer;

PROCEDURE Crta;     {potprogram procedura crta}
Var 
  j : Integer;
BEGIN
  FOR j := 1 TO a DO
     Write('*');
  Writeln;
END;

BEGIN    {Glavni program} 
  FOR i := 1 TO 3 DO
    BEGIN    
      Write('Vrijednost ');
      Readln(a);
      crta;
    END;
END.

Izvođenje programa:

Index