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

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

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

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

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

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

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

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

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

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

5
Alex77755
10773 / 3339 / 560
Регистрация: 13.02.2009
Сообщений: 9,816
02.06.2012, 07:10 2
Самое сложное с фамилиями: придётся набирать вручную. А заполнение времени и выборка в цикле
1
SoftIce
es geht mir gut
10553 / 4070 / 1033
Регистрация: 27.07.2011
Сообщений: 9,974
Завершенные тесты: 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
10773 / 3339 / 560
Регистрация: 13.02.2009
Сообщений: 9,816
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
es geht mir gut
10553 / 4070 / 1033
Регистрация: 27.07.2011
Сообщений: 9,974
Завершенные тесты: 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

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

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

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


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

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

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