Vytlačí histogram s 50 stĺpcami

Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
Kategorija: KMP (Programy mladňakoch

Zrobil: Ján Benkovič
web: www.tbteacher.host.sk

Program: Histogram.pas
Subor exe: Histogram.exe

Dané je 50 prvkové pole z intervalu <1,20>. Program vytlačí histogram 50 stĺpcov zo znakov *, pričom každý stĺpec je vysoký podľa príslušnej hodnoty v poli. Nepoužíva GotoXY, predpokladá sa že hodnoty sú korektné.
{ 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;
 
 readkey;
end.