Нужно заполнить массив 10 случайными числами и построить график

@slavat · Регистрация: 12.12.2016

Студворк — интернет-сервис помощи студентам

Заполните массив десятью случайными целыми числами, каждое из которых лежит в пределах от 50 до 200, и выведите на экран их численные значения, а так же их графическое представление в виде вертикальных закрашенных прямоугольников (типа столбчатая диаграмма) шириной 30 пикселов и высотой, соответствующей их значению. Значение чисел выводятся внутри соответствующих прямоугольников.

@kreotodr · 13.12.2016, 07:50

простите зачем?)

Shersh · 13.12.2016, 08:03

Не по теме:

Сообщение от kreotodr

зачем?

slavat`у некогда, а нам же делать нефик, выполняем без лишних вопросов:-|

Shersh · 13.12.2016, 10:16

вот-

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Form_Load()
AutoRedraw = True
FillStyle = 0
ScaleMode = 3
Dim a(9) As Integer
Randomize
For i = 0 To 9
  a(i) = Int(Rnd * 151 + 50)
  FillColor = QBColor(i + 1)
  Line (i * 30 + 30, a(i))-(i * 30, 0), , B
  Print a(i)
Next
End Sub

@Alex77755 · 13.12.2016, 21:03

лаконично!

@slavat · 14.12.2016, 17:50 **[ТС]**

большое спасибо я там просто с графиком запорол теперь понял

@kreotodr · 15.12.2016, 09:00

Сообщение от slavat

ое спасибо я там просто с графиком запорол теперь понял

так что поняли? все же неверно???

@slavat · 15.12.2016, 19:10 **[ТС]**

Visual Basic
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
Option Explicit
Dim mas(1 To 10) As Byte 'объявление массива случайных чисел
Dim i%, a% 'счетчик и интервал
 
'процедура обработки нажатия на кнопку "вывод"
Private Sub Command1_Click()
a = 0 'обнуление интервала
Cls 'очистка формы
FillStyle = 0 'разрешение на заливку
FillColor = vbGreen 'устанавливаем цвет заливки - зеленый
'массив 10 случайных целых чисел
For i = 1 To 10
mas(i) = Int(50 + Rnd * 150)
Next
'рисуем столбчатую диаграмму
For i = 1 To 10
Line (a, 0)-(a + 30, mas(i)), , B
'метод Print позволяет выводить значения элементов массива на диаграмме
PSet (7 + a, (mas(i)) / 2): Print mas(i)
a = a + 30 'интервал, на который смещается следующий столбик
Next i
End Sub
 
Private Sub Form_Load()
Show
'задаем нужную систему координат
Me.Scale (0, 200)-(301, -100)
FontSize = 12 ' размер шрифта
 
 
End Sub

вот что получилось у меня, думаю должно быть нормально

@slavat · 15.12.2016, 19:30 **[ТС]**

вот как то так получается

Новые блоги и статьи Все статьи Все блоги /
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .	Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .

@slavat 2 / 0 / 0 Регистрация: 12.12.2016 Сообщений: 10

	Нужно заполнить массив 10 случайными числами и построить график 12.12.2016, 20:39. Показов 2729. Ответов 8 Метки нет (Все метки) Заполните массив десятью случайными целыми числами, каждое из которых лежит в пределах от 50 до 200, и выведите на экран их численные значения, а так же их графическое представление в виде вертикальных закрашенных прямоугольников (типа столбчатая диаграмма) шириной 30 пикселов и высотой, соответствующей их значению. Значение чисел выводятся внутри соответствующих прямоугольников. 0

@kreotodr 39 / 39 / 8 Регистрация: 15.08.2014 Сообщений: 634
	13.12.2016, 07:50
	простите зачем?) 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	13.12.2016, 21:03
	лаконично! 0

@slavat 2 / 0 / 0 Регистрация: 12.12.2016 Сообщений: 10
	14.12.2016, 17:50 [ТС]
	большое спасибо я там просто с графиком запорол теперь понял 0

@slavat 2 / 0 / 0 Регистрация: 12.12.2016 Сообщений: 10
	15.12.2016, 19:30 [ТС]
	вот как то так получается Миниатюры 0

Нужно заполнить массив 10 случайными числами и построить график

Решение