fork download

copy

include "laba2.inc"
 
domains
	stazh_list=integer*
	medicine_list=string*
 
predicates
	nondeterm login
	nondeterm enter_password (integer)
	nondeterm password (string)
	nondeterm vyvod
	nondeterm doctor (string, integer)
	nondeterm priem (string, string, string, medicine_list) 
	nondeterm pacient (string, string) 
	nondeterm repeat
	nondeterm choose_destiny (integer)
	nondeterm find_max_stazh
	nondeterm find_diagnosis_med (string, string)
	nondeterm max_elem (stazh_list, integer)
	nondeterm maxl (integer, integer, integer)
	nondeterm is_in_med_list(string, medicine_list)
	nondeterm find_from_med (string)
 
goal
	login.
clauses
	password("test").
	doctor ("Haus", 20).
	doctor ("Caddy", 15).
	doctor ("Wilson", 10).
	pacient ("Anton", "Volchanka").
	priem ("Haus", "Anton", "7:15", ["Vicodin"]).
	priem ("Caddy", "Oleg", "11:15", ["Aspirin"]).
	priem ("Wilson", "Maria", "13:15", ["Vers"]).	
 
	login:- clearwindow, enter_password(3), write("Login Unsuccessful"),nl, readchar(_).
 
        login :- write("Login Successful"),nl, readchar(_), vyvod.
 
	enter_password(Rep):- Rep<>0, write ("Enter Password(test): "), readln (N), not(password(N)), Rep1=Rep-1, enter_password(Rep1).
	enter_password(0).
 
	vyvod:- repeat,clearwindow, write("Choose your destiny! (1) or (2) or (3)"), readint (Var), choose_destiny (Var),
		write("Continue?(n for no)"), readchar(C), C='n'.
 
	choose_destiny (1):- write ("Doctor with maximum stazh is: "), find_max_stazh, nl.
	choose_destiny (2):- write ("Insert Diagnosis: "), readln(D), nl, write ("Insert Medicine: "), readln(M), find_diagnosis_med(D, M), nl.
	choose_destiny (3):- write ("Medicine: "), readln(S), nl, find_from_med(S), nl.
 
	find_max_stazh:- max_elem([20, 15, 10], Max), doctor(F,Max), write(F), nl.
 
	max_elem ([], Max):- Max=0, !.
	max_elem ([X], Max):- Max=X, !.
	max_elem ([H|T], Max):- max_elem (T, M), maxl (H, M, Max).
	maxl (X1, X2, Max):- X1>=X2, Max=X1, !.
	maxl (_, X2, Max):- Max=X2.
 
 
	find_diagnosis_med(Diag, Med):- pacient(Name, Diag), priem(Doc, Name, Time, MedList), is_in_med_list(Med, MedList), 
					write("Doctor: ", Doc),  nl, write("Time: ", Time), nl, write("Time: ", Time), nl, fail.
	find_diagnosis_med(_,_).
 
	is_in_med_list (X, L):- L=[X|_], !.
	is_in_med_list (X, L):- L=[_|T], is_in_med_list (X, T).
 
	find_from_med(String):- fronttoken(String, T, Rest), write(T), priem(Doc, Name, Time, MedList), is_in_med_list (T, MedList), write(MedList), find_from_med(Rest).
	find_from_med(_):- !.
 
	repeat.
	repeat:-repeat.

prog.pl:1:9: syntax error: . or operator expected after expression
prog.pl:27:2: syntax error: . or operator expected after expression
prog.pl:28:9: syntax error: . or operator expected after expression
prog.pl:29:9: syntax error: . or operator expected after expression
prog.pl:30:9: syntax error: . or operator expected after expression
prog.pl:31:10: syntax error: . or operator expected after expression
prog.pl:32:8: syntax error: . or operator expected after expression
prog.pl:33:8: syntax error: . or operator expected after expression
prog.pl:34:8: syntax error: . or operator expected after expression
prog.pl:40:27: syntax error: . or operator expected after expression
prog.pl:43:87: syntax error: . or operator expected after expression
prog.pl:46:17: syntax error: . or operator expected after expression
prog.pl:47:17: syntax error: . or operator expected after expression
prog.pl:48:17: syntax error: . or operator expected after expression
prog.pl:52:11: syntax error: . or operator expected after expression
prog.pl:53:11: syntax error: . or operator expected after expression
prog.pl:54:11: syntax error: . or operator expected after expression
prog.pl:55:7: syntax error: . or operator expected after expression
prog.pl:56:7: syntax error: . or operator expected after expression
prog.pl:63:17: syntax error: . or operator expected after expression
prog.pl:64:17: syntax error: . or operator expected after expression
prog.pl:66:113: syntax error: . or operator expected after expression
prog.pl:69: fatal error: redefining built-in predicate repeat/0
compilation failed

Standard output is empty