Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
 
spawn101
1 / 1 / 0
Регистрация: 26.09.2010
Сообщений: 9
#1

Определить количество студентов, сдавших зачет по кроссу, и вывести их фамилии - VB

02.06.2012, 02:35. Просмотров 681. Ответов 5
Метки нет (Все метки)

Здравствуйте! Помогите составить код.
Двумерный массив содержит фамилии студентов и результаты кросса в секундах(фамилии введите произвольные, а время задайте с помощью функции случайного числа в диапазоне [60,100]). Определить количество студентов, сдавших зачет, и вывести их фамилии. Зачетное время не превышает 80 сек. Результат вывести в текстовое окно.

Добавлено через 9 часов 26 минут
Наверное очень сложно да?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.06.2012, 02:35
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Определить количество студентов, сдавших зачет по кроссу, и вывести их фамилии (VB):

Вывести фамилии всех студентов отличников
Требуется изначально ввести колличество студентов, затем поочередно фамилии и...

Вывести фамилии и имена студентов, чьи имена начинаются на букву "б"
известны фамилии,адреса и телефоны 25 человек. Найти фамилии и адреса людей,...

Определить, каково наименьшее количество студентов, так и не сдавших зачет
Поток студентов сдавал один и тот же зачет в течении 5 дней. Не сумевшие сдать...

Вывести фамилии, имена и отчества всех студентов мужского пола, не сдавших более двух экзаменов
вывести фамилии, имена и отчества всех студентов мужского пола , не сдавших...

Вывести фамилии и инициалы студентов, сдавших экзамен по указанной дисциплине на "5"
Разработать Pascal-программу, которая в двоичном режиме доступа создает...

Определить количество студентов, сдавших экзамен на 5 и 4
Создать файл с именем STUD, состоящий из записей: порядковый номер, фамилия,...

5
Alex77755
10697 / 3272 / 543
Регистрация: 13.02.2009
Сообщений: 9,649
02.06.2012, 07:10 #2
Самое сложное с фамилиями: придётся набирать вручную. А заполнение времени и выборка в цикле
1
SoftIce
comment ca va
10427 / 3930 / 1004
Регистрация: 27.07.2011
Сообщений: 9,503
Завершенные тесты: 1
02.06.2012, 07:46 #3
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
Option Explicit
Private Type Student
  familia() As String
  vremya() As Integer
End Type
Private Sub Command1_Click()
Dim Fam, Vrem, Student As Student, Sdali As String, Nesdali As String
Dim Zachotnoe_vremya As Integer, i As Integer, n As Integer
Fam = Array("Иванов", "Петров", "Сидоров", "Путин", "Медведев")
Vrem = Array(50, 60, 70, 81, 99)
Zachotnoe_vremya = 80: n = UBound(Fam) + 1
ReDim Student.familia(1 To n), Student.vremya(1 To n)
For i = 1 To n
    Student.familia(i) = Fam(i - 1)
    Student.vremya(i) = Vrem(i - 1)
Next i
 
For i = 1 To n
  If Student.vremya(i) < Zachotnoe_vremya Then
    Sdali = Sdali + Student.familia(i) + "  "
  Else
    Nesdali = Nesdali + Student.familia(i) + "  "
  End If
Next i
 
MsgBox "Сдали    -  " & Sdali & vbCrLf & _
       "Несдали  -  " & Nesdali, vbInformation
       
 End Sub
Фамилии лучше вводить через InputBox.
Цитата Сообщение от spawn101 Посмотреть сообщение
время задайте с помощью функции случайного числа
Блин, и это не заметил спросонья
Но это поправить не проблема, я думаю.
0
Alex77755
10697 / 3272 / 543
Регистрация: 13.02.2009
Сообщений: 9,649
02.06.2012, 07:51 #4
а время задайте с помощью функции случайного числа в диапазоне [60,100])
Не лепи горбатого
Vrem = Array(50, 60, 70, 81, 99)
Добавлено через 1 минуту
Visual Basic
1
 Student.vremya(i) = Int(41 * Rnd + 60)
1
SoftIce
comment ca va
10427 / 3930 / 1004
Регистрация: 27.07.2011
Сообщений: 9,503
Завершенные тесты: 1
02.06.2012, 08:01 #5
Вот так:
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
Private Type Student
  familia() As String
  vremya() As Integer
End Type
Private Sub Command1_Click()
Dim Fam, Student As Student, Sdali As String, Nesdali As String
Dim Zachotnoe_vremya As Integer, i As Integer, n As Integer
Fam = Array("Иванов", "Петров", "Сидоров", "Путин", "Медведев")
Randomize
Zachotnoe_vremya = 80: n = UBound(Fam) + 1
ReDim Student.familia(1 To n), Student.vremya(1 To n)
For i = 1 To n
    Student.familia(i) = Fam(i - 1)
    Student.vremya(i) = Int(Rnd * 41) + 60
Next i
 
For i = 1 To n
  If Student.vremya(i) < Zachotnoe_vremya Then
    Sdali = Sdali + Student.familia(i) + Str(Student.vremya(i)) + "  "
  Else
    Nesdali = Nesdali + Student.familia(i) + Str(Student.vremya(i)) + "  "
  End If
Next i
 
 MsgBox "Сдали    -  " & Sdali & vbCrLf & _
       "Несдали  -  " & Nesdali, vbInformation
       
End Sub
Добавлено через 1 минуту
Цитата Сообщение от Alex77755 Посмотреть сообщение
Не лепи горбатого
Вы правы
0
spawn101
1 / 1 / 0
Регистрация: 26.09.2010
Сообщений: 9
02.06.2012, 09:13  [ТС] #6
Спасибо!
0
02.06.2012, 09:13
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.06.2012, 09:13
Привет! Вот еще темы с решениями:

Определить количество студентов, сдавших экзамены без троек
Известны результаты сдачи двух экзаменов десятью студентами. Определить...

Определить количество студентов не сдавших хотя бы один экзамен
написать программу обрабатывающую ход сдачи экзаменационной сессии студентами...

Нужно организовать заполнение массива случайными значениями от 2 до 5 и определить количество студентов, сдавших сессию без двоек
Помогите в написании кода Pascal. Массив хранит оценки сессии 5-ти студентов по...

Массив студентов первого курса. Вывести процент студентов, сдавших все экзамены на 4, 5
Добрый вечер. Задание следующее: В массиве содержится информация о сдаче...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru