Changeset 20 for branches/DelphiToC/Example.pas

Timestamp:

Sep 8, 2009, 2:01:55 PM (15 years ago)

Author:

george

Message:

• Přidáno: Analýza páru dalších programových konstrukcí.
• Přidáno: Pár jednoduchých testovacích příkladů pro překladač.

File:

• branches/DelphiToC/Example.pas (modified) (1 diff)

branches/DelphiToC/Example.pas

@@ -1 +1 @@
 program Test;
 
-procedure Pokus;
+procedure Pokus(A: Byte);
 begin
 end;
 
 const
-  Verze: Byte = 10;
+  Verze: Byte = 11;
 var
-  a: Bpyte;
+  a: Byte;
   B: Byte;
   sS: Byte;
 begin
   A := 1;
+  While A < 1 do A := A + 1;
 end.