Programming Example #3 (Pex3F99.pas)

CONST four = 4.0;

VAR av, stdev, s1, s2, s3, s4 : real;

Procedure getinput ( var w, x, y, z : real );

{procedure to read in a real values}

BEGIN {getinput}

write ('Input first real value: '); readln (w);

write ('Input second real value: '); readln (x);

write ('Input third real value: '); readln (y);

write ('Input fourth real value: '); readln (z)

END {getinput};

Previous slide

Next slide

Back to first slide

View graphic version