00000000000000
-----------------------------
+
| 0000000000000000000000000000000000011011011111001101111111011001
Зрушення на 36 вліво 00.1101101111100110111111101100
Абсолютна похибка: 6.31088724176809E-0030
Відносна похибка: 6.31088724176809E-0020
Істинне значення: 1.00000000000000E-0010
Висновок
У ході виконання роботи були придбані навички виконання побудови логічних основ ЕОМ. Так само детальніше вивчені формати представлення двійкових чисел з плаваючою крапкою. br/>
Список використань літератури
1. Савельєв А.Я. Основи інформатики. М.: Изд-во МГТУ ім. Н.Е. Баумана, 2001 р., 328с.
. Григор'єв В.Л., Злобін В.К. Програмування арифметичних операцій в мікропроцесорах. М.: Вища. школа, 1991. 303с.
Лістинг програми
{$ N +} kjhsg; crt; n, ai: integer; as, as1, as2, vvs, vvs2, zs1, zs2: string; ach, zn: char; s1, ch1s2, ch2s1, ch2s2: string; then begin: = readkey; readkey of
# 75: shag: = true;
# 77: avto: = true;;;; DecToBin (const aStr: String; var zs, s1, s2: string; var nst: extended); = 10; = 2;, PosDot, aq, tochnost: Integer;, vStr, StrSign, StrDot, as1q, as2q: String;, TmpNum, Weight: Extended; cel: boolean; aStr ='' then Exit; aStr [1] = '-' then begin: = ' - ';: = Copy (aStr, 2, Length (aStr) - 1); else begin: ='';: = aStr;;: = StrSign;: = Length (vStr) + 1; i: = 1 to Length (vStr) do beginvStr [i] = '.' then begin: = i;;;;: = 0;: = 1; i: = PosDot - 1 downto 1 do beginvStr [i] of
'0 ': Num: = Num + 0 * Weight;
'1 ': Num: = Num + 1 * We...
