Подсчитать количество всех студентов, которые родились в заданном месяце

@Deyli · Регистрация: 25.05.2020

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

В массиве, содержащем номер месяца рождения каждого студента группы, подсчитать количество всех студентов, которые родились в заданном месяце К, и напечатать их номера.

@Burk · 25.05.2020, 14:50

Deyli, сделать цикл по всем элементам массива (For .... Next см. в поисковике) и проверять, если элемент = номеру нужного месяца, то Счётчик=Счётчик+1 (If ..... Then)

@Deyli · 25.05.2020, 15:20 **[ТС]**

Burk, Не могли бы вы написать программу для этого задания? Очень короткий срок сдачи работы. Вы очень выручите меня.

@Burk · 25.05.2020, 16:41

Deyli, а как вы месяцы рождения будете вводить, на лист Экселя? Тогда будем считать, что в первый столбец.

Visual Basic
1
2
3
4
5
6
7
8
9
10
Sub proba()
Dim I As Integer, N As Integer, K As Integer, Mon As Integer, S As String
N = Cells(Rows.Count, 1).End(xlUp).Row  'последняя заполненная ячейка в 1 столбце
Mon = InputBox("введите номер месяца")
If Mon < 1 Or Mon > 12 Then MsgBox "Неправильный месяц": Exit Sub
For I = 1 To N
  If Cells(I, 1) = Mon Then K = K + 1: S = S & I & vbCrLf
Next
MsgBox "число дней рождения = " & K & vbCrLf & S
End Sub

И такую звездюльку вы не можете написать??? Тогда бросьте вы всё это и в риэлторы, как советовал недавно один умный человек.

I can · 25.05.2020, 16:49

Вот тебе, бедолага

Visual Basic
1
2
3
4
5
6
7
8
9
10
Private Sub Deyli()
   Dim arr, i As Integer, k As Integer, n As Integer, s As String
  'В массиве, содержащем номер месяца рождения каждого студента группы
   arr = Array(2, 12, 2, 7, 8, 10, 3, 6, 3, 7, 9, 1, 9, 1, 11, 12, 9, 8, 5, 3, 10, 4, 5, 6, 7, 10, 3)
   k = InputBox("Введите номер месяца от 1 до 12", "", 10)
   For i = 0 To UBound(arr)
      If arr(i) = k Then n = n + 1: s = s & (i + 1) & "; "
   Next i
   MsgBox "Число студентов родившихся в " & k & "-м месяце: " & n & ", их номера: " & s
End Sub

@Deyli · 25.05.2020, 16:51 **[ТС]**

Burk, Спасибо большое. И ещё такой вопрос. Мне теперь нужно создать таблицу в Excel, в которой будет написана информация о студентах группы?

Добавлено через 1 минуту
I can, Спасибо. Теперь мне нужно заполнить таблицу?

@Burk · 25.05.2020, 16:55

Deyli, создавайте, я не против, или вы считаете что создавать таблицы для вас должен кто-то?

@Deyli · 25.05.2020, 16:58 **[ТС]**

Burk, можете подробнее объяснить как правильно заполнить таблицу. В какой столбики какую строчку, что писать?

@Burk · 25.05.2020, 17:09

Deyli, там в строке 9 недописал "число дней рождения в этом месяце"

Добавлено через 7 минут
Мдааааа с длинным-длинным а! Вы что на листе экселя столбики не видите A B C D .......? Ну и заполняйте в столбик.
Например, первый столбец месяц рождения (чтобы не менять в макросе, а то есть опасность при таких ваших знаниях ещё чего испортите), во второй фамилия, в третий Имя, в четвёртый Отчество и т.д., что там вам ещё нужно.

@Deyli · 25.05.2020, 17:23 **[ТС]**

Burk, Спасибо. Не могли бы вы написать программу для решения ещё одной задачи.
Даны положительные действительные числа А, x, Е. Вычислить сумму Y= y0+y1+y2..., если y0=A, yi=0.5*(yi-1+(x/yi-1)), i=1, 2, 3, ..., пока выполняется условие y2i+y2i-1>=E.
Буду оооочень благодарен.

@Burk · 25.05.2020, 17:30

Deyli, какого чёрта в конце концов, это ведь есть в другой вашей теме и не в одной Иван2020

