Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Elis-sabina
0 / 0 / 0
Регистрация: 25.02.2011
Сообщений: 38
1

столбиковая диаграмма в вертикали(help)доработать

20.10.2011, 15:39. Просмотров 348. Ответов 0
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
//=================------------------//
//Программа для чтения из файла данных
//и черчения по ним диаграммы
//с последующим нахождением общей суммы
//и выводом ее вместе с диаграммой в графическом окне
//=================------------------//
program Diagramm;
//=================------------------//
//Подключаем можули для работы с графикой и объектами
uses ABCObjects, GraphABC;
//=================------------------//
//Объявляем переменные/массивы/файл/текстовый объект
var
i, n, y0, x0, x1, y1, Ox, j, rr,gg,bb: integer;
arx:array[1..100] of integer;
arr:array[1..100] of real;
MaxX:real;
strH, st:string;
TextF:TextABC;
initFile: file of real;
begin
//=================------------------//
//Инициализируем требуемые начальные значения
     Ox:=320;
     x0:=10;
     y0:=20;
     y1:=y0;
//=================------------------//
//Получаем доступ к файлу
     assign(initFile,'initFile.dat');
//=================------------------//
//Читаем из файла в массив и закрываем файл
     reset(initFile);
     n:=0;
     while(not eof(initFile)) do
     begin
        n:=n+1;
        read(initFile,arr[n]);
     end;
     close(initFile);
//=================------------------//
//Записываем округленные значения во второй массив для
//отображения в окне
     for i:=1 to n do
     begin
         arx[i]:=round(arr[i]);   //Tops
     end;
//=================------------------//
//Рисуем оси
     MoveTo(x0,y0);
     LineTo(600,y0);                   ?
     LineTo(560,y0-10);              ?
     LineTo(560,y0+10);             ?
     LineTo(600,y0);                   ?          нужно нарисовать стандартные оси x y
     MoveTo(Ox,10);                  ?
     LineTo(Ox,430);                  ?
     LineTo(Ox-10,390);             ?
     LineTo(Ox+10,390);             ?
     LineTo(Ox,430);                 ?
//=================------------------//
//Цикл рисования диаграммы
     MoveTo(x0,y0);
     for i:=1 to n do
     begin
         y1:=y0+30;
//=================------------------//
//Отображаем процентное значение длинны от максимального значения
                  Str(abs(arr[i]-Ox):3:3,st);
                  strH:=st;
                  if arx[i]>=Ox then
                  TextF:=TextABC.Create(arx[i]+10,y0+5,10,clGreen,strH)
                  else
                  TextF:=TextABC.Create(arx[i]-60,y0+5,10,clMaroon,strH);
//=================------------------//
//Генерируем случайный цвет
         Randomize;
         rr:=Random(256);
         gg:=Random(256);
         bb:=Random(256);
//=================------------------//
//Чертим прямоугольник по значению из файла
     x0:=Ox;
     Rectangle(x0,y0,arx[i],y1);
     if arx[i]>Ox then
     FloodFill((x0+5), y0+5, rgb(rr,gg,bb))
     else                                                            а прямоуг-к должен быть по 0.8Бто есть между 
     FloodFill((x0-5), y0+5, rgb(rr,gg,bb));                каждым значением должен быть промежуток 0.2
     y0:=y1;
     x0:=10;
     end;
//=================------------------//
//Находим наибольший элемент
     MaxX:=abs(arr[1]-Ox);
     j:=1;
     for i:=1 to n do
     begin
         if(abs(arr[i]-Ox)>MaxX)then
            begin
                 MaxX:=abs(arr[i]-Ox);
                 j:=i;
            end;
     end;
//=================------------------//
//Выводим значение наибольшего элемента на экран в текстовом поле
     Str(MaxX:3:3,strH);
     st:='Наибольшее значение : '+strH;
     Str(j,strH);
     st:=st;
     TextF:=TextABC.Create(10,windowheight-45,14,clBlack,st);
//=================------------------//
//Находим наименьший элемент
     MaxX:=abs(arr[1]-Ox);
     j:=1;
     for i:=1 to n do
     begin
         if(abs(arr[i]-Ox)<MaxX)then
            begin
                 MaxX:=abs(arr[i]-Ox);
                 j:=i;
            end;
     end;
//=================------------------//
//Выводим значение наименьшего элемента на экран в текстовом поле
//и завершаем программу
     Str(MaxX:3:3,strH);
     st:='Наименьшее значение : '+strH;
     Str(j,strH);
     st:=st;
     TextF:=TextABC.Create(10,windowheight-25,14,clBlack,st);
end.
 
 
//Для создания файла с вводом данных вручную//
program NewFile;
var
k,n,Ox:integer;
MaxY:real;
initFile: file of real;
begin
cls;
//=================------------------//
     assign(initFile,'initFile.dat');
     Ox:=320;
     writeln('Введите кол-во диаграмм(Желательно не больше 12): ');
     readln(n);
     if n<1 then
          writeln('ERROR!!!');
//=================------------------//
     rewrite(initFile);
     writeln('Отридцательные значение-диаграмма влево, положительные-вправо');
     writeln('Рекомендуемый диапозон: от -250 до 250');
     for k:=1 to n do
     begin
        write('Введите значение ',k,' диаграммы: ');
        readln(MaxY);
        MaxY:=MaxY+Ox;
        if ((MaxY>=Ox) and (MaxY<Ox+8)) then
        MaxY:=MaxY+8;
        if ((MaxY<Ox) and (MaxY>Ox-8)) then
        MaxY:=MaxY-8;
        write(initFile,MaxY);
     end;
//=================------------------//
close(initFile);
end.
 
 
//Генерация файла с 12 случайными значениями//
Program NewFileRandom;
var
k,n,Ox:integer;
MaxX,divX:real;
initFile: file of real;
begin
cls;
//=================------------------//
    assign(initFile,'initFile.dat');
    n:=12;
    Ox:=320;
//=================------------------//
     Randomize;
     rewrite(initFile);
     for k:=1 to n do
     begin
        divX:=Random(1000)/1000;
        MaxX:=Random(441)+60+divX;
        if ((MaxX>=Ox) and (MaxX<Ox+8)) then
        MaxX:=MaxX+8;
        if ((MaxX<Ox) and (MaxX>Ox-8)) then
        MaxX:=MaxX-8;
        write(initFile,MaxX);
     end;
//=================------------------//
close(initFile);
end.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.10.2011, 15:39
Ответы с готовыми решениями:

Столбиковая диаграмма
Помогите пожалуйста сделать столбиковую диаграмму, просто весь и-нет уже...

Столбиковая гистограмма: количество слов, заканчивающихся на буквы введённого алфавита
Суть задачи в следующем: Пользователь вводит алфавит и строку. Нужно...

Векторная диаграмма токов и топографическая диаграмма напряжений
Имея вот такие параметры мне нужно построить векторную и диаграмму токов и...

Выравнивание по вертикали
Добрый день! Подскажите, пожалуйста, как правильно оформить верстку, чтобы...

Текст по вертикали
Как развернуть строчку текста по вертикали?

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.10.2011, 15:39

Выравнивание по вертикали
как сделать что бы текст по горизонали по центру?(сверху и снизу одинаковое...

Выровнять по вертикали li
привет еще раз. новый вопрос появился. имеется вертикальное меню. ...

Выравнивание по вертикали
здравствуйте, делаю так: /*выравнивание текста - left - влево, right - вправо,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru