Гистограмма массива

@lav88 · Регистрация: 29.01.2010

Author24 — интернет-сервис помощи студентам

Подскажите что мне надо изменить в процедуре что бы в диаграмме показывались и отрицательные значения?

Pascal

procedure diagramma;
 var i,x1,x2,y1,y2,dx,q:integer;
     ky:real;
     max:real;
begin
 window(1,3,80,25);
 textbackground(0);
 clrscr;
 max:=a[1];
  for i:=2 to n do
   if a[i]>max then
    max:=a[i];
    ky:=18/max;
    dx:=(60-n) div n;
    x1:=1;
    y2:=25;
    c:=1;
     for i:=1 to n do
      begin
       x2:=x1+dx;
       y1:=y2-round(a[i]*ky);
       window(x1,y1,x2,y2);
       textbackground(c);
       clrscr;
       write(a[i]);
       inc(c);
       if c=8 then c:=1;
       x1:=x2+1;
      end;
 end;

@Puporev · 04.02.2010, 12:37

lav88, Может суть задания напишешь и всю программу покажешь? А так одна процедура вообще не работает.

Добавлено через 2 минуты
А вообще нужно ось Х пускать не на линии 25, а или просто по середине и считать не только максимальное, но и минимальное, а масштаб по оси У брать с учетом макс-мин. Значения положительные рисовать вверх, отрицательные вниз, как на обычном графике. Просто гистограммы обычно рисуют для положительных чисел.

@lav88 · 04.02.2010, 12:49 **[ТС]**

Pascal

uses crt;
const n=15;
var a:array[1..n] of integer;
 nechet,k,c,i,s,q:integer;
procedure diagramma;
 var i,x1,x2,y1,y2,dx,q:integer;
     ky:real;
     max:real;
begin
 window(1,3,80,25);
 textbackground(0);
 clrscr;
 max:=a[1];
  for i:=2 to n do
   if a[i]>max then
    max:=a[i];
    ky:=18/max;
    dx:=(60-n) div n;
    x1:=1;
    y2:=25;
    c:=1;
    for i:=1 to n do
      begin
       x2:=x1+dx;
       y1:=y2-round(a[i]*ky);
       window(x1,y1,x2,y2);
       textbackground(c);
       clrscr;
       write(a[i]);
       inc(c);
       if c=8 then c:=1;
       x1:=x2+1;
      end;
 end;
BEGIN
 clrscr;
  randomize;
   for i:=1 to n do
    begin
     a[i]:=random(200)-150;
     write(a[i]:4,' ');
      end;
      diagramma;
      writeln;
       readkey;
 
 end.
 end.

вот сама программа
А нужно одномерный массив показать в виде диаграммы и что бы показывались и полож и отрицательные значения
В данный момент у меня показываются только положительные

@Puporev · 04.02.2010, 14:01

Вот так посмотрите.

Pascal

uses crt;
const n=15;
var a:array[1..n] of integer;
 nechet,k,c,i,s,q:integer;
procedure diagramma;
 var i,x1,x2,y1,y2,dx,q,k:integer;
     ky:real;
     max,min:integer;
begin
 window(1,3,80,25);
 textbackground(0);
 clrscr;
 max:=a[1];min:=a[1];
 for i:=1 to n do
   begin
    if a[i]>max then max:=a[i];
    if a[i]<min then min:=a[i];
   end;
 if max>abs(min) then  ky:=9/max else ky:=9/abs(min);
 dx:=(60-n) div n;
 x1:=1;
 y2:=13;
 for i:=1 to n do
  begin
   x2:=x1+dx;
   k:=i mod 8;
   if k in[0,7] then k:=k+3;
   if a[i]>=0 then
    begin
     y1:=y2-round(a[i]*ky);
     window(x1,y1,x2,y2);
     textbackground(k);
     clrscr;
     write(a[i]:3);
    end
   else
    begin
     y1:=y2-round(a[i]*ky);
     window(x1,y2+1,x2,y1+1);
     textbackground(k);
     clrscr;
     gotoXY(1,abs(round(a[i]*ky)));
     write(a[i]);
    end;
  x1:=x2+1;
 end;
end;
BEGIN
clrscr;
randomize;
for i:=1 to n do
 begin
  a[i]:=random(200)-100;
  write(a[i]:4);
 end;
diagramma;
readkey;
end.

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	04.02.2010, 12:37	2
	lav88, Может суть задания напишешь и всю программу покажешь? А так одна процедура вообще не работает. Добавлено через 2 минуты А вообще нужно ось Х пускать не на линии 25, а или просто по середине и считать не только максимальное, но и минимальное, а масштаб по оси У брать с учетом макс-мин. Значения положительные рисовать вверх, отрицательные вниз, как на обычном графике. Просто гистограммы обычно рисуют для положительных чисел. 0

	04.02.2010, 14:01

Опции темы