9.5. Crtanje histograma dvije * za svaku vrijednost.

Listing programa:

PROGRAM Histogram02;
{Crtanje histograma ** za znak}
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;
  READLN;
END.

Ispis na ekranu:

Index