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

Гистограмма

23.05.2014, 21:31. Показов 4811. Ответов 1
Метки нет (Все метки)

Столбчатая диаграмма (гистограмма) представляет собой набор прямоугольников, основания которых равны, а высоты пропорциональны числовым величинам, взятым из некоторой совокупности. Даны семь действительных положительных чисел а1, а2,…, а7. Построить гистограмму для этих значений.(в паскале абц)
немогу сделать как ни пытался, помогите пожалуйста.
Зараннее благодарю!
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.05.2014, 21:31
Ответы с готовыми решениями:

Массив гистограмма
Кто может написать прогу, которая строит из массива случайных чисел вертикальную гистограмму?

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

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

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

1
Почетный модератор
64272 / 47571 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
23.05.2014, 21:44 2
Лучший ответ Сообщение было отмечено pou как решение

Решение

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
uses graphABC;
const a:array[1..7] of real=(15.05,10.30,17.23,11.60,19.32,21.95,18.70);
var i,x0,y0,w:integer;
    mx,h:real;
    s:string;
    c:Color;
begin
w:=20;{ширина столбцов}
x0:=50;{левый край диаграммы}
y0:=windowheight-80;{нижний край}
mx:=a[1];
for i:=1 to 7 do
if a[i]>mx then mx:=a[i];{находим максимум}
h:=(y0-40)/mx;{масштаб по вертикали}
for i:=1 to 7 do
 begin
  c:=clRandom;{случайный цвет}
  Pen.Color:=c;
  Brush.Color:=c;
  Brush.Style:=bsSolid;
  {рисуем прямоугольники с заданной шириной, шагом
    и высотой соответственно значению чисел в массиве}
  rectangle(x0+4*w*(i-1),y0-round(a[i]*h),x0+w*(4*i-2),y0);
  Brush.Style:=bsClear;
  str(a[i]:5:2,s);{преобразуем числа в строку}
  textout(x0+4*w*(i-1),y0-round(a[i]*h)-20,s);{выводим цену выше столбика}
 end;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.05.2014, 21:44
Помогаю со студенческими работами здесь

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

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

Гистограмма
#pragma once #include <stdlib.h> namespace gist { using namespace System; using namespace...

Гистограмма
Дано предложение.Нарисовать вертикальную гистограмму символов этого предложения.


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

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

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