Форум программистов, компьютерный форум, киберфорум
Microsoft Access
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.56/25: Рейтинг темы: голосов - 25, средняя оценка - 4.56
0 / 0 / 0
Регистрация: 12.06.2011
Сообщений: 16
1

Рассчитать средний балл каждого студента и начислить стипендию тем кто сдал без троек

13.06.2011, 13:22. Показов 4791. Ответов 5
Метки нет (Все метки)

Дана задачка: В БД содержится информация о студентах Ввуза: ФИО, №группы, результаты сдачи сессии по трем предметам. Рассчитать средний балл каждого студента и начислить стипендию тем кто сдал без троек.
Вот моя наработка, есть косяки?
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Кнопка0_Click()
Dim dbСтипедия As Database
Set dbСтипендия = CurrentDb()
Dim rcdab As Recordset
Set rcdab = dbСтипедия.OpenRecordset("Стипендия")
Do Until rcdab.EOF
rcdab.Edit
rcdab![Средний балл] = (rcdab![Мат-ка] + rcdab![Русский язык] + rcdab![Общество]) / 3
If rcdab![Средний балл] >= 4 Then
rcdab![стипендия] = "получение стипендии в размере 1500"
Else
rcdab![стипендия] = "нет стипендии"
End If
rcdab.Update
rcdab.MoveNext
Loop
DoCmd.OpenTable ("Стипендия")
End Sub
0
Заказывайте контрольные, курсовые и дипломы здесь.
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.06.2011, 13:22
Ответы с готовыми решениями:

С клавиатуры вводится средний балл сессии студента - S. Определить какую стипендию ему начислить
2. С клавиатуры вводится средний балл сессии студента - S. Определить какую стипендию ему...

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

Вычислить средний балл оценок каждого студента и напечатать их фамилии и средний балл (объединение (union))
Дан список студентов. Общие поля: Ф.И.О., дата рождения, группа, средний балл. Вычислить средний...

Известны результаты сдачи трех экзаменов десятью студентами. Найти средний балл каждого студента и общий средний балл
Известны результаты сдачи трех экзаменов десятью студентами. Найти средний балл каждого студента...

5
4 / 4 / 0
Регистрация: 13.06.2011
Сообщений: 17
13.06.2011, 16:20 2
а если оценки будут 3 4 5 стипендию начислишь?
0
0 / 0 / 0
Регистрация: 12.06.2011
Сообщений: 16
13.06.2011, 22:22  [ТС] 3
3+4+5/3=4 (да , так как условие соблюдается)
0
4 / 4 / 0
Регистрация: 13.06.2011
Сообщений: 17
14.06.2011, 14:23 4
но не соблюдается условие постановки задачи
Цитата Сообщение от Russel_ Посмотреть сообщение
начислить стипендию тем кто сдал без троек.
0
0 / 0 / 0
Регистрация: 12.06.2011
Сообщений: 16
14.06.2011, 23:14  [ТС] 5
в условии имелось ввиду чтобы средний балл был выше 3,5)
0
3348 / 1766 / 83
Регистрация: 05.08.2010
Сообщений: 4,471
15.06.2011, 07:59 6
в условии имелось ввиду чтобы средний балл был выше 3,5)
Цитата Сообщение от Russel_ Посмотреть сообщение
If rcdab![Средний балл] >= 4 Then
rcdab![стипендия] = "получение стипендии в размере 1500"
.....
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.06.2011, 07:59

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Подсчитать средний балл каждого студента, общий средний балл по каждому предмету
Приложение под Windows должно подсчитывать средний балл каждого студента, общий средний балл по...

Вычислить средний балл оценок каждого студента и напечатать их фамилии и средний балл
Вычислить средний балл оценок каждого студента и напечатать их фамилии и средний балл.

Вывести средний балл каждого студента и общий средний балл группы
Здравствуйте. Помогите понять, в чем ошибка. Программа не выводит нормально средний бал каждого...

Найти средний балл каждого студента и общий средний балл
Известны результаты сдачи трех экзаменов десятью студентами. Найти средний балл каждого студента...


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

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

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