Encyclopedia > Algol W

Article Content

Algol W

BEGIN COMMENT SAMPLE PROBLEM; INTEGER N; REAL MAX, PRICE, SUM; N := 0; SUM := 0; MAX := 0; READ(PRICE); WHILE PRICE > 0 DO

      BEGIN 
      N := N + 1; 
      SUM := SUM + PRICE; 
      IF PRICE > MAX THEN 
          MAX := PRICE; READON(PRICE);
      END;
 WRITE(N,SUM,MAX)

END.

All Wikipedia text is available under the terms of the GNU Free Documentation License

Search Encyclopedia

Search over one million articles, find something about almost anything!

Featured Article

East Islip, New York

... is 96.20% White, 0.57% African American, 0.06% Native American, 1.41% Asian, 0.02% Pacific Islander, 0.96% from other races, and 0.78% from two or more races. 3.89% of the ...