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

@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

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

Новые блоги и статьи Все статьи Все блоги /
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .

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

	информационная система об успеваемости студентов 03.12.2013, 16:10. Показов 3240. Ответов 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