информационная система об успеваемости студентов

@bina · Регистрация: 18.04.2013

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

Здравствуйте)) Мне нужно написать информационную систему анализа успеваемости студентов. С чего начать и как писать ума не приложу. Помогите, подскажите плизз...

Добавлено через 4 минуты
писать мне нужно в visual prolog

@keidin · 03.12.2013, 16:21

Для начала оформите сведения о студентах и их успеваемости в виде предиката, а затем опишите базу фактов с исходной информацией. Тогда можно будет и к анализу перейти)))

@bina · 03.12.2013, 17:16 **[ТС]**

А в каком именно документе это все писать?

@keidin · 03.12.2013, 18:18

В файле c расширением .pro, созданном в среде разработки VP. Да, а какая версия VP Вами используется?

@bina · 03.12.2013, 21:46 **[ТС]**

5.2

@keidin · 03.12.2013, 22:49

Ну тогда в чем проблема? File->New - и поехали.

Prolog
1
2
3
4
5
6
7
8
9
10
11
12
domains
%определите типы даных
 
predicates
% определите предкаты - отношения, связывающие объекты
%студент(факультет, специальность, курс, группа, успеваемость)
 
clauses
% заполните базу фактов 
 
goal
% укажите цель - для начала сойдет и студент(Х1, Х2, Х3, Х4, Х5)

Ну и вооружитесь методичкой по лабам =)

@bina · 04.12.2013, 16:18 **[ТС]**

Я написала бд, а как бы лучше написать правило?

Code
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
30
31
32
domains
    имя, фамилия, специальность, предмет = symbol
    номер группы, оценка, студ_билет, курс, средний_бал  = integer
predicates
    студент(имя,фамилия,специальность,курс,студ_билет,номер группы,предмет,оценка)
    успеваемость(предмет,средний_бал)
clauses
    студент(альбина,яруткина,ивт,4,423,1,информатика,4).
    студент(альбина,яруткина,ивт,4,423,1,история,5).
    студент(альбина,яруткина,ивт,4,423,1,математический анализ,4).
    студент(альбина,яруткина,ивт,4,423,1,программирование,5).
    студент(альбина,яруткина,ивт,4,423,1,эвм,5).
    студент(анна,никонова,пиэ,3,526,2,информатика,5).
    студент(анна,никонова,пиэ,3,526,2,история,3).
    студент(анна,никонова,пиэ,3,526,2,математический анализ,4).
    студент(анна,никонова,пиэ,3,526,2,программирование,4).
    студент(анна,никонова,пиэ,3,526,2,эвм,5).
    студент(александра,соколова,ммэ,5,327,3,информатика,3).
    студент(александра,соколова,ммэ,5,327,3,история,5).
    студент(александра,соколова,ммэ,5,327,3,математический анализ,5).
    студент(александра,соколова,ммэ,5,327,3,программирование,3).
    студент(александра,соколова,ммэ,5,327,3,эвм,4).
    студент(евгений,сулухия,одо то,2,425,4,информатика,3).
    студент(евгений,сулухия,одо то,2,425,4,история,3).
    студент(евгений,сулухия,одо то,2,425,4,математический анализ,4).
    студент(евгений,сулухия,одо то,2,425,4,программирование,3).
    студент(евгений,сулухия,одо то,2,425,4,эвм,3).
    студент(владимир,шматков,одо эп,5,835,5,информатика,4).
    студент(владимир,шматков,одо эп,5,835,5,история,4).
    студент(владимир,шматков,одо эп,5,835,5,математический анализ,4).
    студент(владимир,шматков,одо эп,5,835,5,программирование,3).
    студент(владимир,шматков,одо эп,5,835,5,эвм,4).

Добавлено через 16 часов 59 минут
Я написала другой код, а он мне пишет "E;Test_Goal, pos: 2331, 428 The free variable in 'findall' can only be used inside 'findall' Oz".
вот сам код

include "инф система.inc"

