F=3 - штриховая.

F=4 - форма линии задается параметром Р. При F<4 значение Р игнорируется. Параметры F, P, T типа Word.

Стиль линии Р - число, двоичное представление которого отображает заполнение линии длиной 16 пикселов. Если разряд числа равен 1, то пиксел высвечивается, 0 - не высвечивается. Удобно использовать шестнадцатеричные числа.

Например:

P = $35F1 = 0 0 1 1 0 1 0 1 1 1 1 1 0 0 0 1 (двоичное)

отобразит стиль:

Можно использовать десятичную форму записи значения параметра "Р",

где 0<= P <= 65535= 216-1.

T - толщина линии может принимать два значения: T= 1 - тонкая (1 пиксел), T= 3 - толстая (3 пиксела).

Например, операторы: SetLineStyle(4, $5555, 3); Line(x1, y1, x2, y2); оп-

ределяют толстую мелким пунктиром линию.

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

Например:

P3 = P1 and P2 - линии из совпадающих единичных битов. P3 = P1 or P2 - добавление единичных битов.

P3 = P1 xor P2 - обнуление совпадающих значений битов. P3 = not P2 - изменение значений битов на противоположные.

ЗАДАНИЯ ДЛЯ ПРАКТИЧЕСКИХ ЗАНЯТИЙ

Линейные алгоритмы

1.Даны 2 ненулевых числа. Найти их сумму, разность, произведение и частное.

2.Даны 2 числа. Найти среднее арифметическое их квадратов и среднее арифметическое их модулей.

3.Скорость лодки в стоячей воде V км/ч, скорость течения реки U км/ч (U

<V). Время движения лодки по озеру T1 ч, а по реке (против течения) – T2 ч. Определить путь S, пройденный лодкой.

4.Скорость первого автомобиля V1 км/ч, второго – V2 км/ч, расстояние между ними S км. Определить расстояние между ними через T часов, если автомобили удаляются друг от друга.

5.Скорость первого автомобиля V1 км/ч, второго – V2 км/ч, расстояние между ними S км. Определить расстояние между ними через T часов, если автомобили первоначально движутся навстречу друг другу.

6.Найти периметр и площадь прямоугольного треугольника, если даны длины его катетов a и b.

7.Дана длина ребра куба. Найти площадь грани, площадь полной поверх-

78

ности и объем этого куба.

8.Найти длину окружности и площадь круга заданного радиуса R. В качестве значения Pi использовать 3.14.

9.Найти площадь кольца, внутренний радиус которого равен R1, а внешний радиус равен R2 (R1 < R2). В качестве значения Pi использовать 3.14.

10.Дана сторона равностороннего треугольника. Найти площадь этого треугольника и радиусы вписанной и описанной окружностей.

11.Дана длина окружности. Найти площадь круга, ограниченного этой окружностью. В качестве значения Pi использовать 3.14.

12.Дана площадь круга. Найти длину окружности, ограничивающей этот круг. В качестве значения Pi использовать 3.14.

13.Найти периметр и площадь равнобедренной трапеции с основаниями a и b (a > b) и углом alpha при большем основании (угол дан в радианах).

14.Найти периметр и площадь прямоугольной трапеции с основаниями a и b (a > b) и острым углом alpha (угол дан в радианах).

15.Найти расстояние между двумя точками с заданными координатами (x1, y1) и (x2, y2).

16.Даны координаты трех вершин треугольника (x1, y1), (x2, y2), (x3, y3). Найти его периметр и площадь.

17.Найти корни квадратного уравнения

A·x2 + B·x + C = 0, заданного своими коэффициентами A, B, C (коэффициент A не равен 0), если известно, что дискриминант уравнения неотрицателен.

18. Найти решение системы уравнений вида

A1·x + B1·y = C1,

A2·x + B2·y = C2,

заданной своими коэффициентами A1, B1, C1, A2, B2, C2, если известно, что данная система имеет единственное решение.

19.Дано целое четырехзначное число. Используя операции div и mod, найти сумму его цифр.

20.Дано целое четырехзначное число. Используя операции div и mod, найти произведение его цифр.

Целочисленная арифметика

1.Дано расстояние в сантиметрах. Найти число полных метров в нем.

2.Дана масса в килограммах. Найти число полных центнеров в ней.

3.Дана масса в килограммах. Найти число полных тонн в ней.

4.Дано расстояние в метрах. Найти число полных километров в нем.

5.Дано трехзначное число. Найти число, полученное при прочтении его цифр справа налево.

6.Дано трехзначное число. Найти число, полученное при перестановке первой и второй цифр заданного числа.

7.Дано трехзначное число. Найти число, полученное при перестановке первой и второй цифр заданного числа.

8.Дано трехзначное число. Найти число, полученное при перестановке

79

второй и третьей цифр заданного числа.

9.Дано целое число, большее 99. Найти третью от конца его цифру.

10.Дано натуральное число n (n>9). Найти число единиц в нем.

11.Дано натуральное число n (n>99). Найти число десятков в нем.

12.Дано натуральное число n (n>99). Найти число сотен в нем.

13.Дано натуральное число n (n>999). Найти число тысяч в нем.

Линейные программы

Даны x, y, z . Вычислить a, b, если:

1

2

3

4

5

6

7

8

9

10

80

11

12

13

14

15

Логические выражения

Во всех заданиях данного пункта требуется вывести логическое значение True, если приведенное высказывание для предложенных исходных данных является истинным, и значение False в противном случае. Все числа, для которых указано количество цифр (двузначное число, трехзначное число и т.д.), считаются целыми.

1.Проверить истинность высказывания: "Квадратное уравнение A·x2 + B·x

+C = 0 с данными коэффициентами A, B, C имеет вещественные корни".

2.Проверить истинность высказывания: "Данные числа x, y являются координатами точки, лежащей во второй координатной четверти".

3.Проверить истинность высказывания: "Данные числа x, y являются координатами точки, лежащей в первой или третьей координатной четверти".

4.Проверить истинность высказывания: "Точка с координатами (x, y) лежит внутри прямоугольника, левая верхняя вершина которого имеет координаты (x1, y1), правая нижняя – (x2, y2), а стороны параллельны координатным осям".

5.Проверить истинность высказывания: "Данное целое число является четным двузначным числом".

6.Проверить истинность высказывания: "Данное целое число является нечетным трехзначным числом".

7.Проверить истинность высказывания: "Среди трех данных целых чисел есть хотя бы одна пара совпадающих".

8.Проверить истинность высказывания: "Среди трех данных целых чисел есть хотя бы одна пара взаимно противоположных".

9.Проверить истинность высказывания: "Сумма цифр данного трехзначно-

81