Столбчатая диаграмма

@spy-man · Регистрация: 03.05.2010

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

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

Pascal

uses Crt;
const
DiagTop = 10;
DiagBot = 25;
DiagLeft = 20;
DiagRight = 70;
var
N,t,i, j, SizeX, SizeY, M,y, X : Integer;
 dX, dY, MaxData: Real;
A: array[1..10] of Integer;
 
begin
ClrScr;
write('n=');
readln(n);
writeln('vvedite elementy');
for i:=1 to n do
read(a[i]);
writeln('massiv');
for i:=1 to n do
writeln(a[i]);
for i:=1 to n do
 
 for j:=2 to n do
if a[j]>a[j-1] then begin
t:=a[j];
a[j]:=a[j-1];
a[j-1]:=t;
end;
writeln('sortirovka');
for i:=1 to n do
write(a[i]);
readln;
 
 
GoToXY(28,1);
WriteLn('Диаграмма  ');
{рисуем оси}
  for i:=DiagTop to DiagBot do begin GoToXY(DiagLeft,i);Write(Chr(179)); end;
  for i:=DiagLeft to DiagRight do begin GoToXY(i,DiagBot);Write(Chr(196)); end;
  GoToXY(DiagLeft,DiagBot);
  Write(Chr(192));
 
  {размеры диаграмы}
  SizeY := DiagBot - DiagTop;
  SizeX := DiagRight - DiagLeft;
 
  {ищем максимальный осадок}
  MaxData := 0;
  for i:=1 to N do if MaxData < A[i] then MaxData := A[i];
 
  {масштабные коэффициенты}
  dY := SizeY/MaxData;
  dX := SizeX/N;
 
  for i:=1 to N do begin
    M := Round((-A[i]*0.95+MaxData)*dY + DiagTop);
    X := Round((i-0.5)*dX)+DiagLeft;
 
    GoToXY(X-3,M-1);
    Write(a[i]);      {значение величины}
 
    {столбики}
    for j:=M to DiagBot-1 do begin
      GoToXY(X,j);
      Write(Chr(219));
    end;
    GoToXY(X,DiagBot);
    Write(Chr(223));
 
    {шкала Х}
    GoToXY(X,DiagBot+1);
    Write(i);
  end;
  GoToXY(1,1);
  ReadLn; {чтобы посмотреть}
end.

Top, Bot, Left, Right это границы области диаграммы в знакоместах. Правый верхний угол имеет координаты (1,1)
SizeX и SizeY - размеры области диаграммы. Понадобятся в дальнейшем.
dX, dY - масштабные коэффициенты, чтобы независимо от значения данных, они поместились в область диаграммы.
Х и М приведенное значение величины данных в координатах экрана.

@Puporev · 31.05.2010, 07:09

Вот пример гистограммы с положительными и отрицательными значениями, дальше сами, нужно же учиться думать и писать код.

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.

Опции темы