Umiestnenie súboru www.TrSek.com/cover/benkovic/histogram.pas{ HISTO.PAS Copyright (c) Jan Benkovic }
{ Dane je 50 prvkove pole z intervalu <1,20>. Napiste program, }
{ ktory vytlaci histogram : 50 stlpcov zo znakov *, pricom kazdy }
{ stlpec je vysoky podla prislusnej hodnoty v poli. }
{ Nepouzivajte GotoXY, predpokladajme ze hodnoty su korektne. }
{ }
{ Datum:12.04.2002 http://www.trsek.com }
uses crt;
var
pole : array[1..50] of byte;
a,b : byte;
begin
clrscr;
randomize;
{ vygeneruje pole hviezdiciek }
for a:= 1 to 50 do
pole[a]:=random(20)+1;
{ vykresli pole hviezdiciek }
for a:= 20 downto 1 do
begin
for b:= 1 to 50 do
begin
if pole[b]>=a then Write('*')
else Write(' ');
end;
Writeln;
end;