Лекции по Turbo Pascal (стр. 16 )

Перевод из двоичной системы счисления в четверичную, восьмеричную,
шестнадцатеричную и обратно.

Двоичная система, удобная для компьютеров (потому, что она имеет ряд преимуществ перед другими системами: для ее реализации нужны технические устройства с двумя устойчивыми состояниями (есть ток — нет тока, намагничен — не намагничен и т. п.), а не, например, с десятью, — как в десятичной; представление информации посредством только двух состояний надежно и помехоустойчиво; возможно применение аппарата булевой алгебры для выполнения логических преобразований информации; двоичная арифметика намного проще десятичной. Недостаток двоичной системы — быстрый рост числа разрядов, необходимых для записи чисел), для человека неудобна из-за ее громоздкости и непривычной записи.

Перевод чисел из десятичной системы в двоичную и наоборот выполняет машина. Однако, чтобы профессионально использовать компьютер, следует научиться понимать слово машины. Для этого и разработаны восьмеричная и шестнадцатеричная системы.

Числа в этих системах читаются почти так же легко, как десятичные, требуют соответственно в три (восьмеричная) и в четыре (шестнадцатеричная) раза меньше разрядов, чем в двоичной системе (ведь числа 8 и 16 — соответственно, третья и четвертая степени числа 2).

Перевод восьмеричных и шестнадцатеричных чисел в двоичную систему очень прост: достаточно каждую цифру заменить эквивалентной ей двоичной триадой (тройкой цифр) или тетрадой (четверкой цифр).

Например:

 Чтобы перевести число из двоичной системы в восьмеричную или шестнадцатеричную, его нужно разбить влево и вправо от запятой на  триады  (для восьмеричной) или  тетрады  (для шестнадцатеричной)  и каждую такую группу заменить соответствующей восьмеричной (шестнадцатеричной) цифрой.

С

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

Рассмотрим только те системы счисления, которые применяются в компьютерах — десятичную, двоичную, восьмеричную и шестнадцатеричную. Для определенности возьмем произвольное десятичное число, например 46, и для него выполним все возможные последовательные переводы из одной системы счисления в другую. Порядок переводов определим в соответствии с рисунком:

На этом рисунке использованы следующие обозначения:

·  в кружках записаны основания систем счисления;

·  стрелки указывают направление перевода;

·  номер рядом со стрелкой означает порядковый номер соответствующего примера в сводной таблице.

Например:  означает перевод из двоичной системы в шестнадцатеричную, имеющий в таблице порядковый номер 6.

Контрольная работа по системам счисления.

Задание: Написать программу позволяющую перевести число из любой системы счисления, в любую другую. Для хорошо успевающих учеников вплоть до шестнадцатеричной системы и позволяющей вводить число, содержащее до 200 символов.

Графический режим работы.

Помимо модуля CRT, который позволяет улучшать вывод на экран. Но как уже говорилось это не единственная библиотека, сегодня мы начнем знакомиться с новой библиотекой, которая позволяет работать с графическим режимом дисплея. В этом режиме любое изображение на экране синтезируется на множество мельчайших элементов, называемых пикселями. Каждый пиксель представляет собой светящуюся точку таких размеров, при которых промежутки между соседними пикселями отсутствуют. Если группа смежных пикселей светятся, то они воспринимаются не как совокупность отдельных точек, а как сплошной участок. Таким образом, на экране дисплея может быть синтезировано любое графическое изображение.

В графическом режиме экран разделяется прямоугольной сеткой, каждый элемент которой имеет свои координаты. Левый верхний угол экрана имеет координаты (0;0). Значение левой координаты (Х) увеличивается в горизонтальном направлении слева направо. Значение правой координаты (У) увеличивается в вертикальном направлении сверху вниз.

Графическому режиму как и текстовому, присуще понятие текущего указателя. Текущий указатель в любой момент времени может находится в любой точке экрана с координатами (х;у). Его местонахождение отображается курсором, но в графическом режиме курсор не виден.

Инициализация (включение) графического режима

InitGraph (gd, gm, p);

где gd – переменная типа integer, которая указывает на используемый тип графического драйвера; gm – переменная типа integer устанавливающая разрешение экрана; p – строковая константа, указывающая путь к драйверу.

Драйвер – это программа обеспечивающая работу отдельного устройства, в данном случае графического адаптера, который в свою очередь позволяет реализовать графический режим.

В нашем случае gd=9 всегда.

Что касается разрешения то возможны такие варианты значений которые принимает переменная gm:

gm=0 - низкое (640x200)

gm=1 - среднее (640x350)

gm=2 - высокое (640x480)

Ну а путь к драйверу на наших машинах выглядит следующим образом: ‘c:\trans\bp\bgi’

