нужна помощь

[Caragius]

помогите , пожалуйста, с решением такой задачки , очень надо !!

8.Столбчатая диаграмма (гистограмма) представляет собой набор прямоугольников, основания которых равны, а высоты пропорциональны числовым величинам, взятым из некоторой совокупности. Прямоугольники диаграммы обычно закрашивают в разные цвета. Даны семь действительных положительных чисел а1,…,а7. Построить гистограмму для этих значений.

[-=<[Evklidd]>=-]

Что конкретно не понятно?

[Caragius]

просто это девушке курсовик нужно сделать, я в этом вообще не соображаю, но хотел както помочь, сам не разобрался, поэтому прошу помощи у вас на форуме ...

[-=<[Evklidd]>=-]

НУ так, что весь курсовик надо сделать, от начала до конца?!

[motaro]

если я правильно понял что-то типа этого,может быть неправильно

uses crt,graph;
var device,mode,x,x1,i:integer;
    a:array [1..7] of real;
    k:real;
begin
   clrscr;
   x:=150;
   x1:=180;
   k:=0;
   writeln ('Vvedite 7 chisel: ');
   for i:=1 to 7 do
    begin
     readln (a[i]);
     k:=480-a[i];
     a[i]:=k;
    end;
   initgraph(device,mode, '');
   for i:=1 to 7 do
    begin
     setfillstyle (1,i);
     Rectangle(x,round(a[i]),x1,450);
     floodfill (x+10,round(a[i])+5,15);
     x:=x+50;
     x1:=x1+50;
    end;
   readln;
   closegraph
end.

[Caragius]

motaro, initgraph(device,mode, ''); здесь выдает ошибку синтаксиса ... ? на двойных ковычках

[Caragius]

-=<[Evklidd]>=-, нужно только решить эту задачку ...

[-=<[Evklidd]>=-]

motaro, initgraph(device,mode, ''); здесь выдает ошибку синтаксиса ... ? на двойных ковычках

initgraph - это инициализация модуля graph, а в кавычках указывается путь к нему, возможно у вас файл graph.tpu находится в другой папке, не в текущей директории

[PoGeR]

uses graph;
type
mas=array [1..7] of real;
var
driver,mode,i:integer;
max:integer;
a:mas;
s:string;
procedure maximum(m:mas; var maxi:integer);
var
ii:integer;
begin
m[1]:=maxI;
for ii:=2 to 7 do begin
if round(m[ii])>round(maxi) then maxi:=round(m[ii]) ;
end;
end;
procedure stolb(m:mas;maxi:integer);
var
ii:integer
s:string;
begin
moveto(420,400);
lineto(200,400);line(420,399,200,39 9);
for ii:=1 to 7 do begin
m[ii]:=round(m[ii]);
m[ii]:=m[ii]*13;
str(ii,s);
rectangle(200+25*ii,400,220+25*ii,3 93+maxi-trunc(m[ii]));
outtextxy(200+25*ii,390-round(m[ii]),s);
end; end;
begin
driver:=detect;
initgraph(driver,mode,'');
writeln('введите семь цифр');
for i:=1 to 7 do begin
write('a[',i,']=');
readln(a[i]);
end;
maximum(a,max);
stolb(a,max);
readln;
end.