Контрольные задания

1. Составить программу, которая формирует случайным образом одномерный массив из N элементов и:

1. выводит те его элементы, которые встречаются только один раз;

2. выводит повторяющиеся элементы (примечание: повторяющийся элемент должен выводиться один раз независимо от того, сколько раз он встречается в массиве).

2. Составить программу, которая формирует случайным образом два одномерных массива из N элементов и:

1. выводит элементы первого массива, которые не встречаются во втором;

2. выводит элементы, встречающиеся как в первом, так и во втором массивах (примечание: элемент должен выводиться один раз независимо от того, сколько раз он встречается в массивах);

3. формирует третий массив из элементов, которые встречаются только в одном из массивов.

3. Составить программу, которая вводит информацию о сотрудниках (фамилия и стаж работы) и:

1. выводит список сотрудников, фамилии которых начинаются на заданную букву;

2. выводит список сотрудников с заданным стажем работы;

3. выводит список сотрудников, имеющих стаж работы выше среднего;

4. выводит список сотрудников в алфавитном порядке;

5. выводит список сотрудников в порядке убывания стажа работы.

4. Составить программу, которая формирует случайным образом массив NxN целых чисел и:

1. выводит его в виде матрицы;

2. вычисляет сумму элементов каждой строки;

3. находит максимальные элементы каждого столбца;

4. вывод элементы под главной диагональю;

5. упорядочивает по возрастанию каждую строку массива.

5. «Студенты». Составить программу, которая вводит следующую информацию о результатах студенческой сессии:

• список студентов,

• список экзаменов,

• оценки студентов за каждый из экзаменов.

Программа должна вывести введенную информацию в виде ведомости. Например:

		Программирование	Психология	Педагогика	Математика
1	Иванов	5	5	5	5
2	Петров	2	3	3	2
3	Сидоров	3	4	5	3
…	…	…	…	…	…

После этого программа должна обработать эту информацию следующим образом:

1. вывести список студентов, сдавших сессию на повышенные оценки;

2. вывести список отличников;

3. вывести список неуспевающих (а также названия предметов, по которым они имеют неудовлетворительные отметки);

4. вычислить и вывести средний балл каждого студента;

5. вывести список в порядке убывания среднего балла;

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

Тема 10. Графика в языке Паскаль Краткое изложение теоретического материала

Для работы в графическом режиме в языке Турбо Паскаль реализованы следующие возможности:

1. Подключение к программе модуля графической библиотеки:

Uses Graph;

2. Инициализация графики:

g1 := detect; { автоопределение типа графического адаптера }

InitGraph (g1, g2, ’C:\tp70\BGI’); { инициализация графики }

Устанавливается графический режим с разрешением 640x480 точек.

Графика растровая (точечная). Точка - пиксел.

Переменные g1 и g2 имеют тип Integer.

3. Завершение графического режима: CloseGraph;

4. Рисование точки с координатами (х, у) цветом с: PutPixel (x, y, c):

5. Установить цвет фона с: SetBkColor (c);

6. Установить цвет с для выводимого рисунка: SetColor (c);

7. Рисование отрезка: Line (x1, yl, x2, y2);

(xl, y1) и (х2, у2) - координаты концов отрезка.

3. Рисование окружности радиуса r с центром (х, у):

Circle (x, y, r);

3. Рисование прямоугольника со сторонами, параллельными сторонам экрана:

Rectangle (x1, у1, х2, у2);

(xl, y1) и (х2, у2) — координаты любой из диагоналей.

3. Закрашивание ограниченной области:

А) установка типа S и цвета С штриховки:

SetFillStyle (s, c);

где 0<=S<= 11 (0 - штриховка цветом фона, т.н. «пустая», 1 - сплошная заливка, прочие значения – различные типы штриховки).

Б) закрашивание области с границей цвета b:

FloodFill (x, y, b);

b - цвет границы (до этого цвета будет "разливаться" краска (штриховка)).

3. Рисование закрашенного прямоугольника:

SetFillStyle (s, c);

Ваг(х1, у1, х2, у2); .

(xl, yl) и (х2, у2) - координаты любой из диагоналей.

3. Рисование параллелепипеда с закрашенной передней гранью:

SetFillStyle (s, c);

Bar3D (xl, yl, x2, y2, d, Top);

(xl, yl) и (х2, у2) - координаты любой диагонали передней грани, d-глубина, Тор - логический параметр, указывающий, рисовать ли верхнюю грань параллелепипеда: True – рисовать, False - нет.

13. Рисование эллипса или его дуги:

Ellipse (x, y, a1, a2, xr, yr);

(х, у) - координаты центра,

a1 - начальный угол (в градусах),

а2 - конечный угол (в градусах),

хr - радиус по оси X,

уr - радиус по оси Y.

14. Рисование закрашенного сектора эллипса:

SetFillStyle (s, c);

Sector (х, у, а1, a2, xr, yr);

(х, у) - координаты центра,

a1 - начальный угол (в градусах),

а2 - конечный угол (в градусах),

хr - радиус по оси X,

уr - радиус по оси Y.

14. Вывод текста на графический экран:

A) Установка шрифта:

SetTextStyle (f, d, s);

f - номер шрифта (0 - матричный шрифт 8x8),

d - направление вывода символов (0 - горизонтально, слева направо),

s - размер символов.

Б) вывод текста:

OutTextXY (x, y, s);

(х, у) - координаты левого верхнего угла выводимой строки,

s – выводимая текстовая строка.