@Deyli · 25.05.2020, 17:33 **[ТС]**

Burk, это знакомый выставлял. у него такое же задание. выручите?

@Burk · 25.05.2020, 17:59

Deyli, я говорю о ваших темах, под вашим ником, хотя уверен, что некий знакомый Иван тут непричём. Вы уже сами запутались в своих темах. Нажмите в самом верху этой станицы справа на Мои темы и посмотрите.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .	SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .

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

	Excel Подсчитать количество всех студентов, которые родились в заданном месяце 25.05.2020, 11:24. Показов 1255. Ответов 12 Метки нет (Все метки) В массиве, содержащем номер месяца рождения каждого студента группы, подсчитать количество всех студентов, которые родились в заданном месяце К, и напечатать их номера. 0

@Burk 1847 / 1162 / 354 Регистрация: 11.07.2014 Сообщений: 4,107
	25.05.2020, 14:50
	Deyli, сделать цикл по всем элементам массива (For .... Next см. в поисковике) и проверять, если элемент = номеру нужного месяца, то Счётчик=Счётчик+1 (If ..... Then) 0

@Deyli 0 / 0 / 0 Регистрация: 25.05.2020 Сообщений: 10
	25.05.2020, 15:20 [ТС]
	Burk, Не могли бы вы написать программу для этого задания? Очень короткий срок сдачи работы. Вы очень выручите меня. 0

@Deyli 0 / 0 / 0 Регистрация: 25.05.2020 Сообщений: 10
	25.05.2020, 16:51 [ТС]
	Burk, Спасибо большое. И ещё такой вопрос. Мне теперь нужно создать таблицу в Excel, в которой будет написана информация о студентах группы? Добавлено через 1 минуту I can, Спасибо. Теперь мне нужно заполнить таблицу? 0

@Burk 1847 / 1162 / 354 Регистрация: 11.07.2014 Сообщений: 4,107
	25.05.2020, 16:55
	Deyli, создавайте, я не против, или вы считаете что создавать таблицы для вас должен кто-то? 0

@Deyli 0 / 0 / 0 Регистрация: 25.05.2020 Сообщений: 10
	25.05.2020, 16:58 [ТС]
	Burk, можете подробнее объяснить как правильно заполнить таблицу. В какой столбики какую строчку, что писать? 0

@Burk 1847 / 1162 / 354 Регистрация: 11.07.2014 Сообщений: 4,107
	25.05.2020, 17:09
	Deyli, там в строке 9 недописал "число дней рождения в этом месяце" Добавлено через 7 минут Мдааааа с длинным-длинным а! Вы что на листе экселя столбики не видите A B C D .......? Ну и заполняйте в столбик. Например, первый столбец месяц рождения (чтобы не менять в макросе, а то есть опасность при таких ваших знаниях ещё чего испортите), во второй фамилия, в третий Имя, в четвёртый Отчество и т.д., что там вам ещё нужно. 0

@Deyli 0 / 0 / 0 Регистрация: 25.05.2020 Сообщений: 10
	25.05.2020, 17:23 [ТС]
	Burk, Спасибо. Не могли бы вы написать программу для решения ещё одной задачи. Даны положительные действительные числа А, x, Е. Вычислить сумму Y= y0+y1+y2..., если y0=A, yi=0.5*(yi-1+(x/yi-1)), i=1, 2, 3, ..., пока выполняется условие y2i+y2i-1>=E. Буду оооочень благодарен. 0

@Burk 1847 / 1162 / 354 Регистрация: 11.07.2014 Сообщений: 4,107
	25.05.2020, 17:30
	Deyli, какого чёрта в конце концов, это ведь есть в другой вашей теме и не в одной Иван2020 0

@Deyli 0 / 0 / 0 Регистрация: 25.05.2020 Сообщений: 10
	25.05.2020, 17:33 [ТС]
	Burk, это знакомый выставлял. у него такое же задание. выручите? 0

@Burk 1847 / 1162 / 354 Регистрация: 11.07.2014 Сообщений: 4,107
	25.05.2020, 17:59
	Deyli, я говорю о ваших темах, под вашим ником, хотя уверен, что некий знакомый Иван тут непричём. Вы уже сами запутались в своих темах. Нажмите в самом верху этой станицы справа на Мои темы и посмотрите. 0