Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
Elis-sabina
0 / 0 / 0
Регистрация: 25.02.2011
Сообщений: 38
#1

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

20.10.2011, 15:39. Просмотров 335. Ответов 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
Я подобрал для вас темы с готовыми решениями и ответами на вопрос столбиковая диаграмма в вертикали(help)доработать (Pascal ABC):

Столбиковая диаграмма - Visual Basic
Помогите пожалуйста сделать столбиковую диаграмму, просто весь и-нет уже облазил и ничего толком не нашёл=((

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

Векторная диаграмма токов и топографическая диаграмма напряжений - Электротехника
Имея вот такие параметры мне нужно построить векторную и диаграмму токов и топологическую диаграмму напряжений в Exel. Я не понимаю, как...

Выравнивание по вертикали - HTML, CSS
как сделать что бы текст по горизонали по центру?(сверху и снизу одинаковое расстояние) vertical-align:middle; так не получается(

Выравнивание по вертикали - HTML, CSS
Помогите выровнять содержимое кружка по вертикали. Уже час бьюсь. display: flex не вариант &lt;div class=&quot;info__list&quot;&gt; &lt;div...

Выровнять по вертикали li - HTML, CSS
привет еще раз. новый вопрос появился. имеется вертикальное меню. &lt;div id=&quot;navmenu&quot;&gt; &lt;ul&gt; ...

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

Ризина по вертикали - HTML, CSS
Решал задачу табличной вёрстки при помощи блочной, надо было одновременно раздвигать 4 блока, в том случае, если один из блоков начинает...

Выравнивание по вертикали - HTML, CSS
здравствуйте, делаю так: /*выравнивание текста - left - влево, right - вправо, center - посредине, justify - по ширине*/ text-align:...

Текст по вертикали - C#
Как сделать в datagridview текст в ячейках по вертикали?

TabSheet по вертикали - Delphi
Как сделать чтобы вкладки (TabSheet) в PageControl шли по вертикале?


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

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

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