| Код | uses crt,graph;
const
MAXBYTE = 255;
MAXNUMBER = 100;
var
gd,gm:integer;
NumCount :byte;
i:integer;
FillInfo:FillSettingsType;
A:array[1..MAXBYTE] of longint;
iDivider:real;
function IntToStr(I: Longint): String;
var
S: string[11];
begin
Str(I, S);
IntToStr := S;
end;
begin
clrscr;
write('Input count of numbers =');
readln(NumCount);
for i:=1 to NumCount do
begin
repeat
write('Input ',i,'-th number =');
readln(A[i]);
until (A[i]>=0)and(A[i]<=MAXNUMBER);
end;
InitGraph(gd,gm,'');
if GraphResult<>grOk then
begin
writeln('Graphic not initialized. Probably *.bgi file not found.');
exit;
end;
randomize;
GetFillSettings(FillInfo);
SetColor(white);
Rectangle(20-2,100-20,620+2,400+2);
iDivider:=600/NumCount;
SetTextStyle(SmallFont, HorizDir, 4);
for i:=1 to NumCount do
begin
SetFillStyle(FillInfo.Pattern,Random(15)+1);
Bar(20+trunc((i-1)*iDivider),400,20+trunc((i-1)*iDivider)+trunc(iDivider) - 5,400-A[i]*3);
OutTextXY(20+trunc((i-1)*iDivider),400-A[i]*3-20,IntToStr(A[i]));
end;
readkey;
CloseGraph;
end. |
|