domains
имя, фамилия, специальность, предмет = symbol
номер_группы, оценка, студ_билет, курс, средний_бал, сумма = integer
оценки=integer*
predicates
студент(имя,фамилия,специальность,курс,с туд_билет,номер_группы,предмет,оценка)
сумма_баллов(оценки,сумма)
clauses
студент(альбина,яруткина,ивт,4,423,1,инф орматика,4).
студент(альбина,яруткина,ивт,4,423,1,ист ория,5).
студент(альбина,яруткина,ивт,4,423,1,мат ематический_анализ,4).
студент(альбина,яруткина,ивт,4,423,1,про граммирование,5).
студент(альбина,яруткина,ивт,4,423,1,эвм ,5).
студент(анна,никонова,пиэ,3,526,2,информ атика,5).
студент(анна,никонова,пиэ,3,526,2,истори я,3).
студент(анна,никонова,пиэ,3,526,2,матема тический_анализ,4).
студент(анна,никонова,пиэ,3,526,2,програ ммирование,4).
студент(анна,никонова,пиэ,3,526,2,эвм,5) .
студент(александра,соколова,ммэ,5,327,3, информатика,3).
студент(александра,соколова,ммэ,5,327,3, история,5).
студент(александра,соколова,ммэ,5,327,3, математический_анализ,5).
студент(александра,соколова,ммэ,5,327,3, программирование,3).
студент(александра,соколова,ммэ,5,327,3, эвм,4).
студент(евгений,сулухия,одо_то,2,425,4,и нформатика,3).
студент(евгений,сулухия,одо_то,2,425,4,и стория,3).
студент(евгений,сулухия,одо_то,2,425,4,м атематический_анализ,4).
студент(евгений,сулухия,одо_то,2,425,4,п рограммирование,3).
студент(евгений,сулухия,одо_то,2,425,4,э вм,3).
студент(владимир,шматков,одо_эп,5,835,5, информатика,4).
студент(владимир,шматков,одо_эп,5,835,5, история,4).
студент(владимир,шматков,одо_эп,5,835,5, математический_анализ,4).
студент(владимир,шматков,одо_эп,5,835,5, программирование,3).
студент(владимир,шматков,одо_эп,5,835,5, эвм,4).
сумма_баллов([],0).
сумма_баллов([X|L],Sum):-сумма_баллов(L,Sum1),Sum=Sum1+X.
goal
write(" Весь список"),nl,
write("Имя Фамилия Специальность Группа Номер билета Курс Предмет Оценка"),nl,
студент(Im,Fam,Spec,Grup,Nom_bil,Kyrs,Pr edm,Oz),write(Im," ",Fam," ",Spec," ",Grup," ",Nom_bil," ",Kyrs," ",Predm," ",Oz),nl,fail,
findall(Oz,студент(Im,Fam,Spec,Grup,Nom_ bil,Kyrs,Predm,Oz),L),
write("список=",L).

Что делать?

@Грымзик · 04.12.2013, 22:43

в finвall должна быть одна свободная переменная
findall(Oz,p(Oz),L).
Чего Вы хотите добиться в goal?

@keidin · 04.12.2013, 23:05

