home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / ALGOL / ALGOLM.ZIP / FLYTEST.ALG < prev    next >
Encoding:
Text File  |  1987-02-14  |  512 b   |  17 lines
  1. BEGIN
  2. COMMENT THIS PROGRAM DEMONSTRATES THE ASSIGNMENT ON THE FLY
  3.         STATEMENT: IT READS TWO INTEGERS AT A TIME FROM THE CONSOLE
  4.         AND WRITES THREE VALUES BACK TO THE CONSOLE AS INDICATED  
  5.         IN THE CODE;
  6. INTEGER A,B,C;
  7.  
  8. WHILE 1=1 DO
  9.   BEGIN
  10.     WRITE("INPUT TWO INTEGER VALUES SEPARATED BY COMMAS");
  11.     READ(A,B);
  12.     IF (A:=B*2)>(C:=B) THEN WRITE("GREATER");
  13.     WRITE(A,B,C);
  14.     A:=B:=(C:=A:=B)*2;
  15.     WRITE(A,B,C);
  16.   END;
  17. END
  18.