Универсальная гистограмма., Дописать графическую задачку Опции

[3 kilos]

Вобщем первоначальная задача была такова - ввести 7 чисел и получить по ним гистограмму. Программу я написал, вот её код

Код

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.

Но тут преподователь поставил мне новую задачу - пронормировать гистограмму. Зачем он это попросил? Отвечаю - программа не универсальна, т.е. если я введу например 1000, то соответствующий столбец гистограммы полезет куда-то вверх за экран. В чем заключается нормирование:

1 - Мы вводим 7 чисел, после которого находится максимальное число.
2 - Независимо какие остальные числа мы ввели, надо найти процентное соотношение этих чисел к самому максимальному числу. (т.е если максимальное число 300, то 30 - это 0.1 часть от 300)
3 - По этой процентной зависимости программа строит универсальную гистограмму. Т.Е. максимальному числу всегда будет соответствовать одна и та же высота столбца, а там уже как введем.

Вот тут и нужна мне ваша помощь, т.к. я так понял тут надо иметь дело с массивом( а с массивами я плохова-то дружу), но деревянным способом сравнивать 7 чисел - это кошмар. Еще я понял, программку наверное придется конкретно изменить . Очень буду рад если поможете до вторника, иначе мне будет прямая угроза отчисления.
П.С. Процедуры естественно только приветствуются, иначе тут никак.

Сообщение отредактировано: 3 kilos - 4.03.2006 11:18

[3 kilos]

Вот собсна товарисчи вам и окончательный вариант программы. Все как видите красиво, может кому пригодится. Тему можно закрывать, всем спасибо за участие, ждите еще вопросов =))

Код

PROGRAM M1;
USES crt,graph;
TYPE
    mas=array[1..7] of real;
VAR
a:mas;
max:real;
Procedure vvod_max(var a:mas; var max:real);
Var
  i:byte;
  num:byte;
Begin
  max:=0;
  for i:=1 to 7 do
   begin
    writeln('Vvedite ',i,' 4iclo');
    readln(a[i]);
    if a[i]>max then
    max:=a[i]
   end
End;
Procedure proc(var a:mas; max:real);
Var
i:byte;
Begin
ClrScr;
writeln('Vvedennie 4isla:');
for i:=1 to 7 do
  begin
   writeln(a[i]:2:0);
   end;
   writeln('Procentnoe sootnoshenie 4isel otnositelno maksimalnogo:');
   for i:=1 to 7 do
    begin
    a[i]:=(a[i]/max)*100;
    writeln(i,' - ',a[i]:5:2,'%')
   end;
  readln
End;
Procedure graf(a:mas);
var j,k,err,x,y,y1,i:integer;
Begin
  i:=detect;
  initgraph(i,j,'d:\bp\bgi');
  err:=graphresult;
  if err <> grOK then
  writeln(grapherrormsg(Err))
  else
   begin
   writeln('driver:',getdrivername,'regim:',getModename(k));
   setcolor(15);
   x:=150;
   i:=0;
   y1:=400;
   outtextXY(110,455,'Gistogramma vvedennih zna4enii');
   rectangle(100,150,500,450);
   repeat
    y:=400;
    setfillstyle(i+1,i+1);
    For k:=1 to trunc(a[i+1])*2 do
     begin
      delay(1000);
      y:=y-1;
      bar3d(x-30,y,x,y1,10,true);
     end;
    x:=x+50;
    i:=i+1;
   until i>6;
   readln;
   closegraph;
  end;
End;
BEGIN
ClrScr;
vvod_max(a,max);
proc(a,max);
graf(a)
END.