Prolog
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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
domains
 имя, фамилия, специальность, предмет = symbol
 номер_группы, оценка, студ_билет, курс, средний_бал, сумма, количество = integer
 оценки=integer*
 predicates
 nondeterm студент(имя,фамилия,специальность,курс,студ_билет,номер_группы,предмет,оценка)
 nondeterm успеваемость_по_предмету
 nondeterm средняя_успеваемость
 nondeterm ведомость
 nondeterm пуск
 nondeterm сумма_баллов(оценки,сумма,количество)
 clauses
 студент(альбина,яруткина,ивт,4,423,1,информатика,4).
 студент(альбина,яруткина,ивт,4,423,1,история,5).
 студент(альбина,яруткина,ивт,4,423,1,математический_анализ,4 ).
 студент(альбина,яруткина,ивт,4,423,1,программирование,5).
 студент(альбина,яруткина,ивт,4,423,1,эвм,5).
 студент(анна,никонова,пиэ,3,526,2,информатика,5).
 студент(анна,никонова,пиэ,3,526,2,история,3).
 студент(анна,никонова,пиэ,3,526,2,математический_анализ,4).
 студент(анна,никонова,пиэ,3,526,2,программирование,4).
 студент(анна,никонова,пиэ,3,526,2,эвм,5).
 студент(александра,соколова,ммэ,5,327,3,информатика,3).
 студент(александра,соколова,ммэ,5,327,3,история,5).
 студент(александра,соколова,ммэ,5,327,3,математический_анализ,5).
 студент(александра,соколова,ммэ,5,327,3,программирование,3).
 студент(александра,соколова,ммэ,5,327,3,эвм,4).
 студент(евгений,сулухия,одо_то,2,425,4,информатика,3).
 студент(евгений,сулухия,одо_то,2,425,4,история,3).
 студент(евгений,сулухия,одо_то,2,425,4,математический_анализ ,4).
 студент(евгений,сулухия,одо_то,2,425,4,программирование,3).
 студент(евгений,сулухия,одо_то,2,425,4,эвм,3).
 студент(владимир,шматков,одо_эп,5,835,5,информатика,4).
 студент(владимир,шматков,одо_эп,5,835,5,история,4).
 студент(владимир,шматков,одо_эп,5,835,5,математический_анализ,4).
 студент(владимир,шматков,одо_эп,5,835,5,программирование,3).
 студент(владимир,шматков,одо_эп,5,835,5,эвм,4).
 
 сумма_баллов([],0,0).
 сумма_баллов([X|L],Sum,N):-сумма_баллов(L,Sum1,N1),Sum=Sum1+X,N=N1+1.
 
 успеваемость_по_предмету:- write("Предмет: "), readln(Dis),
     findall(Oz,студент(_,_,_,_,_,_,Dis,Oz),L),сумма_баллов(L,Sum,N),Oz_sr=Sum/N,
     write("Средний балл: ", Oz_sr), nl. 
 
 средняя_успеваемость:-findall(Oz,студент(_,_,_,_,_,_,_,Oz),L),сумма_баллов(L,Sum,N),Oz_sr=Sum/N,
     write("Средний балл: ", Oz_sr), nl. 
 
 ведомость:-write("Имя Фамилия Специальность Группа Номер билета Курс Предмет Оценка"),nl,
     студент(Im,Fam,Spec,Grup,Nom_bil,Kyrs,Predm,Oz),
     write(Im," ",Fam," ",Spec," ",Grup," ",Nom_bil," ",Kyrs," ",Predm," ",Oz),nl,fail.
 ведомость.   
        
 пуск:-  ведомость, nl, средняя_успеваемость, nl, успеваемость_по_предмету.   
    
 goal
 пуск.

@bina · 05.12.2013, 10:50 **[ТС]**

Спасибо, отлично!!!! Все работает!!! Теперь одна загвоздочка: мне нужно сделать графический интерфейс.

@keidin · 05.12.2013, 16:20

Здесь может помочь книга Анатолий Адаменко, Андрей Кучуков: Логическое программирование и Visual Prolog

@bina · 10.12.2013, 11:32 **[ТС]**

Я создала новое меню "Анализ", там 2 подпункта "По всем предметам" и "По предмету". На подпункт "по предмету" у меня выходит окно с кнопкой, при нажатии на которую должен считаться средний балл по предмету и выводиться в EditText и вписываю предмет я тоже в EditText. А при нажатии в меню "по всем предметам" выводится средний балл по всем предметам

@keidin · 10.12.2013, 13:51

Молодец! Возникли какие-нибудь вопросы?

@bina · 10.12.2013, 16:45 **[ТС]**

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

@keidin · 10.12.2013, 22:37

будет проще поправить в проекте (скиньте архивов), чем на пальцах объяснять =)

