0 / 0 / 0
Регистрация: 20.11.2009
Сообщений: 31
1

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

26.11.2009, 23:35. Показов 1809. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Кто может написать прогу, которая строит из массива случайных чисел вертикальную гистограмму?
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.11.2009, 23:35
Ответы с готовыми решениями:

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

Гистограмма успеваемости
Написать программу, которая выводит на экран гистограмму успеваемости студентов группы, например,...

Гистограмма в графическом режиме.
ВВести три числа.Построить по ним гистограмму на языке Pascal.

Столбчатая диаграмма (гистограмма)
Столбчатая диаграмма (гистограмма) представляет собой набор прямоугольников, основания которых...

2
2022 / 1621 / 489
Регистрация: 31.05.2009
Сообщений: 3,005
27.11.2009, 03:04 2
Лучший ответ Сообщение было отмечено kuper87 как решение

Решение

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
program vertical_histogram;
 
const
     SIZE = 10;
type
   ArrType = array[1..SIZE] of integer;
//-----------------------------------------------------------------------
procedure MaxMin(arr_param: ArrType; var max_val: integer; var min_val: integer);
var
   i: integer;
begin
     max_val:= arr_param[1];
     min_val:= arr_param[1];
     for i:= 2 to SIZE do
     begin
         if max_val < arr_param[i] then max_val:= arr_param[i];
         if min_val > arr_param[i] then min_val:= arr_param[i];
     end;
end;
//-------------------------------------------------------------------------
var
   arr: ArrType;
   i: integer;
   max: integer;
   min: integer;
begin
     Randomize;
     for i:= 1 to SIZE do arr[i]:= Random(20)+1;
     MaxMin(arr, max, min);
 
     while(max >= min) do
     begin
         for i:= 1 to SIZE do
         begin
              if(max <= arr[i]) then Write('   =')
              else Write('    ');
         end;
         Dec(max);
         WriteLn;
     end;
 
     for i:= 1 to SIZE do Write('   ', i);
     WriteLn;
     ReadLn;
end.
1
0 / 0 / 0
Регистрация: 20.11.2009
Сообщений: 31
27.11.2009, 19:33  [ТС] 3
Спасибо большое за программу, но есть ещё просьба, можно ли тоже самое сделать, только используя графический режим?
0
27.11.2009, 19:33
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.11.2009, 19:33
Помогаю со студенческими работами здесь

Паскаль-массивы, матрицы , гистограмма.
1.Построить гистограмму для действительных положительных чисел а1, а2...а7. раскрасив ...

Гистограмма
Столбчатая диаграмма (гистограмма) представляет собой набор прямоугольников, основания которых...

Гистограмма
Вот есть гистограмма ток как сделать так чтоб выводило больше 12(до 100) столбцов и высоту до 3000...

гистограмма
помогите сделать легенду и чтобы квадратики были широкие uses crt; Var a,b:array of byte; ...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru