Заполнить массив десятью целыми случайными числами, каждое из которых не превышает 20

@Damask · Регистрация: 17.02.2010

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

Скорей всего это последнее задание которое дали...т.к. я уже писал в прошлой теме,что скоро контрольная, хотя кто их знает...этих преподавателей,что у них там на уме.
В этот раз дали такое вот задание:

Заполнить массив десятью целыми случайными числами, каждое из которых не превышает 20. Вывести значения в компонент ListBox. Расположите соответствующие компоненты на форме для вывода ответов и напишите процедуры для поиска:
а) суммы первого и последнего элементов
б) среднего значения первых пяти элементов
в) количества элементов, значения которых больше числа 10.
Примечание: для получения случайного числа, не превышающего N необходимо воспользоваться формулой A(i)=int(rnd*N)

@Toxa33rus · 11.03.2010, 23:03

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Dim A(1 to 10)
For i=1 to 10
  A(i) = int(rnd*20)
next i
 
print A(1) + A(10)
 
s=0
for i=1 to 5
s=s+A(i)
next i
print s/5
 
c=0
for i=1 to 10
  if A(i) >10 then c=c+1
next i
print c

@gaw · 12.03.2010, 00:08

Toxa33rus сори
забабахал американский код

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Command1_Click()
Dim a(10)
 List1.Clear
s = 0: c = 0
For i = 1 To 10
  a(i) = Int(Rnd * 20)
  List1.AddItem a(i)
  If i < 6 Then s = s + a(i)
If a(i) > 10 Then c = c + 1
Next i
    List1.AddItem "-------------"
 List1.AddItem "a(1) + a(10)=" & a(1) + a(10)
   List1.AddItem "-------------"
 List1.AddItem "S5/5 = " & s / 5
    List1.AddItem "-------------"
 List1.AddItem "a(i) > 10  ---  " & c
 
End Sub

@Toxa33rus · 16.03.2010, 23:52

Не по теме:

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

Toxa33rus сори
забабахал американский код

gaw, а какая его часть из америки? :)

@gaw · 17.03.2010, 00:06

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

") в рамках своего развития. Честь и хвала тем кто старается эти рамки разширить.
Ведь и собака многое понимает, только вот сказать не может

@Damask · 22.03.2010, 13:18 **[ТС]**

Спасибо за помощь, ребята. За четверть поставили 5 и контрольную получилось написать!) А что тут американского, я не знаю. Спрошу как-нибудь у преподавателя и напишу, что её смутило.

@gaw · 22.03.2010, 15:23

ну и каов рейтинг у тебя ?

@Damask · 25.03.2010, 06:03 **[ТС]**

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

ну и каов рейтинг у тебя ?

90%!) и уже с 80% было 5

Кст,у нас большинство людей из группы не аттестованы,теперь они на каникулах посещают дополнительные занятия.

@Toxa33rus · 25.03.2010, 16:58

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

Кст,у нас большинство людей из группы не аттестованы,теперь они на каникулах посещают дополнительные занятия

Вот что бывает с теми кто не знает про cyberforum.ru

Новые блоги и статьи Все статьи Все блоги /
Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .	Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.

@Damask 2 / 2 / 0 Регистрация: 17.02.2010 Сообщений: 12

	Заполнить массив десятью целыми случайными числами, каждое из которых не превышает 20 11.03.2010, 14:44. Показов 2336. Ответов 8 Метки нет (Все метки) Скорей всего это последнее задание которое дали...т.к. я уже писал в прошлой теме,что скоро контрольная, хотя кто их знает...этих преподавателей,что у них там на уме. В этот раз дали такое вот задание: Заполнить массив десятью целыми случайными числами, каждое из которых не превышает 20. Вывести значения в компонент ListBox. Расположите соответствующие компоненты на форме для вывода ответов и напишите процедуры для поиска: а) суммы первого и последнего элементов б) среднего значения первых пяти элементов в) количества элементов, значения которых больше числа 10. Примечание: для получения случайного числа, не превышающего N необходимо воспользоваться формулой A(i)=int(rnd*N) 0

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	17.03.2010, 00:06
	это у нашего школьника спросить нада, или, точнее, у его преподавателя есть, конечно, "любители кода в одну строчку", есть ценители "своего кода " как единственно правильного, есть критики кода (как бы писать в тягость) я просто учусь и стараюсь писать, что бы мог прочитать еще кто то кроме меня ведь и мысли каждый излагает (как правило неоднозначные, это не код "это вам ни это ") в рамках своего развития. Честь и хвала тем кто старается эти рамки разширить. Ведь и собака многое понимает, только вот сказать не может 1

@Damask 2 / 2 / 0 Регистрация: 17.02.2010 Сообщений: 12
	22.03.2010, 13:18 [ТС]
	Спасибо за помощь, ребята. За четверть поставили 5 и контрольную получилось написать!) А что тут американского, я не знаю. Спрошу как-нибудь у преподавателя и напишу, что её смутило. 0

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	22.03.2010, 15:23
	ну и каов рейтинг у тебя ? 0

Опции темы