Код
program lab7;
uses crt, graph;
var j,k,err,x,y,y1,i,a:integer;
begin
i:=detect;
initgraph(i,j,'d:\bp\bgi');
err:=graphresult;
if err <> grOK then
writeln(grapherrormsg(Err))
else
begin
writeln('draiver:',getdrivername,'regim:',getModename(k));
setcolor(15);
x:=150;
i:=0;
y1:=400;
outtext('vvedite 7 4isel A v %');
outtextXY(110,455,'Diagramma vvedennyh zna4enii');
rectangle(100,150,500,450);
repeat
y:=400;
readln(a);
setfillstyle(i+1,i+1);
For
k:=1 to a*2 do
begin
delay(500);
y:=y-1;
bar3d(x-30,y,x,y1,10,true);
end;
x:=x+50;
i:=i+1;
until i>7;
closegraph;
end;
readln;
end.
uses crt, graph;
var j,k,err,x,y,y1,i,a:integer;
begin
i:=detect;
initgraph(i,j,'d:\bp\bgi');
err:=graphresult;
if err <> grOK then
writeln(grapherrormsg(Err))
else
begin
writeln('draiver:',getdrivername,'regim:',getModename(k));
setcolor(15);
x:=150;
i:=0;
y1:=400;
outtext('vvedite 7 4isel A v %');
outtextXY(110,455,'Diagramma vvedennyh zna4enii');
rectangle(100,150,500,450);
repeat
y:=400;
readln(a);
setfillstyle(i+1,i+1);
For
k:=1 to a*2 do
begin
delay(500);
y:=y-1;
bar3d(x-30,y,x,y1,10,true);
end;
x:=x+50;
i:=i+1;
until i>7;
closegraph;
end;
readln;
end.
Но тут преподователь поставил мне новую задачу - пронормировать гистограмму. Зачем он это попросил? Отвечаю - программа не универсальна, т.е. если я введу например 1000, то соответствующий столбец гистограммы полезет куда-то вверх за экран. В чем заключается нормирование:
1 - Мы вводим 7 чисел, после которого находится максимальное число.
2 - Независимо какие остальные числа мы ввели, надо найти процентное соотношение этих чисел к самому максимальному числу. (т.е если максимальное число 300, то 30 - это 0.1 часть от 300)
3 - По этой процентной зависимости программа строит универсальную гистограмму. Т.Е. максимальному числу всегда будет соответствовать одна и та же высота столбца, а там уже как введем.
Вот тут и нужна мне ваша помощь, т.к. я так понял тут надо иметь дело с массивом( а с массивами я плохова-то дружу), но деревянным способом сравнивать 7 чисел - это кошмар. Еще я понял, программку наверное придется конкретно изменить
. Очень буду рад если поможете до вторника, иначе мне будет прямая угроза отчисления.П.С. Процедуры естественно только приветствуются, иначе тут никак.