@bina · 11.12.2013, 10:30 **[ТС]**

Там помимо самого проекта ещё и текст с программойпрога.rar

@keidin · 11.12.2013, 16:32

Дальше, думаю, сами разберетесь ))

Новые блоги и статьи Все статьи Все блоги /
Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Programma_Boinc 01.01.2026 Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Сочетание глобально распределённой вычислительной мощности и инновационных. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .

@bina 0 / 0 / 0 Регистрация: 18.04.2013 Сообщений: 41

	информационная система об успеваемости студентов 03.12.2013, 16:10. Показов 3226. Ответов 16 Метки нет (Все метки) Здравствуйте)) Мне нужно написать информационную систему анализа успеваемости студентов. С чего начать и как писать ума не приложу. Помогите, подскажите плизз... Добавлено через 4 минуты писать мне нужно в visual prolog 0

@keidin 99 / 99 / 14 Регистрация: 07.02.2013 Сообщений: 128
	03.12.2013, 16:21
	Для начала оформите сведения о студентах и их успеваемости в виде предиката, а затем опишите базу фактов с исходной информацией. Тогда можно будет и к анализу перейти))) 0

@bina 0 / 0 / 0 Регистрация: 18.04.2013 Сообщений: 41
	03.12.2013, 17:16 [ТС]
	А в каком именно документе это все писать? 0

@keidin 99 / 99 / 14 Регистрация: 07.02.2013 Сообщений: 128
	03.12.2013, 18:18
	В файле c расширением .pro, созданном в среде разработки VP. Да, а какая версия VP Вами используется? 0

@bina 0 / 0 / 0 Регистрация: 18.04.2013 Сообщений: 41
	03.12.2013, 21:46 [ТС]
	5.2 0

@Грымзик 2507 / 1483 / 37 Регистрация: 14.09.2009 Сообщений: 2,740
	04.12.2013, 22:43
	в finвall должна быть одна свободная переменная findall(Oz,p(Oz),L). Чего Вы хотите добиться в goal? 0

@bina 0 / 0 / 0 Регистрация: 18.04.2013 Сообщений: 41
	05.12.2013, 10:50 [ТС]
	Спасибо, отлично!!!! Все работает!!! Теперь одна загвоздочка: мне нужно сделать графический интерфейс. 0

@keidin 99 / 99 / 14 Регистрация: 07.02.2013 Сообщений: 128
	05.12.2013, 16:20
	Здесь может помочь книга Анатолий Адаменко, Андрей Кучуков: Логическое программирование и Visual Prolog 1

@bina 0 / 0 / 0 Регистрация: 18.04.2013 Сообщений: 41
	10.12.2013, 11:32 [ТС]
	Я создала новое меню "Анализ", там 2 подпункта "По всем предметам" и "По предмету". На подпункт "по предмету" у меня выходит окно с кнопкой, при нажатии на которую должен считаться средний балл по предмету и выводиться в EditText и вписываю предмет я тоже в EditText. А при нажатии в меню "по всем предметам" выводится средний балл по всем предметам 0

@keidin 99 / 99 / 14 Регистрация: 07.02.2013 Сообщений: 128
	10.12.2013, 13:51
	Молодец! Возникли какие-нибудь вопросы? 0

Опции темы

@bina 0 / 0 / 0 Регистрация: 18.04.2013 Сообщений: 41
	10.12.2013, 16:45 [ТС]
	да)))))как запрограммировать кнопку и менюшку)))) я книжку читала и лабораторные смотрела, но не поняла 0

@keidin 99 / 99 / 14 Регистрация: 07.02.2013 Сообщений: 128
	10.12.2013, 22:37
	будет проще поправить в проекте (скиньте архивов), чем на пальцах объяснять =) 0

@bina 0 / 0 / 0 Регистрация: 18.04.2013 Сообщений: 41
	11.12.2013, 10:30 [ТС]
	Там помимо самого проекта ещё и текст с программойпрога.rar 0