Выключение графического режима

CIoseGraph;

Изображение точек

PutPixel (x, y, c);

где х и у – координаты точки, а с – это цвет которым будет изображена точка (номера цветов аналогичны номерам цветам в модуле crt).

Пример: Нарисовать точку зеленого цвета в центре экрана

Program Primer;

Uses Graph;

Var Gd, Gm : Integer;

Begin

Gd:=9; Gm:=2;

InitGraph(Gd, Gm,’c:\trans\bp\bgi’);

PutPixel(320,240,2);

Readln;

CloseGraph;

End.

Задание:

1.  Изобразить точку в центре экрана при низком разрешении экрана.

2.  Изобразить на экране звездное небо.

3.  Изобразить на экране разноцветное звездное небо.

4.  Изобразить звездное небо на четверти экрана.

5.  Изобразить звездное небо в центре экрана.

Изображение линий.

Цвет линии

SetColor (c);

где с – цвет которым будет изображена линия или текст.

Стиль линии

SetLineStyle (s, p, t);

где s – стиль лини; p – шаблон линии; t – толщина линии.

Переменная s может принимать следующие значения:

0

1

2

3

4 Определяется шаблоном

Переменная t принимает следующие значения:

1 - Тонкая

3 - Толстая

Переменная p может иметь любое значение если стиль линии не шаблон (т. е. если s<>4).

Отрезок прямой линии

Line (x1,y1, x2,y2);

где x1,y1- начальные координаты прямой линии; x2,y2 – координаты конца линии.

Отрезок до точки

LineTo (x, y);

где линия рисуется от точки в который находится указатель в данный момент; х, у – координаты указателя после выполнения команды, т. е. линия рисуется до точки с координатами х, у.

Данную команду удобно использовать при рисовании ломанных линий.

Перемещение текущего указателя в точку с координатами (x,y)

MoveTo (x, y);

Отрезок (вектор)

LineRel (dx, dy);

где линия рисуется от точки в который находится указатель в данный момент; а конечные координаты отрезка формируются следующим образом: к текущим координатам х и у прибавляются соответственно dx и dy.

Задания:

1.  Построить желтый треугольник, вершинами которого являются следующие точки (200;100), (300;100), (250; 10).

2.  Нарисовать домик.

3.  Нарисовать лесенку, если с клавиатуры задаются следующие параметры: а – ширина ступеньки, b – высота ступеньки, с – количество ступенек.

4.  Нарисовать лесенку если помимо вышеуказанных параметров задается еще начало и направление лесенки.

Самостоятельная работа: Нарисовать куб. (Оценивается на «5» - если нижняя левая вершина куба, а также длина его ребра задается с клавиатуры, на «4» - если изобразили отталкиваясь от исходных данных: вершина имеет координаты (100; 400), длина ребра 200).

Контур прямоугольника

Rectangle(x1,y1,x2,y2);

x1,y1,x2,y2 – координаты противоположных не смежных вершин прямоугольника.

Окружность

Circle (x, y, r);

где x, y – координата центра окружности, а r – радиус окружности.

Дуга окружности

Arc (x, y,nu, ku, r);

где x, y – координаты центра окружности, r – радиус окружности, nu – начальный угол с которого начинается рисование дуги, ku – конечный угол, переменные nu, ku – измеряются в градусах.

Дуга эллипса

Ellipse(x, y,nu, ku, rx, ry);

где x, y – координаты центра эллипса, rx, ry – радиусы эллипса соответственно по оси х и по оси у, nu – начальный угол с которого начинается рисование дуги, ku – конечный угол, переменные nu, ku – измеряются в градусах.

Например для того чтобы нарисовать полный эллипс необходимо выполнить такую команду: Ellipse(x, y,0,360,rx, ry);

Задание: Изобразить на экране какую–нибудь смешную рожицу.

Закрашенные фигуры

Стиль заполнения фигуры

SetFillStyle (s, c);

где s – стиль заполнения фигуры, c – номер активного цвета.

Виды стилей заполнения:

0 - сплошная закраска фоновым цветом

1 - сплошная закраска активным цветом

9 - закраска пикселей в шахматном порядке

12 - пользовательский стиль

2 3 4 5 6 7 8 10 11

Закрашенный прямоугольник

Bar (x1,y1, x2,y2);

x1,y1,x2,y2 – координаты противоположных не смежных вершин прямоугольника.

Параллелепипед

Bar3d(x1,y1,x2,y2,d, t);

x1,y1,x2,y2 – координаты противоположных не смежных вершин передней грани параллелепипеда, d – ширина боковой грани, t - Верхняя грань(True (TopOn) – есть, False (TopOff) – нет).