Ignore:
Timestamp:
Jan 16, 2018, 3:19:23 PM (7 years ago)
Author:
chronos
Message:
  • Added: Support for begin end block.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/easy compiler/UFormMain.pas

    r141 r142  
    6363    Add('InputLn Value2');
    6464
     65    Add('begin');
    6566    Add('Assign Result Value1');
    6667    Add('Increment Result Value2');
    6768    Add('Print ''Sum of two values is: ''');
    6869    Add('PrintLn Result');
     70    Add('end');
    6971  end;
    7072{  with MemoSource.Lines do begin
    … …  
    99101    Add('Assign AnimalCount 2');
    100102    Add('Repeat');
    101     Add('BeginBlock');
     103    Add('Begin');
    102104      Add('PrintLn ''Think an animal.''');
    103105      Add('Assign I 0');
    104106      Add('Repeat');
    105       Add('BeginBlock');
     107      Add('Begin');
    106108        Add('Print AnimalProperty[I]');
    107109        Add('Print ''? (y/n)''');
    108110        Add('InputLn Answer');
    109111        Add('IfEqual Answer ''y''');
    110         Add('BeginBlock');
     112        Add('Begin');
    111113          Add('PrintLn ''That''s clear. It is ''');
    112114          Add('PrintLn AnimalName[I]');
    113115          Add('Break');
    114         Add('EndBlock');
     116        Add('End');
    115117        Add('Increment I');
    116118        Add('IfHigherOrEqual I AnimalCount');
    117119        Add('Break');
    118       Add('EndBlock');
     120      Add('End');
    119121      Add('PrintLn ''I am lost. What is the animal?''');
    120122      Add('InputLn AnimalName[I]');
    … …  
    124126      Add('Increment AnimalCount 1');
    125127      Add('PrintLn ''''');
    126     Add('EndBlock');
     128    Add('End');
    127129  end;
    128130  }
Note: See TracChangeset for help on using the changeset viewer.