Pascal вычислить у= корень из x, при х = 4.5, 5.0, 5.5, … , 11.0.

program SqrtX;

const

 XBEG = 4.5;

 XEND = 11.0;

 DELTA = 0.5;

var

 x: Double;

begin

 x := XBEG;

 while x <= XEND do begin

   WriteLn (x :4 :1, Sqrt (x) :20 :15);

   x := x + DELTA;

 end;

 ReadLn;

end.

В 2сс:
27=16+8+2+1=2^4+2^3+2^1+2^0=1 1011  (2cc)
0,|27 * 2          
 0|54  *2          
 1|08  *2         
 0|16  *2        
 0|32  *2
 0|64 *2
 1|28 *2  
 0|56 *2
 1|12 *2
 0|24 *2
 0|48 *2
 0|96 *2
 1|92 *2
 1|84 *2
 1|68 *2
 1|36 *2
 0|72 *2
 1 |44 *2
 0|88 *2
 1|76 *2
 1|52
  +1
1|04                            (последний байт при приближении =1100)

27, 27 = 1 1011, 0100 0101 0001 1110  1100  (в2сс) ≈11011,01001
27,27 =   1 B     ,   4       5      1        E       B   =  1B,451EC (в 16сс)

27, 27 =  11 011, 010  001  010  111 (в 2сс) =33,21217 ( в 8сс)
                3    3,     2     1      2       7
 

      

'VBScript

Sub Zadanie()
    ReDim C(5, 6)

    k_pos = 0
    mini = LBound(C, 1)
    minj = LBound(C, 2)
    For i = LBound(C, 1) To UBound(C, 1)
        For j = LBound(C, 2) To UBound(C, 2)
            C(i, j) = Round(Rnd * 10)

            if C(i, j) > 0 then k_pos = k_pos + 1

            if C(i, j) < C(mini, minj) then
                mini = i
                minj = j
            end if
        Next
    Next

    MsgBox "min C(" & mini & ", " & minj & ")=" & C(mini, minj) & vbNewLine & "c>0: " & k_pos
End Sub

Call Zadanie()