Разработать программу, построение гистограммы. Столбчатая диаграмма (гистограмма) представляет собой набор прямоугольников, основание которых равны, а высоты пропорциональны числовым величинам взятых из некоторой совокупности. Для большей наглядности прямоугольники диаграммы (гистограммы) обычно закрашиваются в разные цвета. Предусмотреть ввод данных в диалоге. Этих диаграмм должно быть 1 — 9, задаваться все должно с клавиатуры. Например 3 диаграммы и их значения, или 7 диаграмм и их значения!- QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
SCREEN 12
INPUT "vvedite kolichestvo stolbcov ", n
DIM a(n)
PRINT "vvedite dannye"
FOR i = 1 TO n
    PRINT "stolbec"; i
    INPUT "", a(i)
NEXT
max = a(1)
FOR i = 1 TO n
    IF a(i) > max THEN max = a(i)
NEXT
k = 300 / max
 
FOR i = 1 TO n
    x = i * 50
    y = a(i) * k
    LINE (x + 100, 400)-STEP(50, -y), i, BF
NEXT

Тестирование выполнено в программе QB64 ( Скачать )

Похожие записи/страницы:

Leave a Comment