Changeset 7568e5c for doc/theses/jiada_liang_MMath/test.pas

Timestamp:

Aug 8, 2024, 10:39:40 PM (13 hours ago)

Author:

JiadaL <j82liang@…>

Branches:

master

Children:

acab1bd

Parents:

c1c0efdb

Message:

Minor update on the thesis (add auto initialization and update future work

File:

• doc/theses/jiada_liang_MMath/test.pas (modified) (4 diffs)

doc/theses/jiada_liang_MMath/test.pas

@@ -4 +4 @@
         Weekday = Mon..Fri;
         Weekend = Sat..Sun;
-type Count = ( Zero, One, Two, Ten = 10, Eleven );
+type Count = ( Zero, One, Two, Ten = 10, Eleven=10 );
+type RR = ( A, B, C );
+
 var day   : Week;
         wday  : Weekday;
@@ -10 +12 @@
         lunch : array[Week] of Integer;
         cnt       :  Count;
+// procedure P1(v:Week);
+// begin
+//      Writeln('Week');
+// end;
+procedure P1(v:Weekday);
+begin
+        Writeln('Weekday');
+end;
+procedure P1(v:RR);
+begin
+        Writeln('RR');
+end;
 begin
         day := Sat;
@@ -40 +54 @@
         Writeln();
         for day := Mon to Sat do
+                lunch[day] := ord(day) * 10;
+        for day := Mon to Sun do
                 Write( lunch[day], ' ' );
         Writeln();
@@ -45 +61 @@
                 Write( ord( cnt ), ' ' );
         end;
+        day := Tue;
+        P1( day );
         Writeln();
+
+        case (day) of
+                Mon: writeln('Excellent!' );
+                Tue: writeln('Well done' );
+        end;
 end.