Лабораторная работа №9 / LR9

PROGRAM MASM;
USES CRT;
PROCEDURE gyp(A,B:SINGLE); EXTERNAL; {$L lr91.OBJ}
VAR A,B:SINGLE;
    OTV,otv1:SINGLE;
    i:byte;
    f:text;
BEGIN
  CLRSCR;
  WRITELN('‹ Ў®а в®а­ п а Ў®в  ь9');
  WRITELN('Vi4isliaet gypotenuzu=(a^2+b^2)^(1/2).');
  WRITELN;
  assign(f,'test9.xom');
  rewrite(f);
  {WRITE('‚ўҐ¤ЁвҐ a: ');
  READLN(A);
  WRITE('‚ўҐ¤ЁвҐ b: ');
  READLN(B);}
  For i:=1 to 200 do
  Begin
  randomize;
  a:=random(200);
  delay(15000);
  b:=random(200);
  GYP(A,B);
  otv1:=sqrt(sqr(a)+sqr(b));
  write(f,'Otvet: gypotenuza=sqrt(',a:3:3,'^2+',b:3:3,'^2)=');
  write(f,OTV:3:10,'(po asmsembleru)',',',otv1:3:10,'(po pascalu).');
  writeln(f,'Razlichie=',abs(otv-otv1):3:20);
  end;
  close(f);
  {READLN;}
END.