|
105 OUT B+4, 2:OUT B+4, 0
110 FOR F=0 TO N-l
120 OUT B+4, 2
130 E=INP(B+6) AND 16
140 OUT B+4, 0
150 IF Е=16 THEN D=D+2^(N-1-F)
160 NEXT F
170 D=5*D/(2^N-1)
180 OUT B+4, 1:RETURN
190 REM (c) 1997 Patrick GUEULLE
Его версия на языке TurboPASCAL называется MAXIM10.PAS.
program dixbits; uses crt; var n,f,е:byte; b,g:integer; d:real; procedure init; begin
b:=$3F8;n:=10; port[b+4]:=1; delay(100); port(b+3]:=64; delay(500); end;
procedure acguisition; begin
port[b+4]:=0; d:=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-l-f)*ln(2)); end;
d:=(5*d)/(exp((n)*ln(2))-l); end;
procedure affictie ; begin
acquisition; d:=(int(100*d))/100; writeln(d); delay(500); end;
begin
clrscr;
init;
for g:=l to 20 do
begin
|
|||||
| |||||