ZPL Is Intuitive: Find ? and ?

1 program Sample_Stats;

2 config var n : integer = 100;

3 region V = [1..n];

4 procedure Sample_Stats();

5 var Sample : [V] float;

6 mu, sigma: float;

7 [V] begin

8 read(Sample);

9 mu := +<<Sample/n;

10 sigma:= sqrt(+<<((Sample-mu)^2)/n);

11 writeln(“Mean: “,mu,”S.D. :”, sigma);

12 end;

Convention: Scalars are in

lower case; an array’s first

letter is capitalized

Previous slide

Next slide

Back to first slide

View graphic version