Вычислить a x b. применить алгоритм компьютерного умножения вещественных чисел. длина мантиссы равна 6 . результат перевести в 10-е число и сравнить с точным значением.a=1101(2)b=0,0111(2)

x

2

+

y

2

=

16

...

...

...

...

...

...

.

.

(

1

)

x + y = 4 (2)

rearrange (2) to y = 4 - x (could do x = 4 - y )

substitute y = 4 - x into (1)

hence:  

x

2

+

(

4

−

x

)

2

=

16

⇒

x

2

+

16

−

8

x

+

x

2

=

16

and  

2

x

2

−

8

x

+

16

−

16

=

0

⇒

2

x

2

−

8

x

=

0

factor and solve : 2x(x - 4 ) = 0  

⇒

x

=

0

,

x

=

4

substitute these values into y = 4 - x , to find corresponding values of y.

x = 0 : y = 4 - 0 = 4 → (0 , 4)

x = 4 : y = 4 - 4 = 0 → (4 , 0 )

These are the points of intersection with the line x +y = 4 and the circle  

x

2

+

y

2

=

16

Answer link

Объяснение:

Const
n=10;m=7;
var
a:array[1..n,1..m]of integer;
flag,i,j,b:integer;
begin
     for i:=1 to n do
         begin
             writeln;
                 for j:=1 to m do
                      begin
                        a[i,j]:=random(312)-111;
                        write(a[i,j]:4);
                      end;
            end;
writeln;
Writeln('B ?');
readln(b);
for i:=1 to n do
  for j:=1 to m do
      if a[i,j]=b then
          flag:=1;
if flag=1 then
   writeln('Yes')
else
   writeln('N');
end.

вариант 2
const
n=10;m=7;
var
a:array[1..n,1..m]of integer;
k,i,j,b:integer;
begin
     for i:=1 to n do
         begin
             writeln;
                 for j:=1 to m do
                      begin
                        a[i,j]:=random(312)-111;
                        write(a[i,j]:4);
                      end;
            end;
writeln;
Writeln('B ?');
readln(b);
for i:=1 to n do
  for j:=1 to m do
      if a[i,j]=b then
          k:=k+1;
if k<>0 then
   writeln('Yes')
else
   writeln('N');
end.