Ignore:
Timestamp:
Apr 20, 2020, 1:10:44 AM (5 years ago)
Author:
chronos
Message:
  • Added: Support for repeat-until.
Location:
branches/interpreter2
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • branches/interpreter2

    • Property svn:ignore

      •  

        old new  
        44interpreter.res
        55heaptrclog.trc
         6Generated

  • branches/interpreter2/Test.pas

    r204 r205  
    2121
    2222  // While-Do
     23  WriteLn('WhileDo');
    2324  I := 5;
    2425  while I <> 0 do begin
    … …  
    2728  end;
    2829 
     30  // Repeat-Until
     31  I := 5;
     32  WriteLn('RepeatUntil');
     33  repeat
     34    WriteLn(IntToStr(I));
     35    I := I - 1;
     36  until I = 0;
     37
    2938  // For-To-Do
     39  WriteLn('ForToDo');
    3040  for I := 0 to 5 do begin
    3141    WriteLn(IntToStr(I));   
Note: See TracChangeset for help on using the changeset viewer.