Example #1

PROGRAM Pex4F99 (input, output); { Problem #33, Page 104 text }

VAR Weight, Cost : real;

YesNo : Char;

BEGIN { Pex4F99 }

Write ('Input weight in ounces: '); Readln ( Weight );

Cost := 0.30; Weight := Weight - 1.0;

WHILE Weight > 0.0 DO

Previous slide

Next slide

Back to first slide

View graphic version