no message

This commit is contained in:
Idir AIT SADOUNE 2018-04-18 09:36:21 +02:00
parent baa3ee9b45
commit 2e185d9c25
2 changed files with 15 additions and 13 deletions

View File

@ -4,29 +4,34 @@ begin
open_monitor*[exam::MathExam] open_monitor*[exam::MathExam]
text*[header::Header,examGrade=A1, examSubject= algebra]{*Exam number 1*}
text*[idir::Author, affiliation="CentraleSupelec"]{*Idir AIT SADOUNE*} text*[idir::Author, affiliation="CentraleSupelec"]{*Idir AIT SADOUNE*}
section*[exo1 :: Exercise, content="[q1,q2,q3]"] text*[header::Header,examGrade="A1", examSubject= "algebra", examTitle="Exam number 1"]
{* Please follow directions carefully ans show all your work.*} {* Please follow directions carefully ans show all your work.*}
text*[q1::Question, level=twoStars, mark=5]
section*[exo1 :: Exercise, content="[q1,q2,q3]"]{* Exercise 1.*}
text*[q1::Question, level="twoStars", mark="5"]
{* {*
Give an example of each of the following : Give an example of each of the following :
a - a rational number which is not integer. a - a rational number which is not integer.
b - a real number which is not rational. b - a real number which is not rational.
*} *}
text*[q2::Question, level=oneStar, mark=5] text*[q2::Question, level="oneStar", mark="5"]
{* {*
Write in interval notation : @{term ''-3 < x < 5''} Write in interval notation : @{term ''-3 < x < 5''}
*} *}
text*[q3::Question, level=oneStar, mark=5] text*[q3::Question, level="oneStar", mark="5"]
{* {*
True or false : @{term ''0/8 = 0''} True or false : @{term ''0/8 = 0''}
*} *}
close_monitor*[exam]
end
(* (*
section{* Example*} section{* Example*}
@ -37,8 +42,4 @@ text{*
@{term "[ @{thm ''refl''}] @ [ @{thm ''sym''}, @{thm ''trans''} ]"}} are the theorems @{term "[ @{thm ''refl''}] @ [ @{thm ''sym''}, @{thm ''trans''} ]"}} are the theorems
of the equational logic fragment of HOL. of the equational logic fragment of HOL.
*} *}
*) *)
close_monitor*[exam]
end

View File

@ -16,6 +16,7 @@ datatype Grade =
A1 | A2 | A3 A1 | A2 | A3
doc_class Header = doc_class Header =
examTitle :: string
examGrade :: Grade examGrade :: Grade
examSubject :: Subject examSubject :: Subject
@ -28,9 +29,9 @@ doc_class Exercise=
doc_class MathExam= doc_class MathExam=
content :: "(Header + Author + Exercise) list" content :: "(Header + Author + Exercise) list"
where "(Header ~ where "((Author)+ ~
(Author)+ ~ Header ~
(Exercise)+ )" (Exercise)+ )"
end end