Отправлено smav 10 сентября 2003 г. 15:47 В ответ на: помогите переделать код из Си в Делфи отправлено promel 10 сентября 2003 г. 14:58

var
f:real;
mm:array[0..7]of byte absolute f;

port_init(0,207);
writeln(' “ЊЊЂ =');
sport(0,84); { T }
delay(100);
sport(0,48); /* 0 */
delay(100);
sport(0,70);/* F */

for i:=0 to 7 do mm[i]=rport(0);
delay(1000);
for i:=1 to 4 do write ('<',mm[i,'>']);
writeln(f:0:2) ;

end.