|
150 IF E=16 THEN D=D+2^ (N-l-F)
160 NEXT F
170 D=5*D/(2^N-1)
180 OUT B+4,1: RETURN
190 REM (c) 1997 Patrick GUEULLE
program maximl2; uses crt; var n,f,e:byte; b, g: integer ; d:real; procedure init; begin
b:=$3F8; n:=12; port[b+4]:=1; delay(100); port[b+3]:=64; delay(500); end;
procedure acquisitien; begin
port[b+4]:=0; d:=0; port[b+4]:=2;port[b+4]:=2; port[b+4]:=2;port[b+4]: = 0; for f:=0 to n-1 do begin
port[b+4]:=2; e:=port[b+6] and 16; port[b+4]:=0;
if e=16 then d:=d+exp((n-1-f}*ln(2)); end;
d:=(5*d)/(expl(n)*ln(2))-1) ; port[b+4]:=1; end;
procedure affiche; begin
acquisition; d:=(int(1000*d))/1000; writeln(d); delay(500); end;
begin
clrscr;
init;
for g: = 1 to 20 do
begin
affiche;
end; end. (* COPYRIGHT 1997 Patrick GUEULLE *)
|
|||||
| |||||