Системы счисления. Правила перевода чисел из одной системы счисления в другую

Системы счисления. Правила перевода чисел из одной системы счисления в другую

 

     Ц е л ь  р а б о т ы . Изучение систем счисления, используе-

мых в вычислительной технике и правил перевода  чисел  из  одной

системы счисления в другую.

 

     При использовании  ЭВМ  существенным является знание систем

счисления. Системы счисления, которыми мы пользуемся в настоящее

время, основаны на методе, открытом индусскими математиками око-

ло 400 г.  н.э.  Арабы стали пользоваться подобной системой, из-

вестной как арабская система счисления около 800 г.н.э.,  а при-

мерно в 1200 г.н.э.  ее начали применять в Европе и называют де-

сятичной системой счисления.

     Известны другие системы счисления,  основанные  на  тех  же

принципах, что и десятичная,- двоичная,  восьмеричная и шестнад-

цатиричная. Они обычно используются в  ЭВМ,  поскольку  вычисли-

тельные машины построены на схемах с двумя устойчивыми состояни-

ями. В настоящей лабораторной работе предлагается  изучить  ука-

занные системы счисления, а также методы преобразования чисел из

одной системы счисления в другую.

 

     О п и с а н и е  л а б о р а т о р н о й  р а б о т ы

 

     Лабораторная работа представлена обучающей программой,  ра-

бота с которой осуществляется в интерактивном режиме. (Программа

разработана под руководством доцента кафедры УИТЭС В.М. Дерябина)

     Запуск программы  осуществляется  из  директории  PEREVOD1,

инициированием файла maindm.exe

     Все действия,  которые  необходимо  выполнить в ходе работы

отражаются непосредственно на экране,  либо  их  описания  могут

быть получены инициированием меню "Help".

 

                С о д е р ж а н и е  о т ч е т а

 

     1.Краткое описание особенностей изученных систем счисления.

     2.Результаты преобразования чисел из одной системы  счисле-

ния в другую.

 

             К о н т р о л ь н ы е   в о п р о с ы

 

     1.Чем отличаются позиционные системы счисления от непозици-

онных?

     2.Как можно  объяснить правила преобразования двоичной сис-

темы счисления в восьмеричную,  шестнадцатиричную, двоично-деся-

тичную и наоборот?

     3.В каких случаях преобразование десятичной дроби в  двоич-

ную может быть выполнено за конечное число шагов и почему?

     4.Переведите:

     101101.101 22 4 2 0  в десятичную систему

 

     47 4 10 7       )

     0.14 4 10 0     7 8 0 в двоичную систему

     24.31 4 10 7    0



     5.Переведите:

     87.1 4 10 7     )

                  78 0 в восьмеричную систему;

     1011.102 4 2 7  0

 

     124.6 4 8 7    )

                 78 0 в двоичную систему;

     62.42 4 8 0     70



     6.Переведите:

     BAD.DAD  416 0  в десятичную систему;

 

     374.971 4 10 7    )

                    78 0 в шестнадцатиричную систему;

     1011.101101 4 2 7 0

 

     8AF.CB4  416 0   в восьмеричную систему.



                      Л и т е р а т у р а

     1.Чернов В.Г. Математические и логические основы ЭВМ. Мето-

дические указания к самостоятельной работе студентов.-ВПИ,Влади-

мир 1992-47с.
Текст программы:

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

  StdCtrls, ExtCtrls, Buttons;

type

  TForm1 = class(TForm)

    ScrollBar1: TScrollBar;

    ScrollBar2: TScrollBar;

    Shape1: TShape;

    ColorDialog1: TColorDialog;

    Panel1: TPanel;

    Button1: TButton;

    Button2: TButton;

    ComboBox1: TComboBox;

    BitBtn1: TBitBtn;

         procedure Button2Click(Sender: TObject);

         procedure Button1Click(Sender: TObject);

         procedure ComboBox1Change(Sender: TObject);

         procedure ScrollBar1Change(Sender: TObject);

         procedure ScrollBar2Change(Sender: TObject);

         procedure BitBtn1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

  

implementation

{$R *.DFM}

procedure TForm1.Button2Click(Sender: TObject);

begin

         if ColorDialog1.Execute then

         Form1.Color:=ColorDialog1.Color;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

         if colorDialog1.Execute then

         Shape1.Brush.Color:=ColorDialog1.Color;

end;

procedure TForm1.ComboBox1Change(Sender: TObject);

begin

         Shape1.Shape:=TShapeType(ComboBox1.ItemIndex);

end;

procedure TForm1.ScrollBar1Change(Sender: TObject);

begin

         Shape1.Width:=ScrollBar1.Position*3;

end;

procedure TForm1.ScrollBar2Change(Sender: TObject);

begin

         Shape1.Height:=Scrollbar2.Position*2;

end;

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

Close;

end;

end.

Внешний вид программы: