SELF TEST
Determine the output of the following program
program WHILE_DEMO (output);
const PI = 3.14;
var XL, Frequency, Inductance : real
begin
Inductance := 1.0;
Frequency := 100.00;
while Frequency < 1000.00 do
begin
XL := 2 * PI * Frequency * Inductance;
writeln('XL at ',Frequency:4:0,' hertz = ', XL:8:2 );
Frequency := Frequency + 100.00
end
end.
Self test .. Output of program WHILE_DEMO is..
XL at 100 hertz = ..........
XL at 200 hertz = ..........
.............................
XL at 1000 hertz = ..........
Copyright B Brown/P Henry/CIT, 1988-1997. All rights reserved.