Geum.ru

Алгоритм выполнения операций умножения двоичных чисел

Курсовой проект - Компьютеры, программирование

Другие курсовые по предмету Компьютеры, программирование

2,ma1,ma2,z1,z2); mz3:=z3;( B0) then begin {pri nulE}z1=11 thenz2[1]=1 do begin(z2,1,1); norsdv:=norsdv+1; norzac:=true;;z1=00 thenz2[1]=0 do begin(z2,1,1); norsdv:=norsdv+1; norzac:=true;;end;end;posl;ch:char; i,k,l:integer; mtrue:boolean;();(мантисса(Z(обр))=,z1,.,z2);:=izdvvdec(porxs);:=izdvvdec(porys);:=por1+por2;(P(z)=,por1,+,por2,=,por);:=false ;z1=11 then mtrue:=true ;:=obrcod(z2,mtrue);(mantisa(Z(pr.))=,z1,.,z2);normaliz;norzac then begin(Сдвиг на ,norsdv, влево ,z1,.,z2,

P(z)=,por,-,norsdv,=,por-norsdv)end;z1=11 then zn:=-;(Z=,zn,0.,z2,*2^,por-norsdv);:=por-norsdv;:=por-norsdv ;:=1;por>0 then beginpor0 do begin:=0+pos2; por:=por+1;end;(pos2,63,length(pos2));

{for i:=l to length(z2) do pos2:=pos2+z2[i];};(length(pos1)+length(pos2))=por3 then writeln(Z=,zn,pos1) else(Z=,zn,pos1,.,pos2);i:=izdvvdec2(pos1);i:=dvvdecdrob(pos2);(Z=,zn,pos1i,.,pos2i);

{str(pos2i,pos2is); }i:=pos1i+.+pos2i;(pos1i,nast1,n);:=abs(nast-nast1);(Абсолютная погрешность: ,abspog); {TUT OSHIBKA}(Относительная погрешность: ,abs(abspog/nast1){nast1:0:5});zn then writeln(B(в 2-ой СС): ,zs2,ch2s1dv,.,ch2s2dv)writeln(B(в 2-ой СС): ,zs2,ch2s1dv);();zs1=- then chpminx:=true;zs2=- then chpminy:=true;:=ch1s1dv+ch1s2dv;:=ch2s1dv+ch2s2dv;chpminx=true then ma1:=11 else ma1:=00;chpminy=true then mb1:=11 else mb1:=00;(ma2,mb2); modula:=ma2;

writeln(A в расширенной точности);

writeln(ma1[1],|,smeshgen1,|,ma2);

writeln(B в расширенной точности);

writeln(mb1[1],|,smeshgen2,|,mb2);();;:=false;

avto:=false;;(Программа выполняет перевод чисел в формат);(расширенной точности, и их умножение);(Пример вводимых данных: 22; 22.333;);(Введите число А: );

Readln(vvS);(vvS,zs1,ch1s1dv,ch1s2dv,nast1);

write(Введите число B: );

Readln(vvS2);(vvS2,zs2,ch2s1dv,ch2s2dv,nast2);;:=obrcod(ma2,chpminx);:=obrcod(mb2,chpminy);(A[обр]: ,ma1[1],|,smeshgen1,|,ma2);(B[обр]: ,mb1[1],|,smeshgen2,|,mb2);(------------------------------);;;

readln;.