Нужно заполнить массив 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 **[ТС]**

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

Новые блоги и статьи Все статьи Все блоги /
Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .
Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .

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

	Нужно заполнить массив 10 случайными числами и построить график 12.12.2016, 20:39. Показов 2689. Ответов 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 случайными числами и построить график

Решение