home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / ALGOL / ALGOL_M.ZIP / FLYTEST.ALG < prev    next >
Encoding:
Text File  |  1987-01-11  |  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. WHILE 1=1 DO
  8.   BEGIN
  9.     WRITE("INPUT TWO INTEGER VALUES SEPARATED BY COMMAS");
  10.     READ(A,B);
  11.     IF (A:=B*2)>(C:=B) THEN WRITE("GREATER");
  12.     WRITE(A,B,C);
  13.     A:=B:=(C:=A:=B)*2;
  14.     WRITE(A,B,C);
  15.   END;
  16. END
  17.